发信人: nxin()
整理人: kamkam(2002-05-01 23:52:56), 站内信件
|
【 在 ming (明) 的大作中提到: 】
: 多谢指教!!!
: 我还想问一下,如何调试在服务器运行的script
: .......
调试script是一件很麻烦的事，不可能单步调试。可以用NotesLog类
输出信息到代理的日志，某些情况也可以用print。下面是个例子：
Dim agentLog As New NotesLog("Agent log")
Call agentLog.OpenAgentLog
Set s = New NotesSession
Set db = s.CurrentDatabase
Set collection = db.UnprocessedDocuments
Set note = collection.GetFirstDocument
count = collection.Count
Do While (count > 0)
Subject = note.Subject
Call agentLog.LogAction( "Processing: "+Subject(0))
Set note = collection.GetNextDocument (note)
count = count - 1
Loop
Call agentLog.Close
这是几个调试代理有用的console命令，自己试试吧
tell amgr schedule
tell amgr status
tell amgr debug
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 203.196.1.242]
|
|