asp注册登录实例代码

位置： / data.mdb数据库数据

数据库表：用户
我的名字PWD Wenti Daan

asp

<
数据库存储目录
下次继续出错
设置conn = server.createobject（数据连接）
conn.open司机= {微软Access Driver（* .mdb）}；DBQ =server.mappath（dB）
如果犯错，然后
err.clear
设置conn =没有
response.write 数据库连接错误，请检查conn.asp连接字符串。
response.end
最后如果
功能closedb
康涅狄格州接近
设置conn =没有
端功能
%>
<
昏暗的坏词
|和| BadWord =选择|更新| CHR |删除| % 20from |；|插入|中|大师。|集| CHR（37）| =
如果请求。QueryString <> 然后
CHK =分裂（坏词，| ）
每个query_name在request.querystring
我= 0，UBound（CHK）
如果仪器（1例（request.querystring（query_name））、检查（I））< > 0
response.write
response.end
最后如果
下一个
下一个
最后如果
%>

reg.asp


<
如果请求（），则
集= server.createobject（ADODB。记录集）
rs.openSELECT * FROM用户名称=装饰（请求（名称）），Conn，1
如果rs.recordcount > 0
response.write
响应（完）
最后如果
从用户选择
集= server.createobject（ADODB。记录集）
rs.open sql，Conn，1,3
rs.addnew
RS（名称）=装饰（要求表单（名称））
RS（pwd）=装饰（要求表单（密码））
RS（文体）=装饰（要求表单（文体））
RS（大安）=装饰（要求表单（大安））
rs.update
关闭
设置=无
response.write
response.end
最后如果
%>



非所有权文件




用户注册



用户名称



密码



密码提示问题



密码提示答案















top.asp




首页
<
如果会话（），则
%>
注册和登陆
忘记密码<
其他的
%>
欢迎你，注销着陆
<
最后如果
%>
加密的网页




login.asp





非所有权文件





用户登陆
<
如果会话（），则
%>



用户名称



密码








<
其他的
%>


你已经成功着陆了。



<
最后如果
%>







loginok.asp


<
会话超时= 30
如果请求（）登录，则
名称=装饰（要求表单（名称））
密码=装饰（要求表单（密码））
如果名称= 或然后密码=
响应。重定向（）
最后如果
集= server.createobject（ADODB。记录集）
SQL =SELECT * FROM用户名称=名字pwd=密码
rs.open sql，Conn，1,1
if not rs.eof then
会话（name）=名称
response.redirect 编辑.asp
其他的
response.redirect 错误。ASP
response.end
最后如果
最后如果
%>
loginout.asp

<
会话（）
response.write
response.end
%>
pwd.asp





非所有权文件




取回密码



输入一个用户名











pwd2.asp





非所有权文件





取回密码
<

名称=装饰（要求表单（名称））
集= server.createobject（ADODB。记录集）
从用户名=
rs.open sql，Conn，1,1
if not rs.eof then
%>






>


密码提示问题





密码提示答案





其他的
%>


您输入的用户名不存在。请重新输入，或登记。



< %结束如果

%>







pwd3.asp





非所有权文件





取回密码
<

名称=装饰（要求表单（名称））
大安=装饰（要求表单（大安））
集= server.createobject（ADODB。记录集）
SQL =SELECT * FROM用户名称=名字和大安=大安
rs.open sql，Conn，1,1
if not rs.eof then
%>




你的密码






其他的
%>


您输入的密码不正确，请重新输入



< %结束如果

%>







error.asp





非所有权文件




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






edit.asp


<
如果请求（）编辑，那么
名称=会话（name）
集= server.createobject（ADODB。记录集）
从用户名=
rs.open sql，Conn，3
RS（pwd）=装饰（要求表单（密码））
RS（大安）=装饰（要求表单（大安））
rs.update
关闭
设置=无
response.write
最后如果
%>



非所有权文件




修改信息

<
如果会话（），则
%>
对不起，您没有登陆，请登录或注册。
<
其他的
%>

<
名称=会话（name）
集= server.createobject（ADODB。记录集）
从用户名=
rs.open sql，Conn，1,1
%>




用户名称



密码
>


密码提示问题



密码提示答案
>








<
最后如果
%>