LotusDomino编写Web浏览器多数据库检索程序

'下列循环从满足条件的记录集中读取记录并输出： 

For i% = 1 To collection.Count
Set MatchDoc = collection.GetNthDocument(i%)
Print {<br><a href="http://www.chinaitpower.com/} &SearchDB &{/AllDocument/} & MatchDoc.UniversalID"
&{?OpenDocument">} 

Print "<b>"
'如果文档包含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
Print " <b>" & item.Name & "</b>: " & item.Text
End If
'如果文档包含Categories，则输出Categories： 

Set item = MatchDoc.GetFirstItem( "Categories" )
If Not (item Is Nothing) Then
Print item.Name & "</b>: " & item.Text
End If
'输出文档产生日期和作者： 

createDate = MatchDoc.Created
Print "Document create date:" &createDate
Print " Authors: "
Forall aAuthor In MatchDoc.Authors
Print aAuthor
End Forall
Print "</a><br>"
Next
Next
Out:
Print {</body></html>}
Exit Sub
EmptyQuery:
Print {<b>Search query can not be empty </b>}
Resume Out
BadQuery:
Print {<b>Query is not understandable: </b>"} & doc.Query(0) & {"}
Resume Out
End Sub