Dim StrServer,StrUid,StrSaPwd,StrDbName
StrServer="(local)" '数据库服务器名
StrUid="sa" '您的登录帐号
StrSaPwd="zxx" '您的登录密码
StrDbName="zxx" '您的数据库名称
Dim Conn '数据库连接
Dim StrDSN '数据库连接字符串
Dim rs '命令字符串
StrDSN="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName&""
'建立和数据库master的连接
set Conn = Server.CreateObject("ADODB.Connection")
'set Rs=Server.CreateObject("ADODB.RecordSet")
Conn.Open StrDSN