这篇文章主要为大家详细介绍了ASP 连接Access数据库的登陆系统,感兴趣的小伙伴们可以参考一下

一、基本目标

首先在Access数据库Database.mdb中存在着用户信息表test:


编写一个登陆系统,如果用户输入的用户名在表中没有,则提示“查无此人”,如果输入密码错误,则提示“密码错误”


如果用户输入的用户名与密码都正确,则跳转到登陆成功页


登陆成功页在普通情况下,不允许通过输入网址就能访问


二、基本思想

使用asp的session对象确保了用户名与密码的传递。

弹出部分使用了javascript的脚本语言,使用asp对用户信息表进行查询。

站点的基本结构如下:


三、制作过程
整个站点使用utf-8码保证不会乱码,所以每一页在页头必须有 ,如果使用DW的高版本则自动添加,低版本请把gb2312改成utf-8,记事本自便。 

1、登陆页面login.html仅仅是一个表单的静态页面。关键是用post方法传递信息,Action是到login.asp

 



         
login




         
username: password:

 2、login.asp登陆验证页面是本系统最核心的页面

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>




         
login




<%
'向把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
%>

<%
'否则拿查出来的密码,与用户输入的密码作对比,看是否一致
'查出来的密码必须先用一个变量接住,在ASP中不能直接比较
else
dbpwd=rs("password")
'如果不一致,则弹窗,ASP没有!=,表示不等于请用<>
if password<>dbpwd then
%>

<%
else
'如果用户名密码都输入正确,则有此用户,timeout是为了防止用户非正常退出的,如果5分钟没有任何操作则判定其已经退出,ok是正常登陆的标志
Session.Timeout=5
Session("username")=username
Session("login")="ok"
%>

<%
end if
end if
'用完数据库记得关
rs.close
set rs=nothing
conn.close
set conn=nothing
%>



 3、success.asp
 没什么好说的,关键是看他是否有正常登陆标志,login的内容是否为ok,没有则将其弹出登陆页面 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>




         
欢迎登陆



<%
if Session.Contents("login")<>"ok" then 
%>

<%
else
Response.Write("欢迎登陆,"+Session.Contents("username"))
end if
%>
正常退出



4、exit.asp退出处理页面 

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>




         
正在退出...



<%
'所有session立即超时,并且移除所有session
Session.Abandon
Session.Contents.RemoveAll()
%>




以上就是本文的全部内容,希望对大家的学习有所帮助,也希望大家多多支持爱安网。

最新资讯
京东集团副总裁洪波:中小企业应该聚焦自己最擅长的事

京东集团副总裁洪波:中

中小企业有条件、也应该更加专注自身核心价值,聚焦自己
小米收购Zifone 27.44%销售股份 总价约1.03亿美元

小米收购Zifone 27.44

小米集团发布公告称,与Zifone订立Zifone协议及与股东卖
Uber欲收购美国最大外卖平台GrubHub 已接近达成交易

Uber欲收购美国最大外

据国外媒体报道,知情人士今日称,Uber与美国最大外卖平台
闪婚的代价:罗永浩卖花翻车手撕花点时间

闪婚的代价:罗永浩卖花

直播与鲜花电商这两样新事物初次见面,一见钟情之后随之
抄袭、盗版、流量存疑,跟谁学是下一个瑞幸?

抄袭、盗版、流量存疑

短短三个月内,四家机构,进行了六次做空。在中概股做空史
瑞幸咖啡跌幅扩大至20%,昨日复牌收跌逾35%

瑞幸咖啡跌幅扩大至20

瑞幸咖啡跌幅扩大至20%,昨日复牌收跌逾35%。
最新文章
ASP.NET实现图书管理系统的步骤详解

ASP.NET实现图书管理

这篇文章主要介绍了ASP.NET图书管理系统简单实现步骤,
ASP.NET Core中使用MialKit实现邮件发送功能

ASP.NET Core中使用Mi

这篇文章主要介绍了ASP.NET Core中使用MialKit实现邮
Asp.Net MVC记住用户登录信息下次直接登录功能

Asp.Net MVC记住用户

有的时候做网站,就需要记住用户登录信息,下次再登录网站