ASP 注册登陆代码 2010/03/23 07:41 数据库位置: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 bad
word="'|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")%>, webjx ??;loginout.asp?>注销登陆 <% 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
p