ASP 连接Access数据库的登陆系统
一、基本目标
首先在Access数据库Database.mdb中存在着用户信息表test：
编写一个登陆系统，如果用户输入的用户名在表中没有，则提示“查无此人”，如果输入密码错误，则提示“密码错误”
如果用户输入的用户名与密码都正确，则跳转到登陆成功页
登陆成功页在普通情况下，不允许通过输入网址就能访问
二、基本思想
使用asp的session对象确保了用户名与密码的传递。
弹出部分使用了javascript的脚本语言，使用asp对用户信息表进行查询。
站点的基本结构如下：
三、制作过程
整个站点使用utf-8码保证不会乱码，所以每一页在页头必须有<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />，如果使用DW的高版本则自动添加，低版本请把gb2312改成utf-8，记事本自便。
1、登陆页面login.html仅仅是一个表单的静态页面。关键是用post方法传递信息，Action是到login.asp
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>login</title> </head> <body> <form method="post" action="login.asp"> username:<input type="text" name="username" /> password:<input type="password" name="password" /> <input type="submit" value="login" /> </form> </body> </html>
2、login.asp登陆验证页面是本系统最核心的页面
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>login</title>
</head>
<body>
<%
'向把login.html传过来的两个信息用变量保存起来
username=Request.Form("username")
password=Request.Form("password")
'数据库是上一级目录的Database.mdb
%>
<%
db="../Database.mdb"
'连接数据库指定动作，这段必须独立地占用一个<％％>否则在某些情况下IE8会出错
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=admin;dbq=" & Server.MapPath(db)
%>
<%
Set rs = Server.CreateObject( "ADODB.Recordset" )
'看表中是否有此username
sql = "select * from test where username='"+username+"';"
rs.open sql,conn,1,3
'如果什么都查不到，弹窗，弹回login.html
if (rs.bof and rs.eof) then
%>
<script>
alert("查无此人");
window.location.href = "login.html";
</script>
<%
'否则拿查出来的密码，与用户输入的密码作对比，看是否一致
'查出来的密码必须先用一个变量接住，在ASP中不能直接比较
else
dbpwd=rs("password")
'如果不一致，则弹窗，ASP没有!=，表示不等于请用<>
if password<>dbpwd then
%>
<script>
alert("密码错误");
window.location.href = "login.html";
</script>
<%
else
'如果用户名密码都输入正确，则有此用户，timeout是为了防止用户非正常退出的，如果5分钟没有任何操作则判定其已经退出，ok是正常登陆的标志
Session.Timeout=5
Session("username")=username
Session("login")="ok"
%>
<script>
alert("登陆成功");
window.location.href = "success.asp";
</script>
<%
end if
end if
'用完数据库记得关
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</body>
</html>
3、success.asp
没什么好说的，关键是看他是否有正常登陆标志，login的内容是否为ok，没有则将其弹出登陆页面
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>欢迎登陆</title>
</head>
<body>
<%
if Session.Contents("login")<>"ok" then
%>
<script>
alert("请正常登陆！");
window.location.href = "login.html";
</script>
<%
else
Response.Write("欢迎登陆，"+Session.Contents("username"))
end if
%>
<a href="exit.asp">正常退出</a>
</body>
</html>
4、exit.asp退出处理页面
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <title>正在退出...</title> </head> <body> <% '所有session立即超时，并且移除所有session Session.Abandon Session.Contents.RemoveAll() %> <script> window.location.href = "login.html"; </script> </body> </html>
以上就是本文的全部内容，希望对大家的学习有所帮助，也希望大家多多支持我们。
相关推荐
-
用Net User命令恢复系统登陆用户密码
如果你安装的是Windows XP操作系统,不慎忘记了系统登录用户"*****"的密码,你可以NET命令来解决问题: Windows XP中提供了"net user"命令,该命令可以添加.修改用户账户信息,其语法格式为: net user [UserName [Password | *] [options]] [/domain] net user [UserName {Password | *} /add [options] [/domain] net user
-
qq防止别人登陆如何禁止别人登陆qq
即时通讯软件QQ拥有越来越多的用户,而QQ号也成为人们继手机号之后又一主要联系方式.但如果你不想让你同事.同学.亲戚和朋友利用你机器中的QQ神聊瞎侃和传输不良信息,不妨试试如下方法: 当然,如果你是在公司局域网禁止别人qq登录,限制上班qq聊天的行为,则推荐你使用专业的网络管理软件--聚生网管(下载地址:http://www.grabsun.com/wangguan.html)就可以了,你只需要将聚生网管安装在局域网一台电脑上,比如你自己或者经理的电脑上,就可以扫描到局域网所有电脑,点点鼠标就可
-
python模拟新浪微博登陆功能(新浪微博爬虫)
1.主函数(WeiboMain.py): 复制代码 代码如下: import urllib2import cookielib import WeiboEncodeimport WeiboSearch if __name__ == '__main__': weiboLogin = WeiboLogin('×××@gmail.com', '××××')#邮箱(账号).密码 if weiboLogin.Login() == True: print "登陆成功!" 前
-
Android仿QQ登陆窗口实现原理
今天根据腾讯qq,我们做一个练习,来学习如何制作一个漂亮的布局.首先看一下官方图片 还是一个启动画面,之后进入登录页面,导航页面就不介绍了,大家可以参考微信的导航页面.首先程序进入SplashActivity,就是启动页面,Activity代码如下: 复制代码 代码如下: package com.example.imitateqq; import android.app.Activity; import android.content.Intent; import android.os.Bund
-
解决最近Hotmail无法登陆，hotmail不能登陆的最新解决方法总结
这两天很多人都不能登录,无法登录hotmail.使到很多人有意见.现提供登录方法. 大家可以用下面的hotmail的秘密通道登录hotmail,这样就可以解决我们不能登录hotmail的问题了 一.无法登录Hotmail的"秘密通道": http://mobile.msn.com/hm/folder.aspx [mobile.msn.com] 这个是微软为手机用户定制的手机登陆PDA网页,界面简单,速度很快.可以解决燃眉之急. 二.无法登录MSNSpace的"秘密通道&quo
-
一个简单的网页密码登陆php代码
复制代码 代码如下: <?php $password = "1234"; // 这里是密码 $p = ""; if(isset($_COOKIE["isview"]) and $_COOKIE["isview"] == $password){ $isview = true; }else{ if(isset($_POST["pwd"])){ if($_POST["pwd"] == $
-
PHP登陆后跳转到登陆前页面实现思路及代码
最近手上一个小项目让我接触到PHP编程,简单的登陆功能已经OK.可是在实际使用的时候发现一个问题:用户A发送一个链接给用户B,B打开时页面提示登陆,可是登陆成功后,却跳转到了首页,而并不是A发送的链接.为了有更好的用户体验,B登陆成功后应该自动跳转到登陆前的链接.查了PHP帮助手册,利用$_SERVER全局变量可以实现这个功能. $_SERVER是PHP的一个超全局变量,关于$_SERVER变量的详细解释可以参考:http://www.php.net/manual/zh/reserved.var
-
JAVA实现简单系统登陆注册模块
前期准备 首先要先明确有个大体的思路,要实现什么样的功能,了解完成整个模块要运用到哪些方面的知识,以及从做的过程中去发现自己的不足.技术方面的进步大都都需要从实践中出来的. 功能:用户注册功能+系统登录功能+生成验证码 知识:窗体设计.数据库设计.JavaBean封装属性.JDBC实现对数据库的连接.验证码(包括彩色验证码)生成技术,还有就些比如像使用正则表达式校验用户注册信息.随机获得字符串.对文本可用字符数的控制等 设计的模块预览图: 彩色验证码预览图: 所用数据库:MySQL 数据库设计
-
用户"sa"登陆失败 SQLServer 错误18456的解决方法
用windows账号还是可以登录的. 查找问题的过程: 第一步: 启动所有与SQL有关的服务,问题依旧: 第二步: 查看windows防火墙,被默认启动了,不启动选择项被Disabled.两个提示"由于安全考虑,某些设置由组策略控制""Windows防火墙正在使用您的域设置",先用gpedit.msc打组策略编辑器,机算机配置--管理模板--网络--网络连接--Windows防火墙--标准配置文件,查看右边各选项属性,都是未配置状态,问题不在这里. 另外一个提示中提
-
ASP注册登陆实例代码
数据库位置:data/data.mdb 数据库表:user id name pwd wenti daan conn.asp <% db="data/data.mdb" '数据库存放目录 on error resume next set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};dbq="&