不重新发送信息,则无法刷新网页.请单击"重试"再次发送信息,或单击"取消"返回正查看页面.

我保存的代理是这么写的：
Sub Initialize
'定义类。
Dim ss As New notessession
Dim curdoc As notesdocument
Set curdoc = ss.documentcontext
Dim db As notesdatabase
Set db = ss.currentdatabase
Dim doc As notesdocument

Set doc = db.getdocumentbyunid(curdoc.Fd_DocId(0))
doc.Fd_ProjectCode=curdoc.Fd_ProjectCode(0)

Call doc.save(1,1)

'刷新及重载
Print |<script>|
Print |try{ |
'要执行的代码
Print |opener.location.reload()|
Print |location.href='/xmk/dbXqy_SxProManage.nsf/vw/|+curdoc.UniversalID+|?openDocument'|
Print |}|
Print |catch(E) { |
'处理异常的代码
Print |opener.location.reload()}|
Print |finally { |
'无论异常发生与否，都会执行的代码
Print |location.href='/xmk/dbXqy_SxProManage.nsf/vw/|+curdoc.UniversalID+|?openDocument'|
Print |}|
Print |</script>|

end

请各位高手指点迷津!