分注册 信息修改 登陆 三部分 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/ambbs.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/ambbs.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/ambbs.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/ambbs.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 %>
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/ambbs.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/ambbs.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/ambbs.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/ambbs.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
%>