分享
 
 
 

用ASP与ADO查询Web数据库

王朝asp·作者佚名  2006-01-08
窄屏简体版  字體: |||超大  

用ASP与ADO查询Web数据库

ASP和ADO简介

DO中可用VBScript、JavaScript 语言来控制数据库的访问(而ASP恰恰是脚本语言的解释环境)和查询结果的输出;ADO中使用RecordSets对象对数据库进行操作;可以连接多种支持OD BC的数据库。数据查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,服务器端须安装WindowsNTServer和InternetI nformationServ 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命令,对数据库进行查询、插入、更新、删除等操作。A询实例:港澳证件信息查询

本例要完成的操作是对港澳出入境数据库进行查询,客户可给出一种或几种查询条件,然后按要求显示查询结果。

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)是个函数,实现从数据源中取得编码所对应的汉字的功能。

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有