<%
conn.CommandTimeout = 0
conn.ConnectionTimeout = 0
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPATH("../數據庫位置")&";Persist Security Info=False"
conn.open strconn
<%
Set conn=Server.CreateObject("ADODB.Connection")
Dim StrServer,StrUid,StrPwd,StrDbName
StrServer="'數據庫服務器名"
StrUid="您的登錄帳號"
StrPwd="'您的登錄密碼"
StrDbName="您的數據庫名稱 "
strconn="driver={sql server};server="&strserver&";uid="&struid&";pwd="&strpwd&";database="&strdbname&""
conn.open strconn