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