登录注册模块代码

conn,asp%db=data/data.mdb〃数据库寄存目录on errorresume nextsetconn=server，createobject〃adodb・connectionconn,open driver={microsoft accessdriver*・mdb};dbq=//server.mappath dbif errthenerr.clearset conn=nothingresponse,write〃数据库连接出错，请检查conn.asp中的J连接字符串〃response,endend iffunctionclosedbconn.closeset conn=nothingend function%%dim badwordbadword=〃「and|select|update|chr|delete|%20from|;|insert|mid|master.|set|chr37l=〃if request.querystringz，，/thenchk=splitbadword,〃|〃for eachquery namein request,querystring/form%else%table width=〃413〃border=〃1〃cellpadding=〃5〃cellspacing=〃0〃〉tr〈td你输入的J顾客名不存在，请a href=7webjx/〃〃;javascript:history,back〃〉返回/a〉重新输入，或者a href=，7webjx/，，z，;reg.asp”〉注册〈/a〈/td/tr/table%end if%/td/tr/table/body/htmlpwd

3.asp!--#i ncludefile二〃conn.asp〃--htmlheadmeta http-equiv二〃content-type“content二〃text/htnd;charset=gb2312〃〈title〉无标题文档〈/title〉/headbody!一#i ncludefile二〃top.asp〃一table width=〃90%〃border=〃1〃align二〃center cellpadding=〃10〃cellspacings〃0〃》trtd找回密码%name=trim request,form namedaan=trimrequest,form〃daan〃set rs=server.createobject〃adodb・recordsetsql=〃select*from userwhere name=〃name〃and daan=，〃daan〃〃rs.open sql,conn,1,1if notrs.eof then%table width=398〃border二〃1〃cellpadding=〃5〃cellspacing=〃0〃〉trtd width=〃130〃%=rs，，name，，%,您口勺密码/tdtd%=rs〃pwd〃%/td/tr/table%else%table width=413〃border二〃1〃cellpadding二〃5〃cellspacing=〃0〃tr〈td你输入的密码提示答案不对的，请a href=〃/webjx/〃〃;javascript:history.back〃返回〈/a重新输入/td/tr/table%end if%/td/tr/table/body/htmlerror,asp!--#i ncludefile=conn,asp”--htmlheadmeta http-equiv二〃content-type“content=〃text/html;charset二gb2312〃〈title》无标题文档〈/title》/headbody!--#i ncludefile二〃top.asp〃--table width=〃90%〃border=〃1〃align二〃center cellpadding=〃10〃cellspacing二〃0〃trtd登陆失败，请检查顾客名和密码与否对H勺a href=〃/webjx/;login.asp〃返回/a/td/tr/table/body/htmledit,asp!--#i ncludefile二〃conn.asp〃--%if requestaction=edit thenname=session〃name〃set rs=server.createobjectadodb.recordsetsql=〃select*from userwhere name=〃name〃〃rs.open sql,conn,3,2rs〃pwd〃=trim request,form〃pwd〃rs〃daan〃=trim request,form〃daan〃rs.updaters.close set rs=nothingresponse,write”〈script language=javascriptalert编辑成功!’;location,hrefedit,asp;/script〉”end if%htmlheadmeta http-equiv二〃content-type“content二〃text/html;charset=gb2312〃〉〈近116无标题文档/5110/headbody!--#i ncludefile=top.asp”—table width=〃90%〃border二〃1〃align二〃center cellpadding=〃10〃cellspacing=〃0〃trtd〉〈p〉修改资料〈/p〉P%•C•/〃〃\〃〃.1if session name；=then%对不起你还没有登陆，请a href=z，/web jx/z，，z;login.asp〃登陆/a或者a href=/，/web jx/z，/，;reg.asp〃〉注册/a〉%else%%name=sessionnameset rs=server.createobject〃adodb,recordsetsql二〃select*from userwhere name=〃name〃〃rs.open sql,conn,1,1%/pform action=〃？action=edit“method=post name二〃form“id二〃fornTtable border=〃1〃cellpadding=，/5，，trtd顾客名/td〉td%=rsname%/td/trtrtd密码/tdtdinput name二〃pwd〃type=text id二〃pwd〃value=，/%=rs〃pwd〃％〉〃〉/td/trtr td〉密码提示问题〈/td〉td%=rs z，wentiz，%X/td/trtrtd密码提示答案〈/td〉tdinput name二〃daan〃type=text id二〃daan〃value=〃%=rs〃daan〃％〉〃〉/td/trtrtdnbsp;/tdtdinput type=submit“name二〃submit value二〃修改〃〉input type=reset“name二〃submit value二〃重置〃〉/td〉/tr/table/formp%end if%/p/td/tr/table/body/htmlfor i=0to uboundchkif instrlease request,querystringquery_name,chki0thenresponse,write”〈script language=javascriptalert传参错误!参数//query_nanie/，aI值中涉及非法字符串！\n\n，;location=/zrequest.servervariables httpreferer〃〃/script〉”response,endend ifnextnextend if%reg.asp!--#i ncludefile二〃conn.asp〃--%if requestaction二〃reg〃thenset rs=server.createobject〃adodb・recordsetrs.open select*from userwhere name=〃trimrequest〃name〃〃〃，conn,1,1if rs.recordcount0thenresponse,write”〈script language=javascript window.alert您输入的J顾客名已存在,请返回重新输入！入istory.backT;/scriptresponse,end end ifsql=select*from user”setrs=server,createobject Cadodb.recordset rs.open sql,conn,1,3rs.addnewrs name=trim request,form namers〃pwd〃=trim request,form〃pwd〃rs went i〃=trim request.form，，wenti，/rs〃daan〃=trimrequest,form〃daan〃rs.updaters.closeset rs=nothingresponse,write”〈script language=javascript〉alert注册成功，点击才以定立即登录!’;location,replacelogin.asp，;/script〉”response,endend if%htmlheadmeta http-equiv二〃content-type“content=text/html;charset=gb2312〃〈1让10无标题文档/1；近16/headbody!--#i ncludefile=top.asp”--table width=〃90%〃border=〃1〃align二〃center cellpadding=〃10〃cellspacings〃0〃》trtd顾客注册form name=，form l/z method=post ac ti on=，，action=r egz，onsubmi t=，，return chkformthis，ztable width=347〃border二〃1〃cellpadding=〃5〃ceHspacing=〃0〃〉trtd width=〃142〃顾客名/tdtd width=〃179〃〈input name=name type=text id=，，name，，/td/trtrtd密码/tdtdinput name二〃pwd〃type=password id二〃pwd〃X/td〉/trtrtd密码提示问题〈/td〉tdinput name二〃went i〃type=text id二〃wenti〃X/td/trtr〈td密码提不答案〈/td〉tdinput name二〃daan〃type=text id=，，daan，，X/td/trtrtd colspan=，/2，z input type=submit“name=submit value二〃注册〃〉input type=，/resetz，name二〃submit value=〃重置〃〉/td/tr/table/form/td/tr/table/body/htmltop.aspmeta http-equiv=content-type“content二〃text/html;charset=gb2312z/table width=〃90%〃border=〃1〃align二〃center cellpadding=〃10〃cellspacings〃0〃》trtda href=，//webjx/，/，z;index.asp〃首页〈/a〉%•C•/〃〃\〃〃if sessionname=then%a href=/，/web jx//z/，;reg.asp〃〉注册/a〉a href=〃/web jx/〃〃；login.asp〃〉登陆〈/a〉a href=7web jx/“〃；pwd.asp〃忘掉密码？/a%else%欢迎您%=sessionname%,a href=〃/webjx/〃〃;loginout.asp〃〉注销登陆〈/a%endif%a href=/webjx/”;jiami.asp〃加密页〈/a〈/td/tr/tablebrlogin,asp!--#i ncludefile=conn,asp”—htmlheadmeta http-equiv二〃content-type“content二〃text/html;charset=gb2312〃〈title》无标题文档〈/title/headbody!一#i ncludefile二〃top.asp〃一table width=〃90%〃border=〃1〃align二〃center cellpadding=〃10〃cellspacing二〃0〃》trtd顾客登陆%•q•/〃〃\〃〃thenit sessionname尸%form name=，/forml，/method=post action=loginok.aspaction=login，/onsubmit=，，return chkform（this），ztable border=〃1〃cellspacing=〃0〃cellpadding=〃5〃〉trtd width=〃116〃〉顾客名〈八（1》td width=〃116〃Xinput name=name type=〃text id=，，nanie，，/td/trtrtd密码/tdtdinput name二〃pwd〃type=password id二〃pwd〃X/td〉/trtrtd colspan=，/2，z input type=，，submit，z name二〃submit value=〃登陆〃〉inputtype=〃reset〃name=〃subniit〃value二〃重置〃X/td/tr/table/form%else%table border二〃1〃cellspacing=〃0〃cellpadding=〃5〃tr tdwidth=〃303〃〈%=session（，，name，，）%,您已经成功登陆/td/tr/table%endif%/td/tr/table/body/htmlloginok.asp!--#i ncludefile二〃conn,asp”—%session.timeout=30if requestaction二〃login thenname=trimrequest,formname pwd=trimrequest,form〃pwd〃it name=or pwd=then response.redirect login.asp〃end ifsetrs=server,createobject adodb.recordsetsql二〃select*from userwhere name=〃nanie〃and pwd=，〃pwd〃〃rs.open sql,conn,1,1if notrs.eof thensessionname=nameresponse.redirectz，edit.asp〃elseresponse,redirect^error.asp〃response.end endif endif%loginout.asp%•/〃z/\〃〃sessionk nameresponse,write”〈script language=javascript〉alert退出登陆成5b!J;location,hrefindex,asp;/script”response.end%pwd.asp!--#i ncludefile=conn,asp”—htmlheadmeta http-equiv二〃content-type“content二〃text/html;charset=gb2312z，〈title》无标题文档〈/title〉/headbody!一#i ncludefile二〃top.asp”—table width=〃90%〃border=〃1〃align=〃center〃cellpadding=〃10〃cellspacing二〃0〃〉tra€13找回密码〈/「form name二〃forml〃method=〃post〃action=〃pwd

2.aspaction=pwd，table width=398〃border二〃1〃cellpadding二〃5〃cellspacing=〃0〃trtd width=〃130〃〉请输入顾客名/tdtd width=z/168，，input name二〃name“type=text id二〃name〃〈/tdtd width=，，62，，inputtype=submit“name=〃submit value=〃查询〃/td/tr/table/form/td/tr/table/body/htmlpwd

2.asp!--#i ncludefile=conn,asp”—htmlheadmeta http-equiv二〃content-type“content二〃text/html;charset=gb2312〃〉〈title》无标题文档〈/title/head body!--#i ncludefile二〃top.asp〃--table width=〃90%〃border=〃1〃align=center cellpadding=〃10〃cellspacing二〃0〃〉trtd找回密码%name=trimrequest,formnameset rs=server.createobjectadodb.recordsetsql=〃select*from userwhere name=〃name〃〃rs.open sql,conn,1,1if notrs.eof then%form name=〃method=〃post action=〃pwd

3.asp〃table width=398〃border=〃1〃cellpadding=〃5〃cellspacing=〃0〃trtd%=rsname%/tdtdnbsp;/tdtdinput name二〃name“type二〃hidden id=name value=/，%=rsname%〉〃〈/td/trtr tdwidth=〃130〃〉密码提示问题〈/td tdwidth=〃168〃〉〈％=rswenti%〉/td tdwidth=〃62〃〉nbsp;/td/trtr td密码提示答案〈/tdtdinput name二〃daan〃type=text id二〃daan〃X/tdtdinput type=submit“name=submit value=“查询X/td/tr/table。