用ASP与ADO查询Web数据库

---摘自《计算机世界报》（文/聂洪山）
ASP和ADO简介

ASP(Active Server Pages)是一个服务器端的(Server-side)脚本执行环境,用户可用它产生和执行动态的、交互的、高性能的Web服务器应用程序。当脚本在服务器端而不是在客户端执行时,Web服务器将完成产生发往浏览器的HTML(Hypertext Markup Langua ge)页的所有工作。图1
图1是ASP的工作模式。当浏览器向Web服务器提出文件(.asp)的请求时,一个ASP脚本就开始执行,这时Web服务器调用ASP,把该文件全部读入并执行每一条命令,然后将结果以HTML页面形式送回浏览器。
ADO(ActiveX Data Object,ActiveX数据对象)是一个ASP内置的A ctiveX服务器组件(ActiveX Server Component),用于数据库访问,可把它与ASP结合起来,建立提供数据库信息的网页内容,对数据库进行查询、插入、更新、删除等操作。
要执行ADO,服务器端须安装Windows　NT　Server和Internet　I nformation　Serv er(IIS),而客户端只要有IE或Netscape较新版本的浏览器即可。站点数据库访问的几种方案
实现Web数据库访问大致可分为两类,一类是以Web服务器作为中介,把浏览器和数据源连接起来,在服务器端执行对数据库的操作;另一类是把应用程序和数据库下载到客户端,在客户端执行对数据库的访问。
1. 公共网关接口CGI(Common Gateway Interface)
当浏览器发出HTTP请求时,Web服务器执行相应的应用程序,访问站点数据库,并将查询结果以HTML格式送回到浏览器。这种方式有很多缺点,功能有限、开发困难,且不具备事务处理(Transaction)功能, 这在很大程度上限制了它的应用。
2. Internet数据库连接器IDC(Internet Database Connector)
这是一种简易方案,对数据库的操作仍然放在Web端,但用户可通过SQL(Structured Query Language)语句对数据库进行查询、输入、更新、删除等操作。IDC设计简易,不用编译就可直接执行,且支持对数据的多重查询(Multiple Query)。
3. 先进数据库连接器ADC(Advanced Data Connector)
前两种方案中对数据库的操作都是在服务器端进行,而ADC是在浏览器端执行数据查询动作。当浏览器提出对数据库的操作请求时,ADC 先将相应的数据库下载到浏览器端,在用户端对数据库进行操作。显然,这种方案效率很高。客户端对数据库的查询是由安装在客户端的A DC ActiveX Control完成的,而这个ActiveX Control是由站点服务器自动下载并安装在客户端的。
4. ADO与ASP
这是一种完全的Web数据库访问方案,可把ADO与ASP结合起来,建立提供数据库信息的网页内容,在网页中执行SQL命令,对数据库进行查询、插入、更新、删除等操作。ADO中可用VBScript、JavaScript 语言来控制数据库的访问(而ASP恰恰是脚本语言的解释环境)和查询结果的输出;ADO中使用RecordSets对象对数据库进行操作;可以连接多种支持OD BC的数据库。数据查询实例:港澳证件信息查询
本例要完成的操作是对港澳出入境数据库进行查询,客户可给出一种或几种查询条件,然后按要求显示查询结果。
1. 确定数据源
要访问网上数据库,首先设定数据来源。在服务器上打开"我的电脑"中的"控制面板",双击"ODBC";在"系统DSN"下选"添加",选出预先设好的数据库种类、名称和位置。这里要用到的是FoxPro数据库,数据源名称为GACX,主数据库名称为visa.dbf,编码数据库名称为zd.dbf 。
2. ADO查询数据库的使用
ADO查询数据库的设计方法是先用Server.CreatObject取得对象" ADODB.Connection "的一个实例,并用"Open"打开待访问的数据库:
Set Conn=Server.CreatObject("ADODB.Connection")
Conn.Open "待访问的数据库名称"
然后执行SQL命令,即对数据库进行操作,这里要使用Execute命令 :
Set RS =Conn .Execute( " Select ...From...Where...")下一步就可对数据库进行查询操作,要用到RecordSets对象的如下命令:
* RS.Fildes.Count
RecordSets的字段数
* RS(i).Name
第i个字段名
* RS(i)
第i个字段的记录
* RS("字段名")
指定字段的记录
* RS.EOF
是否指向最后一个字段 True or False
* RS.MoveFirst
指向第一条记录
* RS.MovePrev
指向前一条记录
* RS.MoveNext
指向后一条记录
* RS.MoveLast
指向最后一条记录
* RS.GetRows
将查询结果存放在数组中,然后再从数组中读取
* RS.Properties.Count
得到ADO的Connection或ResultSet的属性总数
* RS.Properties(Item).Name 得到ADO的Connection或ResultSe t的属性名称
* RS.Properties(Item)
得到ADO的Connection或ResultSet的属性值
3. 具体实现
主页面为港澳证件信息查询,对应程序为gacx.asp。查询结果以两种方式显示,一是显示主要信息——港澳证件信息查询结果列表,对应程序为gacxlb.asp;一是显示全部信息——港澳证件信息查询结果, 对应程序为gacxxq.asp。如果查询条件不能满足时,还将显示一个提示页面,告诉用户不存在满足条件的结果,由程序gacxts.asp完成。
根据客户提供的数据库和要求查询的各项内容建立查询、查询结果、查询结果列表页面,并给出一个简单的提示界面,告诉用户不存在满足条件的结果,请重新查询,这些工作可用FrontPage 98完成,整个页面应该做到简洁大方,主题鲜明。程序代码在Microsof t Visual I nterDev下编写。
下面处理编码数据库zd.dbf中的内容。从图2中可看到有很多带下拉框的选项,例如"性别"、"出生地"等,这些选项的内容都是从zd.d bf数据库中提取出来的。因为有的选项内容很多,例如出境口岸有101 项之多,虽然也可用< select><option>...</option></se lect>格式在HTML页面中把各个选项列举出来,但将给程序的维护带来很大麻烦, 一旦编码数据库的内容有变动,程序也将作很多修改。而且带下拉框的选项都是在zd.dbf中编码,往主数据库中输入数据时这些选项都只输入编码,但显示时却不能显示编码,必须把编码对应的汉字显示出来。这段程序代码如下(以性别为例): 图2
<%
Set Conn=Server.CreatObject("ADODB.Connection")
Conn.Open "GACX"
Set RS =Conn.Execute("Select BC,MC From zd Where BC Like "se%"")
Response.Write"<SELECT SIZE=1 NAME="SEX">"Do While Not R S.EOF
Response.Write"<option value=‘"RS(0)"'>"&RS(1)
Rs.MoveNext
Loop
Response.Write "</SELECT>"
RS.Colse
Conn.Colse
%>
其中,zd.dbf包含两个字段MC、BC,MC表示待编码项,如男、女,BC 表示编码,如性别编码的前两位为"se",男用"se1"表示,女用"se2" 表示。
数据库查询中最重要的是如何取得查询条件。本例中要查询的项可以分为两类:一类是输入的text类的查询条件,另一类是从下拉框中选出来的项,在处理时要区别对待。te xt类型的查询条件很好处理, 例如姓名,笔者输入的内容命名为"xm",如果输入的查询项不为空时就增加一个查询条件"NAME=Request.Form("xm")"即可。下拉框的处理较复杂,当下拉框选中一项时,例如性别选中男,下拉框中输入的是"se 1"(但反映在数据库中时为"S EX=1",因为数据库中输入字典中带编码的项时只输入编码),就是要查询"SEX=se1"的项。处理时要把"se1"中的"1"提取出来,用一个函数mid即可,查询条件为"SEX=mid("se1",3, 1)",即从数据库中查找SEX=1的项,并把所有满足条件的项不重复地列举出来。
查询结果显示很容易实现,只须把查询结果的每条记录按列表的方式显示出来即可,但在显示查询结果时要显示编码对应的汉字,就是到字典中去找编码为"se"&"1" 的项所对应的编码值,程序如下:
<table border="1" width="95%" bordercolor="#C0C0C0" cell spacing="0" cell padding="0"
bordercolorlight="#C0C0C0" bordercolordark="#C0C0C0" he ight="60">
<tr>
<td width="9%" align="center" height="1"><p align="cente r">姓　 名</td>
<td width="12%" align="center" height="1">档 案 号</td>
<td width="6%" height="1"><p align="center">性别</td>
......
</tr>
<%i=1%>
<%While Not RS.EOF %>
<tr>
<td width="9%" align="center" height="1"><%=RS ("name") %></td>
<td width="12%" align="center"height="1"><%=RS ("dang") %></td>
<td width="6%" height="1"><%=Func ("se" & RS("sex"),GAC X)%></td>
......
</tr>
<%RS.MoveNext%>
<%i=i+1%><%WEnd%></table>
其中,Func ("se" & RS("sex"),GACX)是个函数,实现从数据源中取得编码所对应的汉字的功能。