任务管理系统中建立回复机制(通用)

原理：

文档中有一个操作，点击之后开打回复表单，将主文档的ID带过去，可以从此ID得到主文档的各种相关信息。

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

function newReport()
{
 var f = document.forms[0]
 window.open("../newreport?openform&id="+f.docid.value,"","")
}

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

保存过文档后，在主浏览文档的时候到视图中读出主文档的回复，然后显示：

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

Sub Initialize
 Dim s As New NotesSession
 Dim db As NotesDatabase
 Dim view As NotesView
 Dim curdoc,doc As NotesDocument
 Dim docid,htm As String
 
 Set db = s.CurrentDatabase
 Set view = db.GetView("Reports")
 Set curdoc = s.DocumentContext
 
 docid = curdoc.docid(0)
 Set doc = view.GetFirstDocument
 If Not doc Is Nothing Then
  htm = {[

}  htm = htm & { <　TR bgColor=#9acd32> <　TH width="20%">回复时间 <　TH width="15%">回复人 <　TH>回复内容 <　TH>操作}  While Not doc Is Nothing   If doc.docid(0)=docid Then    htm = htm & { <　TR> <　TD>}    htm = htm & (doc.Created) & { <　TD>}    htm = htm & doc.reporter(0) & { <　TD>]}    htm = htm & doc.body & {[ <　TD>}    If doc.reporter(0) = curdoc.thisuser(0) Then     htm = htm & {<　A οnclick="javascript:window.open('../Tasks/} & doc.UniversalID & {?editdocument'}      htm = htm & {,'','')" href="javascript:void(0)">编辑}    Else     htm = htm & {　}    End If    htm = htm & {}   End If   Set doc = view.GetNextDocument(doc)  Wend  htm = htm & { ]}
 End If
 curdoc.reportBody = htm
End Sub

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

效果：

回复时间	回复人	回复内容	操作
2004-8-18 15:19:20	xyn	afasfasfasdf asdfawfasdf asfasdfasd	编辑
2004-8-18 15:24:53	xyn	tttttttt t tttttttttt	编辑
2004-8-18 16:07:44	xyn	保存关闭 任务标题： 回复内	编辑