ASP编写的简单登陆系统

发布: 2007-6-30 18:56 | 作者: admin | 来源: | 查看: 41次 | 进入软件测试论坛讨论

　　分注册信息修改登陆三部分。access数据库本地机测试基本正常表单必填项目用JS在htm页限制完在asp页就没有管。

　　1.注册

<%
@#取得用户填写的帐号密码
UNamethis=request("UName")
UPwsthis=request("UPws")
UPws2this=request("UPws2")
@#建立数据库连接
set conobject=server.createobject("adodb.connection")
conobject.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "/data/webjxbbs.mdb")
@#建立数据集合筛选条件是帐号等于用户填写的帐号
set rs=server.createobject("adodb.recordset")
rs.open"SELECT * FROM tbuser WHERE UName=@#" & Replace(UNamethis,"@#","@#@#") & "@#",conobject,1,3
@#判断上面建立的数据集合是否为空如不是说明数据库中有此用户则不允许再注册相同帐号转向注册失败页
If Not rs.EOF Or Not rs.BOF Then
response.redirect"regfail.htm"
response.end
end if
@#调用addnew方法添加新用户有一些是选填项目判断其VALUE非空才添加
rs.addnew
rs("UName")=UNamethis
rs("UPws")=UPwsthis
rs("UPws2")=UPws2this
if request("UEmail") <> "" then
rs("UEmail")=request("UEmail")
end if
if request("UQq") <> "" then
rs("UQq")=request("UQq")
end if
if request("UWebsite") <> "" then
rs("UWebsite")=request("UWebsite")
end if
if request("UIntroduce") <> "" then
rs("UIntroduce")=request("UIntroduce")
end if
@#调用Update
rs.update
rs.close
conobject.close
@#建立Session对象
session("username")=UNamethis
@#转到成功页
response.redirect"userinfo.asp"
%>

　　2.成功页显示

<%
@#取session对象值
UNamethis=session("username")
@#建立数据连接
set conobject=server.createobject("adodb.connection")
conobject.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "/data/webjxbbs.mdb")
@#建立数据集合筛选条件是帐号等于session对象值
set rs=server.createobject("adodb.recordset")
rs.open"SELECT * FROM tbuser WHERE UName=@#" & Replace(UNamethis,"@#","@#@#") & "@#",conobject,1,3
%>

　　3.信息修改

<%
@#取得拥护修改的密码
UPwsthis=request("UPws")
UPws2this=request("UPws2")
@#取得session对象值
UNamethis=session("username")
@#建立数据连接建立数据集合筛选条件是帐号等于session值
set conobject=server.createobject("adodb.connection")
conobject.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "/data/webjxbbs.mdb")
set rs=server.createobject("adodb.recordset")
rs.open"SELECT * FROM tbuser WHERE UName=@#" & Replace(UNamethis,"@#","@#@#") & "@#",conobject,1,3
@#调用update方法修改用户项目非必填项目判断为非空再修改草案
rs("UPws")=UPwsthis
rs("UPws2")=UPws2this
if request("UEmail") <> "" then
rs("UEmail")=request("UEmail")
end if
if request("UQq") <> "" then
rs("UQq")=request("UQq")
end if
if request("UWebsite") <> "" then
rs("UWebsite")=request("UWebsite")
end if
if request("UIntroduce") <> "" then
rs("UIntroduce")=request("UIntroduce")
end if
rs.update
rs.close
conobject.close
@#转向修改成功页
response.redirect"userinfo.asp"
%>

　　4.登陆

<%
@#取得用户填写的帐号和密码
UNamethis=request("UName")
UPwsthis=request("UPws")
@#连接数据库
set conobject=server.createobject("adodb.connection")
conobject.open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath( "/data/webjxbbs.mdb")
@#建立数据集合筛选条件是帐号密码和用户填写的一致并用replace函数防止登陆漏洞
set rs=server.createobject("adodb.recordset")
rs.open"SELECT * FROM tbuser WHERE UName=@#" & Replace(UNamethis,"@#","@#@#") & "@# and UPws=@#" & Replace(UPwsthis,"@#","@#@#") & "@#",conobject,1,3
@#判断上面建立的数据集合是否为空如不是说明数据库中有此用户建立Session对象转到正确页面如是说明数据库中没有此用户转到登陆失败页面
If Not rs.EOF Or Not rs.BOF Then
session("username")=UNamethis
response.redirect"../bbs/catalog.asp"
response.end
end if
response.redirect"loginfail.htm"
response.end
%>