<%
Dim Conn
Sub OpenConn()
Dim ConnStr
'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
connstr = "Provider=SQLOLEDB.1;Password='密码';Persist Security Info=True;User ID='用户名';Initial Catalog='数据库名';Data Source='localhost'"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查设置。"
Response.End
End If
End Sub
Sub CloseConn()
conn.close
set conn=nothing
End Sub
%>
在程序中使用OpenConn连接MSSQL，用CloseConn关闭连接。