基于ASP技术开发Web数据库检索程序网络毕(2)

2013-10-16 01:17

导读：Rs.PageSize=10‘设置一页所显示的记录数’ 3.2.4操作数据库（1）首先要定义SQL查询语句： Dimsql‘申明变量’ sql="select*frompublicationwheretitlelike’ASP%%’"‘定义

Rs.PageSize=10‘设置一页所显示的记录数’
3.2.4操作数据库
（1）首先要定义SQL查询语句：
Dimsql‘申明变量’
sql="select*frompublicationwheretitlelike’ASP%%’"‘定义SQL查询语句’，检索数据库的publication表中名以ASP开头的所有信息的记录。
ConstadOpenkeyset=1‘定义Recordset的类型’
（2）然后执行该查询命令，Rs.OpenSql,conn,adOpenkeyset‘执行sql语句’，在数据对象Rs中保存检索结果。
如调用Server.CreateObject方法取得“ADODB.Connection”的实例，再使用Open方法打开数据库：
conn=Server.CreateObject(“ADODB.Connection”)
　　conn.Open(“HT”)
　　来操作数据库。
（3）最后指定要执行的SQL命令
　　连接数据库后，可对数据库操作，如查询，修改，删除等，这些都是通过SQL指令来完成的，如要在数据表signaltab中查询代码中含有“X”的记录
　　sqlStr=“select*fromsignaltabwherecodelike‘%X%’”
　　rs=conn.Execute(sqlStr)
4数据库检索代码
基于ASP技术开发的Web数据库检索程序，是利用数据库检索系统网络结构和开发工具，将多个数据库集成在一个平台上，来实现多数据库的检索，从而提高数据库的检索效率。
以下是一个全文索引的数据库检索部分代码：
SubInitialize
DimArrNsfAsVariant
DimitemAsNotesItem
’获得文档context，因为此代理是一个$$QuerySaveAgent,所以$$QuerySaveAgent
可以访问Context文档上的项目。
DimsessAsNewNotesSession
DimdocAsNotesDocument
Setdoc=sess.DocumentContext
’获得欲检索的数据库，存放在数组ArrNsf内：
ArrNsf=doc.DatabaseName
’如果没有输入检索条件，则输出提示信息：
IfTrim(Cstr(doc.Query(0)))=""Then
GotoEmptyQuery
EndIf
DimMatchDocAsNotesDocument
DimdbAsNotesDatabase,
DimcollectionAsNotesDocumentCollection
’下列循环从数组ArrNsf中取得欲检索的数据库进行处理：

您可以访问中国科教评价网（www.NsEac.com）查看更多相关的文章。

FornsfCount=0ToUbound(ArrNsf)
SearchDB=ArrNsf(nsfCount)
Setdb=sess.GetDatabase("",SearchDB)
’出现错误则转向：
OnErrorGotoBadQuery
’获得满足查询条件的记录集：
Setcollection=db.FTSearch(doc.Query(0),0)
OnErrorGoto0
’输出数据库标题：