<%
dim SqlLocalName,SqlUsername,SqlPassword,SqlDatabaseName,Conn,ConnStr,db,Err_OpenDatabase
SqlLocalName ="(local)" '连接IP [ 本地用 (local) 外地用IP ]
SqlUsername ="sa" '用户名
SqlPassword ="zhengque" '用户密码
SqlDatabaseName="vnut" '数据库名
Set conn = Server.CreateObject("ADODB.Connection")
connstr = "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
conn.Open connstr
sub CloseConn()
On Error Resume Next
Conn.close
set Conn=nothing
end sub
%>