ASP简单用户注册系统.docx

1、ASP简单用户注册系统数据库位置：data/data.mdb 数据库表：user id name pwd wenti daan conn.asp% dim badwordbadword=|and|select|update|chr|delete|%20from|;|insert|mid|master.|set|chr(37)|=if request.QueryString thenchk=split(badword,|)for each query_name in request.querystringfor i=0 to ubound(chk)if instr(lcase(request.q

2、uerystring(query_name),chk(i)0 thenresponse.write alert(传参错误！参数 &query_name& 的值中包含非法字 符串！nn);location=&request.ServerVariables(HTTP_REFERER)&response.endend ifnextnextend if%reg.asp0 thenresponse.write window.alert(您输入的用户名已存在，请返回重新输入！);history.back(-1);response.End()end ifsql=select * from user set

3、rs=server.createobject(adodb.recordset)rs.open sql,conn,1,3 rs.addnewrs(name)=trim(request.Form(name)rs(pwd)=trim(request.Form(pwd) rs(wenti)=trim(request.Form(wenti) rs(daan)=trim(request.Form(daan) rs.updaters.closeset rs=nothingresponse.write alert(注册成 功，点击确定立即登录！);location.replace(login.asp);res

4、ponse.endend if%无标题文档 用户www.ks-注册用户名密码密码提示问题密码提示www.ks-答案 top.asp首 页注册 登陆忘记密码？ 欢迎您， 注销登陆 加密页login.asp无标题文档 用户登陆用户名密码，您已经成功登陆loginok.asploginout.asp%session(name)=response.write alert(退出登陆成功!);location.href(index.asp);response.end%pwd.asp无标题文档 找回密码请输入用户名pwd2.asp无标题文档 找回密码input name=name type=hidden i

5、d=name value=密码提示问题密码提示答案你输入的用户名不存在，请返回重新输入，或者注册 pwd3.asp无标题文档 找回密码，您的密码你输入的密码提示答案不正确，请返回重新输入 error.asp无标题文档 登陆失败，请检查用户名和密码是否正确 返回edit.asp% if request(action)=edit thenname=session(name)set rs=server.createobject(adodb.recordset)sql=select * from user where name=&name&rs.open sql,conn,3,2 rs(pwd)=tr

6、im(request.Form(pwd) rs(daan)=trim(request.Form(daan) rs.updaters.closeset rs=nothingresponse.write alert(编辑成功！);location.href(edit.asp);end if % 无标题文档 修改资料对不起你还没有登陆，请登陆或者注册 用户名密码input name=pwd type=text id=pwd value=密码提示问题密码提示答案input name=daan type=text id=daan value= 上面是我在网上找到的,但是有点小小错误,就是把文件调用那修改哈就可以了如果还有什么问题,可以访问 飞狐娱乐 网