<%
dim conn,connstr,dbuid,dbpwd,dbname,dbip
dbuid="sa" '数据库登陆名
dbpwd="" '数据库密码
dbname="database" '数据库名
dbip="(local)" '数据库所在的IP地址，如果是本地数据库则不用更改
set conn=Server.CreateObject("adodb.Connection")
connstr="PROVIDER=SQLOLEDB;DATA SOURCE="&dbip&";UID="&dbuid&";PWD="&dbpwd&";DATABASE="&dbname
conn.open connstr
%>