邮件服务器-邮件系统-邮件技术论坛(BBS)

标题: chinalotus技术代码经典之五：在web全文检索中提交查询的代理 [打印本页]

作者: show234 时间: 2007-11-5 10:57
标题: chinalotus技术代码经典之五：在web全文检索中提交查询的代理
notes
在web全文检索中提交查询的代理
（阿瑞）
　　notes在web中执行全文检索时,需要通过代理执行。先看一下查询表单页面：
　　单击“确定”按钮后，就会执行wsearchsubmit代理，以下是在公文流转中的web全文检索中wsearchsubmit代理的Initialize源代码：
Sub Initialize
'This code creates the search condition by using the form wsearch
Dim ResultDoc As notesdocument
Dim targetview As notesview
Dim iNum As Integer
Set session = New NotesSession
Set db = session.CurrentDatabase
Set note = session.DocumentContext
Set targetview=db.getview("($all)")
If db.IsFTindexed Then
If ( db.LastModified > db.LastFTIndexed ) Then
Call db.UpdateFTIndex( False )
End If
Else
Call db.updateftindex(True)
End If

ProcessConditions

'searchstr是检索条件
iNum=targetview.ftsearch(strformula,0)
If iNum=0 Then
Print "没有找到符合条件的文档"
Exit Sub
End If
Print|<style type="text/css">|
Print| |
Print| </style>|
Print |<table width="23%" class="font9pt" align="left">|
Print |<tr>|
Print |<td align=right>|
Print |<div align=left>|
Print|<img src="../images/unoa/query.gif">|
Print |</div>|
Print |</td>|
Print |</tr>|
Print|<tbody> |
Print|</tbody> |
Print |</table>|
Print |<br>|
Print |<table border=0 width="518" class="font9pt" align="left">|
Print |<tbody> |
Print |<tr> |
Print |<td class=lemon1 colspan="2"> |
Print |</td>|
Print |</tr>|
Print |<tr> |
Print |<td class=chinese width="40" height="6">|
Print |<span class=lemon1>|
Print |<b>|
Print |<font color="#FF0000">查看：</font></b><font color="#FF0000">|
Print |<span class=chinese>|
Print |</span>|
Print |</font>|
Print |</span>|
Print|</td>|
Print|<td width="437" height="6">|

Print|<a href="/|+GetMyDBPath+|/($all)?openview">|
Print|<b>|
Print "【按时间】"
Print|</b>|
Print|</a>|
Print|<a href="/|+getmydbpath+|/reviewstatus?openview">|
Print|<b>|
Print "【按状态】"
Print|</b>|
Print|</a>|
Print|<a href="/|+getmydbpath+|/byauthor?openview">|
Print|<b>|
Print "【按部门】"
Print|</b>|
Print|</a>|
Print|<a href="/|+getmydbpath+|/bycategory?openview">|
Print|<b>|
Print "【按类别】"
Print|</b>|
Print|</a>|
Print|</td>|
Print|</tr>|
Print|</tbody>|
Print|</table>|
Print|<br>|
Print|<br>|
Print|<br>|
Print|<br>|
Print |<p class=font9pt>|
Print "找到"+"<font
color=#cc0000>&nbsp"+Cstr(iNum)+"&nbsp</font>"+"个符合条件的文档<br>"
Print |</p>|
Print |<table class=font9pt>|
Dim nameQicao As notesname
Print |<td width=50 nowrap>序号</td><td width=150>日期</td><td
width=200>标题</td><td>作者</td>|
Print |<hr size=1 width=500px align=left color=#3333ff>|
For i=1 To iNum
Set ResultDoc=targetview.getnthdocument(i)
Print |<tr>|
Print |<td width=50 nowrap>|+Cstr(i)+|</td>|
Print |<td width=150 nowrap><a
href="/|+GetMyDBPath+"/"+"($all)"+"/"+ResultDoc.universalid+|">|
Print resultdoc.riqi(0)+|</a></td>|
Print |<td width=200 nowrap><a
href="/|+GetMyDBPath+"/"+"($all)"+"/"+ResultDoc.universalid+|">|
Print ResultDoc.subject(0)+|</a></td>|
Print |<td><a
href="/|+GetMyDBPath+"/"+"($all)"+"/"+ResultDoc.universalid+|">|
Set nameQicao=New notesname(resultdoc.qicaoren(0))
Print nameQicao.common+|</a></td></tr>|
Next
Print |</table>|
Print |<hr size=1 width=500px align=left color=#3333ff>|
End Sub
执行结果如下：

　　以上页面都是在浏览器端执行。在执行其他工作流程中的全文检索时，需要将相应的选项进行修改。
[attach]3331[/attach]

欢迎光临邮件服务器-邮件系统-邮件技术论坛(BBS) (http://bbs.5dmail.net/)