<%
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 ...