【下载文档:  asp注册登陆实例代码.txt 】

---

ASP注册登陆实例代码
数据库位置：data/data.mdb 数据库表：user id name pwd wenti daan conn.asp <% db="data/data.mdb" '数据库存放目录 on error resume next set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath(db) if err then err.clear set conn = Nothing response.write "数据库连接出错，请检查conn.asp中的连接字符串。" response.end end if function CloseDB Conn.Close set Conn=Nothing End Function %> <% dim badword badword="'|and|select|update|chr|delete|%20from|;|insert|mid|master.|set|chr(37)|=" if request.QueryString<>"" then chk=split(badword,"|") for each query_name in request.querystring for i=0 to ubound(chk) if instr(lcase(request.querystring(query_name)),chk(i))<>0 then response.write "" response.end end if next next end if %> reg.asp <% if request("action")="reg" then set rs=server.CreateObject("adodb.recordset") rs.open "select * from user where name='"&trim(request("name"))&"'",conn,1,1 if rs.recordcount>0 then response.write "" response.End() end if sql="select * from user" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,3 rs.addnew rs("name")=trim(request.Form("name")) rs("pwd")=trim(request.Form("pwd")) rs("wenti")=trim(request.Form("wenti")) rs("daan")=trim(request.Form("daan")) rs.update rs.close set rs=nothing response.write "" response.end end if %>

用户注册 用户名 密码 密码提示问题 密码提示答案

top.asp

首页 <% if Session("name")="" then %> 注册 登陆 忘记密码？ <% else %> 欢迎您<%=Session("name")%>， 注销登陆 <% end if %> 加密页

login.asp

用户登陆 <% if Session("name")="" then %> 用户名 密码 <% else %> <%=Session("name")%>，您已经成功登陆 <% end if %>

loginok.asp <% Session.TimeOut=30 if request("action")="login" then name=trim(request.form("name")) pwd=trim(request.form("pwd")) if name="" or pwd="" then Response.Redirect ("login.asp") end if set rs=server.createobject("adodb.recordset") sql="select * from user where name='"&name&"'and pwd='"&pwd&"'" rs.open sql,conn,1,1 if not rs.eof then session("name")=name response.redirect"edit.asp" else response.redirect"Error.asp" response.end end if end if %> loginout.asp <% session("name")="" response.write "" response.end %> pwd.asp

找回密码 请输入用户名

pwd2.asp

找回密码 <% name=trim(request.form("name")) set rs=server.createobject("adodb.recordset") sql="select * from user where name='"&name&"'" rs.open sql,conn,1,1 if not rs.eof then %> <%=rs("name")%> "> 密码提示问题 <%=rs("wenti")%> 密码提示答案 <% else %> < td>你输入的用户名不存在，请返回重新输入，或者注册 <%end if %>

pwd3.asp

找回密码 <% name=trim(request.form("name")) daan=trim(request.form("daan")) set rs=server.createobject("adodb.recordset") sql="select * from user where name='"&name&"' and daan='"&daan&"'" rs.open sql,conn,1,1 if not rs.eof then %> <%=rs("name")%>，您的密码 <%=rs("pwd")%> <% else %> 你输入的密码提示答案不正确，请返回重新输入 <%end if %>

error.asp

登陆失败，请检查用户名和密码是否正确 返回

edit.asp <% if request("action")="edit" then name=session("name") set rs=server.createobject("adodb.recordset") sql="select * from user where name='"&name&"'" rs.open sql,conn,3,2 rs("pwd")=trim(request.Form("pwd")) rs("daan")=trim(request.Form("daan")) rs.update rs.close set rs=nothing response.write "" end if %>

修改资料 <% if Session("name")="" then %> 对不起你还没有登陆，请登陆或者注册 <% else %> <% name=session("name") set rs=server.createobject("adodb.recordset") sql="select * from user where name='"&name&"'" rs.open sql,conn,1,1 %> 用户名 <%=rs("name")%> 密码 "> 密码提示问题 <%=rs("wenti")%> 密码提示答案 "> <% end if %>