 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
分注册 信息修改 登陆 三部分。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 %> 返回类别: 教程 上一教程: 关于INC文件的解释 下一教程: 在ASP中使用SQL语句之4:联合语句 您可以阅读与"ASP编写的简朴登陆系统"相关的教程: · 如何用ASP编写网站统计系统（一） · 如何用ASP编写网站统计系统(一) · 用ASP编写网站流量统计系统 · 用ASP编写的“俄罗斯方块游戏” · ASP编写的一个简朴的颜色吸取器 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
