IBM Domino 有时代理运行缓慢
IBM Domino Sometimes Agent Runs Slowly
代理运行时,有时会遇到"HTTP Server: Execution time limit exceeded by Agent xxx"这样的错误。但是,如果再次 运行,它会 运行 正确。是否意味着代理被其他任务阻塞了?我应该在哪里研究原因?代码如下:
Set tDb = New NotesDatabase(db.Server, "test\Test.nsf")
Set tView = tDb.GetView("TestView")
Set tDoc = tView.GetFirstDocument
lastTest = After(tDoc.Name(0))
lastName = tDoc.Name(0)
curName = lastName
Open dirLoc & Replace(lastTest) & ".html" For Output As #1
For i = 0 To 6
Print #1, headerArray(i)
Next
While Not tDoc Is Nothing
curTest = After(tDoc.Name(0))
curName = tDoc.Name(0)
If lastTest <> curTest Then
Print #1, footerStr
Close #1
Open dirLoc & Replace(curTest) & ".html" For Output As #1
For i = 0 To 6
Print #1, headerArray(i)
Next
End If
Set dateAssigned = New NotesDateTime(tDoc.Completed(0))
timeDiff = todaysDate.TimeDifference(dateAssigned) / 3600 / 24
If timeDiff <= 10 Then
Print #1, repeatArr(0)
... ...
Print #1, repeatArr(14)
End If
lastName = curName
lastTest = After(tDoc.Name(0))
Set tDoc = tView.GetNextDocument(tDoc)
Wend
Print #1, footerStr
Close #1
您可以更改服务器文档中的 "Max LotusScript/Java execution time:",以便允许您的代理 运行 更长的时间。
在不知道代理人做什么的情况下无法回答这个问题。我建议使用 OpenNTF OpenLog 或类似的方式添加一些日志记录,以便您可以查看代理中占用的时间。
代理运行时,有时会遇到"HTTP Server: Execution time limit exceeded by Agent xxx"这样的错误。但是,如果再次 运行,它会 运行 正确。是否意味着代理被其他任务阻塞了?我应该在哪里研究原因?代码如下:
Set tDb = New NotesDatabase(db.Server, "test\Test.nsf")
Set tView = tDb.GetView("TestView")
Set tDoc = tView.GetFirstDocument
lastTest = After(tDoc.Name(0))
lastName = tDoc.Name(0)
curName = lastName
Open dirLoc & Replace(lastTest) & ".html" For Output As #1
For i = 0 To 6
Print #1, headerArray(i)
Next
While Not tDoc Is Nothing
curTest = After(tDoc.Name(0))
curName = tDoc.Name(0)
If lastTest <> curTest Then
Print #1, footerStr
Close #1
Open dirLoc & Replace(curTest) & ".html" For Output As #1
For i = 0 To 6
Print #1, headerArray(i)
Next
End If
Set dateAssigned = New NotesDateTime(tDoc.Completed(0))
timeDiff = todaysDate.TimeDifference(dateAssigned) / 3600 / 24
If timeDiff <= 10 Then
Print #1, repeatArr(0)
... ...
Print #1, repeatArr(14)
End If
lastName = curName
lastTest = After(tDoc.Name(0))
Set tDoc = tView.GetNextDocument(tDoc)
Wend
Print #1, footerStr
Close #1
您可以更改服务器文档中的 "Max LotusScript/Java execution time:",以便允许您的代理 运行 更长的时间。
在不知道代理人做什么的情况下无法回答这个问题。我建议使用 OpenNTF OpenLog 或类似的方式添加一些日志记录,以便您可以查看代理中占用的时间。