如调用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中取得欲检索的数据库进行处理:
FornsfCount=0ToUbound(ArrNsf)
SearchDB=ArrNsf(nsfCount)
Setdb=sess.GetDatabase("",SearchDB)
’出现错误则转向:
OnErrorGotoBadQuery
’获得满足查询条件的记录集:
Setcollection=db.FTSearch(doc.Query(0),0)
OnErrorGoto0
’输出数据库标题: ’输出该数据库中满足条件的记录个数:
Thereare"&Str$(collection.Count)&"matching
documents
’下列循环从满足条件的记录集中读取记录并输出:
Fori%=1Tocollection.Count
SetMatchDoc=collection.GetNthDocument(i%)
’如果文档包含Subject或Title,则输出Subject或Title:
Setitem=MatchDoc.GetFirstItem("Subject")
If(itemIsNothing)Then
Setitem=MatchDoc.GetFirstItem("Title")
EndIf
IfNot(itemIsNothing)Then
"&item.Name&":&item.Text
EndIf
’如果文档包含Categories,则输出Categories:
Setitem=MatchDoc.GetFirstItem("Categories")
IfNot(itemIsNothing)Then
Printitem.Name&":"&item.Text
EndIf
’输出文档产生日期和作者:
createDate=MatchDoc.Created
Documentcreatedate:&createDate
Authors:
ForallaAuthorInMatchDoc.Authors
PrintaAuthor
EndForall
Next
Next
Out:
ExitSub
EmptyQuery:
Searchquerycannotbeempty
ResumeOut
BadQuery:
Queryisnotunderstandable:"&doc.Query(0)&{"
ResumeOut
EndSub
5总结
5.1Web服务的应用越来越广,其数据索引也随之有增无减。同时,在编写Web数据库检索代码时,既要考虑其安全性,又要确保应用的高质量,致使及时开发相应的数据库检索程序越来越迫切。
5.2ASP技术是中小型自主开发网上数据库服务系统工具。本文从Web网上数据库检索系统的设计出发,探讨了如何利用ASP技术进行有效的网上数据库检索系统的开发利用,具有较强的现实意义。