asp会员登陆代码

<%
dim conn,dbuid,dbpwd,dbname,dbip,rs,database
startime=timer()
database=1
'修改以下信息以适合你的网站
'---------------------------------------------------------------------------
dbuid="sa" '数据库登陆名
dbpwd="sa" '数据库密码
dbname="xeda-exp" '数据库名称
dbip="(local)" '数据库所在的IP地址，如果是本地数据库则为："(local)"
'---------------------------------------------------------------------------
set conn=Server.CreateObject("adodb.Connection")
Conn.Open "PROVIDER=SQLOLEDB.1;Data Source="&dbip&";Initial Catalog="&dbname&";Persist Security Info=True;User ID="&dbuid&";Password="&dbpwd&";Connect Timeout=30"
set rs=server.createobject("adodb.recordset")
set rrs=server.createobject("adodb.recordset")
set rrrs=server.createobject("adodb.recordset")
%>