ASP网页设计各项代码

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 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 %> 你输入的用户名不存在,请返回重新输入,或者注册 <%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 %>

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

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 %>

3