ASP编写的简单登陆系统
2008-04-09 13:05
323 查看
ASP编写的简单登陆系统
分注册 信息修改 登陆 三部分。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
%>
相关文章推荐
- asp.net一个简单的登陆系统代码
- 简单的asp.net模拟邮箱系统基础实现(二 (2)具体版块功能的实现及关键代码之登陆页面)
- 编写数据库操作类,使ASP.NET 中的数据库操作变得简单
- Struts 1 学习笔记-5-2(编写一个简单的支持I18N的登录系统)
- 用ASP.NET做项目,本本上的系统是XP,网上下载了IIS6,安装完后出现HTTP500问题,解决之.接着出现了浏览页面时跳出登陆框让输用户名及密码,GOOGLE了一下,原来是权限不够,解决方法
- C编写简单的学生成绩管理系统
- c# asp.net 简单窗体注册登陆(3)
- 简单写写华软mysise教务系统模拟登陆+获取课程表数据(打造自己的超级课程表)
- Asp+flash打造简单新闻评论系统
- 系统地学习ASP.NET AJAX(1) - 简单地过一下每个控件
- 编写数据库操作类,使ASP.NET中的数据库操作变得简单
- 一步一步使用Ext JS MVC与Asp.Net MVC 3开发简单的CMS后台管理系统之调整首页显示
- Linux下一个简单的Shell登陆界面系统
- ASP.NET使用Cookie简单实现记住登陆状态功能
- 一步一步使用Ext JS MVC与Asp.Net MVC 3开发简单的CMS后台管理系统之登录窗口调试
- 用ASP.NET编写多层架构的系统
- ASP编写的一个简单的颜色吸取器
- 一步一步使用Ext JS MVC与Asp.Net MVC 3开发简单的CMS后台管理系统之预告篇
- 二叉树的应用:利用C语言编写简单的家谱管理系统
- 简单项目开发----数字采选系统(c++编写)