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