<%
Dim StrServer,StrUid,StrSaPwd,StrDbName
StrServer="HJZH-CMS" '数据库服务器名
StrUid="huajing" '您的登录帐号
StrSaPwd="huajing" '您的登录密码
StrDbName="easyci" '您的数据库名称
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
sub CloseConn()
conn.close
set conn=nothing
end sub
%>
