基于ASP技术开发Web数据库检索程序

1、       基于asp技术开发web数据库检索程序                     摘 要：文章以asp技术为基础，介绍了基于asp技术开发数据库检索程序的产生机理和方法，并针对web数据库检索程序特点，采用全文检索数据库方式，来实现基于asp技术开发web数据库检索程序。关键词：asp技术；web数据库；检索程序1 前 言1.

2、1 asp（active service page），是微软推出的动态web设计技术，是一种用于www服务的服务器端脚本环境，在站点的web服务器上解释脚本，可产生并执行动态、交互式、高效率的站点服务器应用程序。利用它，可以很容易地把html标记、文本、脚本命令及activex组件混合在一起构成asp页，以此来生成动态网页，创建交互式的web站点，实现对web数据库的访问。1.2 当用户使用浏览器请求asp主页时，web服务器响应，调用asp引擎来执行asp文件，并解释其中的脚本语言（jscript 或vbscript），通过odbc连接数据库

3、，由数据库访问组件ado（activex data objects）完成数据库操作，最后asp生成包含有数据查询结果的html主页返回用户端显示。2 asp技术及访问机理 由于asp在服务器端运行，运行结果以html主页形式返回用户浏览器。asp技术的核心是内置的activex服务器组件和对象。activex服务器组件包括数据库访问组件(database access component)，提供访问服务器数据库的功能；文件访问组件(file access component)，提供读写服务器文件的功能；广告轮播器组

4、件(ad rotator component)，提供广告轮播器的功能；内容链接组件(content linking component)，提供管理超级链接、等链接功能；浏览器信息组件（browser capabilities component），提供有关浏览器信息。内置对象包括请求（request），从前端用户取得信息；响应（response），将信息送给前端用户；服务器（server），提供web服务器工具。应用（application），管理所有的会话信息，供所有用户共享；会话（session），储存一次会话内的用户信息，仅被该

5、用户访问；对象上下文（objectcontext），配合transaction服务器进行分布式事务处理。 3 数据库检索程序的开发asp技术是开发网上数据库服务系统的重要手段，利用asp技术可以进行有效的网上数据库检索系统的开发利用。3.1 通用检索主页的设计通用检索主页的设计，实际就是对一个html form表单进行编码和提交的过程。form表单是html中能够实现web页面交互性的重要组成部分，它为web页面提供了丰富的交互对象,可以方便地完成信息查询条件的录入及数据库、检索途径的选择等。3.2 数据库接口程序设计数据库接口程序设计的关键是

6、通过activex服务器组件ado及包含的对象，实现对数据源的读写，用户可在浏览器画面中检索、输入、更新和删除数据库信息，从而建立提供数据库信息的主页内容。ado主要提供了七个对象和四个集合来完成对于数据库的管理，包括：connection、command、parameter、recordset、field、property、error以及fields、properties、parameters、errors。 3.2.1 定义数据源在web服务器上打开“控制面板”，选中“odbc”，在“系统dsn”下选“添加”，选定你希望的数据库种类、名称、位置等。本文定义“sql

7、60;server”，数据源为“ht”，数据库名称为“htdata”，脚本语言采用jscript。3.2.2 创建数据库链接(connection) 创建数据库链接(connection)。通过服务器对象的createobject方法，可以创建connection对象和使用变量接受对象引用。一旦连接对象创建之后，它就可用来打开到任何odbc数据源的连接。3.2.3 创建数据对象(recordset)创建数据对象(recordset)。dim rs 申明变量set rs=server.creatobject("adodb.re

8、cordset") 创建数据对象rs.pagesize=10 设置一页所显示的记录数3.2.4 操作数据库 （1）首先要定义sql查询语句：dim sql 申明变量sql="select * from publication where title like asp%" 定义sql查询语句，检索数据库的publication表中名以asp开头的所有信息的记录。const adopenkeyset=1 定义r

9、ecordset的类型 （2）然后执行该查询命令，rs.open sql,conn, adopenkeyset 执行sql语句，在数据对象rs中保存检索结果。如调用server.createobject方法取得“adodb.connection”的实例，再使用open方法打开数据库：conn = server.createobject(“adodb.connection”)conn.open(“ht”)来操作数据库。（3）最后指定要执行的sql命令连接数据库后，可对数据库操作，如查询，修改，删除等，这些都是通过sql指令来完成的，如要

10、在数据表signaltab中查询代码中含有“x”的记录sqlstr = “select * from signaltab where code like %x%”rs = conn.execute(sqlstr)4 数据库检索代码基于asp技术开发的web数据库检索程序，是利用数据库检索系统网络结构和开发工具，将多个数据库集成在一个平台上，来实现多数据库的检索，从而提高数据库的检索效率。以下是一个全文索引的数据库检索部分代码：sub initialize 

11、dim arrnsf as variant dim item as notesitem 获得文档 context，因为此代理是一个$querysaveagent,所以$querysaveagent 可以访问 context文档上的项目。dim sess as new notessession dim doc as notesdocument set doc = ses

12、s.documentcontext 获得欲检索的数据库，存放在数组arrnsf内： arrnsf= doc.databasename 如果没有输入检索条件，则输出提示信息： if trim(cstr(doc.query(0)="" then goto emptyquery end if dim matchdoc as notesdocument dim db as notesdataba

13、se, dim collection as notesdocumentcollection 下列循环从数组arrnsf中取得欲检索的数据库进行处理： for nsfcount=0 to ubound( arrnsf ) searchdb=arrnsf(nsfcount) set db = sess.getdatabase("",searchdb) 出现错误则转向： on error

14、60;goto badquery 获得满足查询条件的记录集：set collection = db.ftsearch(doc.query(0),0) on error goto 0 输出数据库标题：  1 2 输出该数据库中满足条件的记录个数： there are " & str$(collection.count) & " matching

15、 documents下列循环从满足条件的记录集中读取记录并输出： for i% = 1 to collection.count set matchdoc = collection.getnthdocument(i%) 如果文档包含subject或title，则输出subject或title： set item =matchdoc.getfirstitem( "subject" ) if 

16、( item is nothing ) then set item = matchdoc.getfirstitem( "title" ) end if if not (item is nothing) then " & item.name & ": & item.text&#

17、160;end if 如果文档包含categories，则输出categories： set item = matchdoc.getfirstitem( "categories" ) if not (item is nothing) then print item.name & ": " & item.text end&#

18、160;if 输出文档产生日期和作者： createdate = matchdoc.created document create date: &createdate authors: forall aauthor in matchdoc.authors print aauthor end forall next next out: exit sub emptyquery: search query can n