用ASP连接读写ACCESS数据库实例(转)

转载 2016年08月28日 23:44:23

(一)   数据库的选择:

有许多的数据库你可以选择,SQL SERVER、ACCESS(*.mdb)、EXCEL(*.xls)、FOXPRO(*.dbf)甚至普通的文本文件(*.txt)都可以达到存储数据的功能。那么到底选择什么数据库最合适呢?其中SQLSERVER是服务器级的,足以应付每天上万次的访问量。对于非服务器级的数据库建议使用ACCESS97。

因为:
(1)只要安装了PWS或IIS4肯定有ACCESS的ODBC驱动,即你的系统肯定支持ACCESS数据库的存取。
(2)ACCESS支持的SQL指令非常齐全。
(3)ACCESS ODBC驱动程序的效率非常高。虽然它不是服务器级的数据库,但是作为中小型企业内部网的数据库支持还是绰绰有余的。
(4)ACCESS97在OFFICE97中就有,非常方便得到和使用。

本文就以ACCESS数据库为准介绍基于WEB的数据库存取方法。

(二)例子:我们建立一个“客户”数据库,需要保存如下的客户资料:客户名称、联络人姓名、所在城市、电话号码。

(1)首先建立ACCESS数据库customer.mdb(今后有用的)。
      建立如下字段:客户名称、联络人姓名、所在城市、电话号码、客户编号、时间。将表保存为"客户"(今后有用的,===>看看图)。注意:建立字段时多作了2个(客户编号、时间),因为在今后排序时要用到它们。建议今后做数据库时最好都加上这2项,不会没用的。此外,在保存表时ACCESS会询问是否建立一个住关键字,我们不需要它所以不必建立。还有:时间字段的"默认值"设成"now()",即去系统当时的时间。同时将索引项设成"有(允许重复)",含义:WEB上极有可能同时存取数据,所以允许重复,索引设成"有"可以加快排序速度。===>看看图

(2)建立递交表单add.htm:

源代码如下:

<html>
<head>
<title>添加数据库记录</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF">
<p align="center"><font size="5">添加数据库记录</font></p>
<form method="post" action="adddatabase.asp">
<div align="center">
<table width="46%" border="0">
<tr>
<td width="28%">
<div align="right">公司名称: </div>
</td>
<td width="72%">
<input type="text" name="CompanyName">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">联络人姓名: </div>
</td>
<td width="72%">
<input type="text" name="CName">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">所在城市: </div>
</td>
<td width="72%">
<input type="text" name="City">
</td>
</tr>
<tr>
<td width="28%">
<div align="right">电话号码:</div>
</td>
<td width="72%">
<input type="text" name="Tel">
</td>
</tr>
<tr>
<td width="28%">
<div align="right"> </div>
</td>
<td width="72%">
<input type="submit" name="Submit" value="Submit">
<input type="reset" name="reset" value="Reset">
</td>
</tr>
</table>
</div>
</form>
</body>
</html>

这与普通的HTML没有任何区别,关键部分已经用红色标记了。递交方法用POST,递交后处理的程序是adddatabase.asp(下一步就重点讨论它)。

(3)关键部分:建立与数据库的联系并将表单中收集到的信息添加到ACCESS数据库中。

ASP代码放在〈%和%>之间。

adddatabase.asp程序内容:

<%
CompanyName =Request("CompanyName")
CName =Request("CName")
City =Request("City")
Tel = Request("Tel")
%>
    以上,首先取得表单中填写的数据,使用ASP的Request对象非常容易可以实现数据的收集。双引号中的就是上个文件中建立的各个输入框中的名字红色部分(NAME=。所以今后为每个输入框起名字是个好习惯,尽管有时候并不一定用得到。这样取得的数据就保存在等号坐侧的变量中了。

If CompanyName ="" Or CName = "" Or City = "" Or Tel ="" Then
Response.Write"<html><body><center><font size=5>请将资料填写完整。</font></center></body></html>"
'Response.Redirect"error.htm"
Response.End
End If

这里是检测各个项目是否输入了东西,如果为空则不往下继续执行,显示错误信息。注意:你可以使用两种方法。我都列出了。
方法一:使用Response.Write方法写一个出错页面,类似于java scripts的document.write写法,只是ASP使用Response.write罢了。
方法二:使用Response.Redirect方法导向出错页面error.htm。我在方法一的代码前加上单引号表示注释。('ASP中表示注释用单引号')。

<%
setdbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath =Server.MapPath("customer.mdb")
dbconnection.Open"driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>

程序解释:
(1)建立Connection对象:dbconnection,建立一个连接(Connection)是数据库存取的开始。我们使用ASP的内建对象方法Server.Createobject建立与数据库的连接。ADODB是ASP的数据库存取组件,不必担心只要有ASP就有它了,是内置的。
(2)使用dbconnection.open方法打开数据库customer.mdb。driver参数语法: driver={Microsoft Access Driver (*.mdb)}必须这么写。告诉系统使用ACCESS ODBC驱动处理。dbq参数用来指定打开的数据库文件,它必须是完整的路径。例如"c:\inetpub\wwwroot\customer\customer.mdb",我们使用Server.MapPath的方法取得数据库的完整路径。  

<%
Set rs =Server.CreateObject("ADODB.Recordset")
%>

建立Recordset对象rs。Connection仅仅是建立了与数据库间的连接,要存取数据还应该再建立Recordset对象。

rs.Open "客户", dbconnection,adOpenDynamic, 3

打开数据库中的表"客户"(客户是表名)。 语法:

rs.open 数据表名或SQL指令,已经建立的Connection对象(这里是dbconnection), 锁定类型

<%
rs.AddNew
rs("公司名称") =CompanyName
rs("联络人姓名") = CName
rs("所在城市") = City
rs("电话号码") = Tel
rs.Update
%>

用AddNew向数据库请求添加数据。最后用Update写入。注意:等号右侧的变量保存着用Request取得的表单数据。双引号内的就是数据库的字段,应该与数据库的一致啊。否则会出错的。这样变量内的数据就写入了数据库对应的字段内了。

Response.Write"<html><body><center><font size=5>祝贺,您的数据已经添加进数据库了!<p>"
Response.Write"<a href='viewdatabase.asp'>查看数据</a>"
Response.Write"</font></center></body></html>"

'写入成功后显示祝贺信息并建立查看数据库记录的连接。

%>

 

(4)显示/查看数据库记录:

<%
setdbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath =Server.MapPath("customer.mdb")
dbconnection.Open"driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath

'建立与数据库的连接,与上同。

SQL="select * from 客户 Order By 时间 DESC"
SETCustomerList=dbconnection.EXECUTE(SQL)
%>

    建立SQL查询语句,表示从"客户"表中查询所有记录,Order By 时间 DESC表示"按时间降序排序,"这样最后添加的信息再最上面显示。下面一句执行SQL查询并将结果返回给Recordset对象CustomerList。

<html>
<body>
<FONTSIZE="5"><center>数据库记录</center></FONT>
<CENTER>
<TABLE BORDER=1>
<tr>

<td>编号</td>
<td>公司名称</td>
<td>联络人姓名</td>
<td>所在城市</td>
<td>电话号码</td>
</tr>
<% DO WHILE NOTCustomerList.EOF %>

'检测记录是否到了最后一条。EOF表示End of File。

<TR>
<TD><%=CustomerList("客户编号") %></TD>
<TD><%=CustomerList("公司名称") %></TD>
<TD><% =CustomerList("联络人姓名")%></TD>
<TD><%=CustomerList("所在城市") %></TD>
<TD><%=CustomerList("电话号码") %></TD>
</TR>

<%=CustomerList("客户编号") %>可以说是Response.Write方法的简写。将"客户编号"字段内的数据写入TD标签间。

<%

CustomerList.movenext

loop

%>

如果还没有到最后一条则指针移动到下一条。用Do While ... Loop循环逐一取得所有的记录。

</TABLE>
</CENTER>


<center>
<inputtype="button" onclick="java script:location.href='add.htm'"value="添加数据">
</center>
</BODY>
</HTML>

RS.OPEN SQL,CONN,A,B

A:

ADOPENFORWARDONLY(=0)
只读,且当前数据记录只能向下移动

ADOPENKEYSET(=1)
只读,当前数据记录可自由移动

ADOPENDYNAMIC(=2)
可读写,当前数据记录可自由移动

ADOPENSTATIC(=3)
可读写,当前数据记录可自由移动,可看到新增记录

B:

ADLOCKREADONLY(=1)
缺省锁定类型,记录集是只读的,不能修改记录

ADLOCKPESSIMISTIC(=2)
悲观锁定,当修改记录时,数据提供者将尝试锁定记录以确保成功地编辑记录。只要编辑一开始,则立即锁住记录。

ADLOCKOPTIMISTIC(=3)
乐观锁定 ,直到用Update方法提交更新记录时才锁定记录。

ADLOCKBATCHOPTIMISTIC(=4)
批量乐观锁定,允许修改多个记录,只有调用UpdateBatch方法后才锁定记录。

当不需要改动任何记录时,应该使用只读的记录集,这样提供者不用做任何检测。
对于一般的使用,乐观的锁定可能是最好的选择,因为记录只被锁定一小段时间,
数据在这段时间被更新。这减少了资源的使用。
===========================================================

 

数据库连接:

<%

set conn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver(*.mdb)};dbq="&server.mappath("数据库名")

%>

 

 

打开数据库:

exec="select * from 数据库表"

setrs=server.createobject("adodb.recordset")

rs.open exec,conn,1,1

参数1,1为读取

 

读取内容格式:<%=rs("字段")%>

 

添加记录处理程序:

<%

setconn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver(*.mdb)};dbq="&server.mappath("数据库名")

name=request.form("字段") name,tel,message为提交表单所设置的字段值

tel=request.form("字段")

message=request.form("字段")

exec="insert into 表名(字段)values('"+字段+"')"多个用逗号隔开

conn.execute exec 使用execute提交

conn.close

set conn=nothing

%>

 

搜索处理程序:

<%

name=request.form("字段") name,tel为提交表单所设置的字段值

tel=request.form("字段")

setconn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver(*.mdb)};dbq="&server.mappath("数据库名")

exec="select * from 表 where name='"+字段+"' and tel="+字段

setrs=server.createobject("adodb.recordset")

rs.open exec,conn,1,1

%>

'页面搜索到的内容导出来

<%

do while not rs.eof

%><tr>

<td><%=rs("name")%></td>

<td><%=rs("tel")%></td>

<td><%=rs("time")%></td>

</tr>

<%

rs.movenext

loop

%>

 

删除记录处理程序:

<%

setconn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver(*.mdb)};dbq="&server.mappath("数据库名")

exec="delete * from 表名 where 编号="&request.form("id")

conn.execute exec

%>

 

 

修改记录处理程序:

<%

setconn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver(*.mdb)};dbq="&server.mappath("数据库名")

exec="select * from 表名 where 编号="&request.form("id")

set rs=server.createobject("adodb.recordset")

rs.open exec,conn,1,3 '1,3为修改意思

rs("name")=request.form("字段") 'name,tel,message为提交表单所设置的字段值

rs("tel")=request.form("字段")

rs("message")=request.form("字段")

rs.update

rs.close

set rs=nothing

conn.close

set conn=nothing

%>

修改记录执行程序:输入ID号页面>>>导出相对应ID数据>>>>>>直接修改的处理程序

 

后台登陆处理程序例子:

<%

dim name,password

name=request.form("name")

password=request.form("password")

dim exec,conn,rs

exec="select *from 表名 where(name='"&字段&"' and password='"&字段&"')"

setconn=server.createobject("adodb.connection")

conn.open "driver={microsoft access driver(*.mdb)};dbq="&server.mappath("数据库名")

setrs=server.createobject("adodb.recordset")

rs.open exec,conn

if not rs.eof then

rs.Close

conn.Close

session("checked")="yes"

session("check")="right"

response.Redirect "index.asp"

else

session("checked")="no"

session("check")="wrong"

response.Redirect "login.asp"

end if

%>

 

每个后台页面加上:

<%if notsession("checked")="yes" then 'session里面定义一个checked字符串变量

response.Redirect "login.asp" 

else

%>

 

本篇文章来源于 黑客基地-全球最大的中文黑客站 原文链接:http://www.hackbase.com/tech/2009-11-11/57879.html


相关文章推荐

【ASP】ASP对Access数据库的连接、增删改查及ASP的基本语法

本文讨论的是ASP,而不是Visual Studio写出来的.ASPX也就是ASP.NET。 ASP不需要任何插件的支持,关键你是配置好WINDOWS的IIS服务器,把页面扔在上面执行就可以了。 不同...
  • yongh701
  • yongh701
  • 2014年11月09日 20:09
  • 12484

IIS7.5安装后ASP+access数据库连接错误的问题解决办法

第一步、安装IIS。 开始——控制面板——程序和功能——打开关闭Windows功能,找打Internet信息服务然后打勾,记得要在应用程序开发功能里勾选asp,和asp.net,然后找到Inte...

ASP连接MYSQL并读取数据

我的测试环境 系统WIN2003 绿色版MYSQL5.5.20 NETBOX迷你绿色版IIS服务器 mysql-connector-odbc-5.2.2-win32.msi ...

ASP连接各种数据库的方法(大全)

ASP连接Access数据库(DSN-less连接方法): set adocon=Server.Createobject(“adodb.connection”) adoconn.Open”Driv...
  • form88
  • form88
  • 2017年03月26日 20:17
  • 447

ASP逐条读取ACCESS数据库里面的数据

%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>lovehui dim conn,sql,rs Set conn = Server.CreateObject("ADODB....

【ASP】连接Access数据库的登陆系统

一、基本目标 首先在Access数据库Database.mdb中存在着用户信息表test: 编写一个登陆系统,如果用户输入的用户名在表中没有,则提示“查无此人”,如果输入密码错误,则提示“密码错误...

asp操作access数据库的读写删

打开数据库 %On Error Resume NextSet conn = Server.CreateObject("ADODB.Connection")connstr="Provider=Micro...

asp.net连接Access数据库例子

             Dim myConnection As OleDbConnection     Dim myCommand As OleDbCommand    sub page_load(...
  • sparon
  • sparon
  • 2005年04月26日 22:56
  • 1147

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

JavaScript操作数据库JS操作Access数据库

JavaScript操作数据库JS操作Access数据库,跟其他语言操作差不多,总结了一下习惯代码,仅供参考学习。现在在F盘有文件abc.mdf,表名为Student,一共2个字段,Id数字类型主键,...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用ASP连接读写ACCESS数据库实例(转)
举报原因:
原因补充:

(最多只允许输入30个字)