用asp连接Access数据库 制作简单登陆界面
【题外话：最近做Internet作业，在这写一个适合初学入门的ASP连接ACCESS数据库做登陆界面的简单的例子，以慰藉我一口气把以前做过的系统中的PHP代码全改成ASP代码来临时应付作业的心情......然后，这个小例子很简单的。】
【前提条件：你已经在Windows下配置搭建了IIS服务器】
该例实现的功能为：
连接Access数据库；
登陆页面选择管理员或账户登陆；
用户界面显示当前用户信息；
管理员界面显示数据库中所有用户资料信息 并 实现分页功能（每页最多五行）；
实现注销功能。
【注：本例并没有做页面设计，可以自己加一些CSS、js之类的进行美化】
首先，创建Access数据库:(注意这里选择2002-2003版本的)
然后，创建表，添加字段：我这里简单举例，管理员表和用户表一样，你可以添加其他字段做的更丰富。
然后编写以下代码即可：
conn.asp（连接数据库）
<%
Session.CodePage=65001
Response.Charset="UTF-8"
'连接数据库开始
dim conn,rs,sql
'on error resume next
'dbpath为你自己设置的数据库路径
dbpath="D:/AccessDB/test.mdb"
set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; data source="&dbpath
'创建记录对象
set rs=server.createobject("adodb.recordset")
%>
conn.asp
【注：dbpath="D:/AccessDB/test.mdb" 我是将数据库放在了D盘的AccessDB目录下，路径请根据你自己的情况来设置】
index.asp（登陆主页面）
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>登陆界面</title>
</head>
<form id="loginForm" action="login.asp" method="post">
<ul style="border:1px solid #CCC;">
<label>权 限：</label>
<select id="sel_type" name="sel_type">
<option value="1">账户</option>
<option value="2">管理员</option>
</select>
<label class="p2">账 号：</label>
<input type="text" id="userName" name="userName" /> <label class="p2">密 码：</label>
<input type="password" id="userPwd" name="userPwd"/> <input type="submit" name="submit" value="登录"/>
<input type="reset" value="重置">
</ul>
</form>
</html>
index.asp
login.asp（登陆检测）
<%@Language="vbscript" Codepage="65001"%>
<!-- #include file="conn.asp" -->
<%
Session.CodePage=65001
Response.Charset="UTF-8"
username = Request.Form("userName")
password = Request.Form("userPwd")
flag = Request.Form("sel_type") if username = "" or password = "" then
response.Write("用户名或密码不能为空!")
Response.Write("返回<a href='index.asp'>登录主页</a><br />")
response.End()
end if if flag = "1" then
'账户
'打开数据库判断用户是否存在,user为表名,namee为字段名
set rsc=server.createobject("adodb.recordset")
sqlc="select * from [user] where username='"&request.Form("userName")&"' and password='"&request.Form("userPwd")&"'"
rsc.open sqlc,conn,1,1 if rsc.eof then
Response.Write("用户名或密码错误！")
Response.Write("返回<a href='index.asp'>登录主页</a><br />")
Response.End() else
session("username")=rsc("username")
session("password")=rsc("password") end if
rsc.close
set rsc=nothing
'登陆成功跳转到用户界面
response.Redirect("user.asp")
else
'管理员
set rsc=server.createobject("adodb.recordset")
sqlc="select * from administrator where username='"&request.Form("userName")&"' and password='"&request.Form("userPwd")&"'"
rsc.open sqlc,conn,1,1 if rsc.eof then
Response.Write("用户名或密码错误！")
Response.Write("返回<a href='index.asp'>登录主页</a><br />")
Response.End() else
session("username")=rsc("username")
session("password")=rsc("password") end if
rsc.close
set rsc=nothing
'登陆成功跳转到管理员界面
response.Redirect("admi.asp")
end if
%>
login.asp
user.asp（用户界面）
<%@Language="vbscript" Codepage="65001"%>
<!-- #include file="conn.asp" -->
<%
if session("username")="" then
response.Redirect("index.asp")
else
username = session("username")
password = session("password")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>用户界面</title>
</head>
<%
Response.Charset="UTF-8"
Response.Write("</br>")
Response.Write("账 号：" & username & "</br>")
Response.Write("密 码：" & password & "</br>")
%>
<a href="logout.asp">注销</a>
</html>
user.asp
admi.asp（管理员界面）
<%@Language="vbscript" Codepage="65001"%>
<!-- #include file="conn.asp" -->
<%
if session("username")="" then
response.Redirect("index.asp")
else
username = session("username")
password = session("password")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>管理员界面</title>
</head>
用户资料表：
<font style="font:bold 18px KaiTi;">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [user]"
rs.open sql,conn,1,1 rs.pagesize = 5
curpage = 1
if Request.QueryString("curpage") <>"" then
curpage = Request.QueryString("curpage")
end if
rs.absolutepage = curpage response.write("<table border='#CCF solid 1px'>")
response.write("<tr><th>用户名</th><th>密码</th></tr>")
for i = 1 to rs.pagesize
if rs.eof then
exit for
end if
response.write("<tr>")
response.write("<td>"&rs("username")&"</td>")
response.write("<td>"&rs("password")&"</td>")
response.write("</tr>")
rs.movenext
next
response.write("</table>") for i = 1 to rs.pagecount
%>
<a href ='./admi.asp?curpage=<%=i%>'>第<%=i%>页</a>
<%
next
if curpage=1 then
response.write("首页 ")
else
response.write("<a href ='admi.asp?curpage=1'>首页</a> ")
end if if curpage>1 then
%>
<a href ="admi_userInfo.asp?curpage=<%=curpage-1%>">上一页</a>
<%
end if if rs.pagecount>=curpage+1 then
%>
<a href ="admi_userInfo.asp?curpage=<%=curpage+1%>">下一页</a>
<%
end if if rs.pagecount < curpage+1 then
response.write("尾页")
else
%>
<a href ="admi_userInfo.asp?curpage=<%=rs.pagecount%>">尾页</a>
<%end if%>
</font> <a href="logout.asp">注销</a>
</html>
admi.asp
logout.asp（注销界面）
<%@Language="vbscript" Codepage="65001"%>
<!-- #include file="conn.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>注销界面</title>
</head>
</html>
<%
session("username")=""
session("password")=""
Response.Write(" 谢谢您的使用！返回 <a href='index.asp'>登录主页</a><br />")
%>
logout.asp
效果如下：（我是将以上代码文件都放在了C:\inetpub\wwwroot\test目录下，这里我设置的默认目录就是wwwroot）
（页面不美观、不要在意、自己设计哇......）
用asp连接Access数据库 制作简单登陆界面的更多相关文章
- ASP连接access 数据库的增删改查 - imsoft.cnblogs
假设数据库文件名叫data.mdb里面有2个表:1.admin2.news假设admin是保存用户名和密码,里面有字段:UserName,PassWord.假设我们要在判断一个用户名叫name,密码是 ...
- 🈲Eclipse通过jdbc连接数据库制作简单登陆界面【新手必看】
一.前言: 做网站开发,要求有多种搭配方式,前台技术可以使用PHP.ASP.JSP.ASP.NET.CGI等任何一种: 需要用到的基础语言用的最多的就是HTML/CSS.JS.JAVA.XML这些了, ...
- Eclipse通过jdbc连接数据库制作简单登陆界面
一.前言: 做网站开发,要求有多种搭配方式,前台技术可以使用PHP.ASP.JSP.ASP.NET.CGI等任何一种: 需要用到的基础语言用的最多的就是HTML/CSS.JS.JAVA.XML这些了, ...
- ASP连接ACCESS数据库
Set conn2 = Server.CreateObject("ADODB.Connection") conn2.Open "Provider=Microsoft.Je ...
- JSP制作简单登陆
JSP制作简单登陆界面 运行环境 eclipse+tomcat+MySQL 不知道的可以参考Jsp运行环境--Tomcat 项目列表 这里我先把jsp文件先放在Web-INF外面访问 需要建立的几个文 ...
- asp.net连接Access数据库实现登陆功能
这里话就不多说了,直接演示代码. 连接access数据库首先需要配置web.config <appSettings> <add key="AccessConnString& ...
- ASP.net分别连接SQLserver数据库与连接Access数据库精英版
-------------------------连接access2003 字符串------------------------- Provider=Microsoft.Jet.OLEDB.4.0; ...
- 【.net 深呼吸】连接Access数据库应注意的几点
本地数据库可以有Y种选择,比如Sqlite.SQL Server Express.SQL Local DB.SQL Server CE.Access等,本文老周选用比较著名的Access本地数据库,在 ...
- C#连接Access数据库(详解)
做一个用VS2012的C#连接Access数据库的备忘, SQL数据库固然强大,有大微软的强力技术支持,LINQ的方便操作,但是如果写一个小程序对数据库方面没有什么大的要求的话,将来在数据库方面就可以 ...
随机推荐
- IIS负载均衡-Application Request Route详解第一篇： ARR介绍
IIS负载均衡-Application Request Route详解第一篇: ARR介绍 说到负载均衡,相信大家已经不再陌生了,本系列主要介绍在IIS中可以采用的负载均衡的软件:微软的Applica ...
- 针对Eclipse闪退的两种解决方案
闪退情况是:双击Eclipse登陆按钮,显示图标后,紧接着关闭: 1. 到eclipse文件夹中的eclipse.ini打开编辑在最后加入下面代码保存即可 -Dorg.eclipse.swt.brow ...
- Springboot拦截器未起作用
之前遇到要使用springboot拦截器却始终未生效的状况,查了网上的博客,大抵都是@Component,@Configuration注解未加,或是使用@ComponentScan增加包扫描,但是尝试 ...
- K：有限状态自动机
有限状态自动机是一种特殊的状态机.它表示有限个状态以及在这些状态之间的转移和动作等行为的数学模型.有限状态自动机分为两种,一种是 确定有限状态自动机(DFA) ,一种是 非确定有限状态自动机(NF ...
- Dllmain的作用
DllMain函数是DLL模块的默认入口点.当Windows加载DLL模块时调用这一函数.系统首先调用全局对象的构造函数,然后调用全局函数 DLLMain.DLLMain函数不仅在将DLL链接加载到进 ...
- 列表 enumerat 解包, 针对索引和元素
dic = [1,2,3,4,5] for a,b in enumerate(dic): print(a,b) # a就是索引 b是元素
- [微信小程序] 微信小程序获取用户定位信息并加载对应城市信息，wx.getLocation，腾讯地图小程序api，微信小程序经纬度逆解析地理信息
因为需要在小程序加个定位并加载对应城市信息 然而小程序自带api目前只能获取经纬度不能逆解析,虽然自己解析方式,但是同时也要调用地图,难道用户每次进小程序还要强行打开地图选择地址才定位吗?多麻烦也不利 ...
- bootstrap前端框架使用总结分享
1.bootstrap 排版 全局样式style.css: 1.移除body的margin声明 2.设置body的背景色为白色 3.为排版设置了基本的字体.字号和行高 4.设置全局链接颜色,且当链接处 ...
- 依赖注入（一）构造函数注入（PHP）
构造函数注入(constructor injection)是依赖注入最常见的形式之一. 由名称可以看出,该技术需要我们把所有依赖显示的体现在构造函数中. 好了,直接上代码: <?php /** ...
- maven 项目目录图与web 应用结构图对比
web应用结构图 -war | | | |++++META-INF | | |----WEB-INF | | |-classes | | |com/baidu/controller/Controlle ...