<%
dim conn,connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("*.mdb")
<!--上一行最後寫上你的資料庫路徑-->
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
if Err then
err.Clear
Set Conn = Nothing
Response.Write "資料庫連接出錯,請檢查Conn.asp中的資料庫指向。"
Response.End
end if
%>
將上面的內容保存為conn.asp