会员注册系统
2，（login.asp用户数据处理文件）
<%
'打开数据库判断用户是否存在,info为表名,username为字段名
setrsc=server.createobject("adodb.recordset")
sqlc="select*frominfowhereusername='"&request.Form("username")&"'andpassword='"&request.Form("password")&"'"
rsc.opensqlc,conn,1,1
session("username")=rsc("username")
session("password")=rsc("password")
session.Timeout=30
setrsc=nothing
response.Redirect("change.asp")
'如果用户不存在,session("username")为空
%>
3，（change.asp用户信息修改页面）
<%
setrsc=server.createobject("adodb.recordset")
sqlc="select*frominfowhereusername='"&session("username")&"'andpassword='"&session("password")&"'"
rsc.opensqlc,conn,1,1
nr=rsc("password")
username=rsc("username")
password=rsc("password")
sex=rsc("sex")
qq=rsc("qq")
mail=rsc("mail")
add=rsc("add")
personalinfo=rsc("personalinfo")
vv=rsc("ntime")
setrsc=nothing
ifnr=""then
response.Redirect("index.asp")
endif
ifstrcomp(nr,request.Form("password"))=0then
response.Write("欢迎你！"&request.Form("username"))
response.Write("你是在"&vv&"注册的")
session("username")=request.Form("username")
endif
ifsession("username")=""then
response.Redirect("index.asp")
endif
%>
*
*
<%ifstrcomp(request.QueryString("se"),"y")=0then
session("username")=""
response.Redirect("index.asp")
endif
%>
<%
ifstrcomp(request.QueryString("ac"),"ch")=0then
setrs=server.createobject("adodb.recordset")
sql="select*frominfowhereusername='"&session("username")&"'"
rs.opensql,conn,1,3
rs("username")=request.Form("username")
rs("password")=request.Form("password")
rs("mail")=request.Form("mail")
rs("sex")=request.Form("sex")
rs("qq")=request.Form("qq")
rs("add")=request.Form("add")
rs("personalinfo")=request.Form("personalinfo")
rs.update
setrs=nothing
response.Write("修改完成！")
endif
%>
4，（reg.asp新用户注册页面）
用户注册
<%
=request.QueryString("msg")
%>
*
*
*
5，（addnewdata.asp新用户注册数据处理文件）
<%
ac=request.QueryString("ac")
msg="注册错误信息"
ifrequest.Form("username")=""then
msg=msg&"
"&"用户名不能为空"
endif
ifstrcomp(cstr(request.Form("password")),cstr(request.Form("password2")))<>0then
msg=msg&"
"&"两次密码输入不同"
endif
iflen(request.Form("password"))<6then
msg=msg&"
"&"密码太简单"
endif
ifstrcomp(msg,"注册错误信息")>0then
response.Redirect("reg.asp?msg="&msg)
endif
ifac="adduser"then
setrsc=server.createobject("adodb.recordset")
sql="select*frominfowhereusername='"&request.Form("username")&"'"
rsc.opensql,conn,1,1
ck=rsc("username")
setrsc=nothing
ifck<>""then
msg=msg&"
"&"用户名被人注册"
response.Redirect("reg.asp?msg="&msg)
endif
dsql="select*frominfowhereidisnull"
setrs=server.createobject("adodb.recordset")
rs.opendsql,conn,1,3
rs.addnew
rs("username")=request.Form("username")
rs("password")=request.Form("password")
rs("mail")=request.Form("mail")
rs("sex")=request.Form("sex")
rs("qq")=request.Form("qq")
rs("add")=request.Form("add")
rs("personalinfo")=request.Form("personalinfo")
rs("ntime")=now
rs.update
setrs=nothing
%>
<%
endif
%>
6，（conn.asp数据库连接文件）
<%
'连接数据库开始
dimconn,rs,sql
onerrorresumenext
dbpath=server.mappath("userinfo.mdb")
setconn=server.createobject("adodb.connection")
conn.open"PROVIDER=Microsoft.jet.OLEDB.4.0;datasource="&dbpath
'创建记录对象
setrs=server.createobject("adodb.recordset")
%>
7，（userinfo.mdbACCESS数据库）
在ACCESS中建一个表，然后在这个表中建立字段名称
表名：info
字段名称数据类型
id自动编号
username文本
password文本
sex文本
quest文本
qq文本
mail文本
personalinfo文本
ntime文本
