asp登陆原代码(正确版)

1、（index.asp 用户登陆页面）会员会员注册系统用户名:密 码:注册2、（login.asp 用户数据处理文件）3、（change.asp 用户信息修改页面）修改用户名：input name=username type=text id=username value=*密  码：input name=password type=text id=password value=*性  别：input name=sex type=text id=sex value=QQ：input name=qq type=text id=qq value=Mail：input name=mail type=text id=mail value=地  址：input name=add type=text id=add value=介绍 退出系统  4、（reg.asp 新用户注册页面）用户注册用户注册用户名：*密码：*确定密码：*性别：QQ：Mail：地址：个人介绍 5、（addnewdata.asp 新用户注册数据处理文件）成功%ac=request.QueryString(ac)msg=注册错误信息if request.Form(username)= thenmsg=msg&用户名不能为空end ifif strcomp(cstr(request.Form(password),cstr(request.Form(password2)0 thenmsg=msg&两次密码输入不同end ifif len(request.Form(password)6 thenmsg=msg&密码太简单end ifif strcomp(msg,注册错误信息)0 thenresponse.Redirect(reg.asp?msg=&msg)end ifif ac=adduser thenset rsc=server.createobject(adodb.recordset)sql=select * from info where username=&request.Form(username)&rsc.open sql,conn,1,1ck=rsc(username)set rsc=nothingif ck thenmsg=msg&用户名被人注册response.Redirect(reg.asp?msg=&msg)end ifdsql=select * from info where id is nullset rs=server.createobject(adodb.recordset)rs.open dsql,conn,1,3rs.addnewrs(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)=nowrs.updateset rs=nothing%注册成功,点击登陆6、（conn.asp 数据库连接文件）7、（userinfo.mdb ACCESS 数据库）在ACCESS中建一个表，然后在这个表中建立字段名称表名：info用户名密码性别地址Q