大家好，才是真的好。

前面我们都在说使用Domino自带的视图搜索功能，这一篇也是，不过不是视图搜索，而是整个Notes数据库搜索，然后再将结果返回给浏览器网页呈现。

前提和前面两篇都是一样的，即Notes应用需要先创建索引。

这个在数据库的属性中很好创建的。

接着，我们新建一个表单，名字就叫frmsearch吧，里面非常简单，新建两个字段，一个叫做Query_String——Domino内置的GCI变量，可以捕获URL地址参数，再新建一个富文本字段叫做Body，可计算，值也是Body，如下图所示：

body字段前后可以空格，然后选择文本菜单里面的“内置HTML”，如下图所示：

接着，我们直接创建一个代理，例如名称为agtSearchDoc，设置属性为按日程运行，从不运行，如下图所示：

然后开始填充如下代码：

 On Error GoTo CommomErrHandler		

		Dim session As New NotesSession

		Dim db As NotesDatabase

		Dim collection As NotesDocumentCollection

		Dim doc As NotesDocument

		Dim docSearch As NotesDocument

		Dim strQuery As String

		Dim strResults As String

		'//获取当前数据库和当前界面的文档

		Set db = session.CurrentDatabase

		Set doc = session.DocumentContext

		'//获取URL中的"&Query="参数，即用户的查询关键字 

		strQuery = StrRight(doc.Query_String(0), "&Query=")

		

		'//进行数据库全文索引搜索

		Set collection = db.FTSearch(strQuery, 0)

		'//如未搜索到文档，展示错误信息

		If collection.Count = 0 Then

			doc.Body = "未找到文档"

			Exit Sub

		End If

	'//有返回文档，放到Html中的<a>热点标签里面，这样用户就可以点击文档链接

		strResults = ""

		Set docSearch = collection.GetFirstDocument

		While Not docSearch Is Nothing

			strResults = strResults + Chr(13) + |<p><a href="./0/| + docSearch.UniversalID+|"> Unid: | + docSearch.UniversalID + |</a></p>|

			Set docSearch = collection.GetNextDocument(docSearch)

		Wend

		doc.Body = strResults

		Exit Sub

		CommomErrHandler:		                      doc.Body = "代理中出现错误 #" + CStr(Err) + " - " + Error$ + " on line " + CStr(Erl)

Exit Sub

效果如下图所示：

再回到表单中找到WebQueryOpen事件，在Web打开之前运行上面的代理程序agtSearchDoc，如下图所示：

最后，在Web中预览，采用URL地址进行搜索，URL格式为http://host/dbname/formname?openform&Query=keyword，本例为http://domsrv01.xdomino.com/fakes.nsf/frmsearch?openform&Query=Norway，就能显示搜索结果了，如下图所示：

为了更加实用化，我们可以在表单中再创建一个字段，例如searchText，然后加上一个按钮叫做search，Search按钮用来执行搜索操作，JS代码如下：

searchTxt = document.forms[0].searchText.value;

newurl = 'frmsearch?openform&Query=' + searchTxt;

window.location= newurl;

进行搜索时更有成就感：

当然，搜索结果需要很多改进的地方，例如可以显示文档的主要字段，链接、选择框等等，这个都可以在代理中拼接HTML标签来实现。不过，今天我们就讲到这里吧。

更多精彩内容请关注微信公众号：协作者