’输出该数据库中满足条件的记录个数：
There are " & Str$(collection.Count) & " matching
documents
’下列循环从满足条件的记录集中读取记录并输出：
For i% = 1 To collection.Count
Set MatchDoc = collection.GetNthDocument(i%)
’如果文档包含Subject或Title，则输出Subject或Title：
Set item =MatchDoc.GetFirstItem( "Subject" )
If ( item Is Nothing ) Then
Set item = MatchDoc.GetFirstItem( "Title" )
End If
If Not (item Is Nothing) Then
" & item.Name & ": & item.Text
End If
’如果文档包含Categories，则输出Categories：
Set item = MatchDoc.GetFirstItem( "Categories" )
If Not (item Is Nothing) Then
Print item.Name & ": " & item.Text
End 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 not be empty
Resume Out
BadQuery:
Query is not understandable: " & doc.Query(0) & {"
Resume Out
End Sub
5 总 结
5.1 Web服务的应用越来越广，其数据索引也随之有增无减。同时，在编写Web数据库检索代码时，既要考虑其安全性，又要确保应用的高质量，致使及时开发相应的数据库检索程序越来越迫切。
5.2 ASP技术是中小型自主开发网上数据库服务系统工具。本文从Web网上数据库检索系统的设计出发，探讨了如何利用ASP技术进行有效的网上数据库检索系统的开发利用，具有较强的现实意义。
参考文献：
[1] 刘云生.数据库设计与分析[M].武汉：华中理工大学出版社,1993．
[2] 严蔚敏，吴伟民.数据结构[M].北京:清华大学出版社,2001．
[3] 郑若忠，宁洪.数据库原理[M]．湖南:国防科技大学出版社,1998．
[4] 李大友.数据库原理及应用[M].北京:清华大学出版社,1993．
上一页 [1] [2]