欢迎光临亿堂文库,如需获取更多资料请使用搜索功能。
亿堂文库
当前位置:首页 » IT/计算机 » 正文

ASP网页设计各项代码

ASP 网页设计各项代码注册代码数据库位置:data/data.mdb数据库表:user id name pwd wenti daanconn.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

ASP网页设计各项代码

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 %> 无标题文档

用户注册

ASP网页设计各项代码

用户名
密码
密码提示问题
密码提示答案
top.asp
首页 <% if session("name")="" then %> 注册 登陆 忘记密码? <% else %> 欢迎您<%=session("name")%>, 注销登陆 <% end if

ASP网页设计各项代码

%> 加密页


login.asp 无标题文档
用户登陆 <% if session("name")="" then %>
用户名
密码
<% else %>

ASP网页设计各项代码

<%=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 %>alert('退出登陆成

ASP网页设计各项代码

pwd.asp 无标题文档

找回密码

请输入用户名
pwd2.asp 无标题文档
找回密码 <% name=trim(request.form("name")) set rs=server.createobject("adodb.recordset")

ASP网页设计各项代码

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

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

ASP网页设计各项代码

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 %> 无标题文档

ASP网页设计各项代码

修改资料

<%

ASP网页设计各项代码

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

ASP网页设计各项代码

ASP网页设计各项代码