请教一个老问题！关于页面刷新保存？

Question

这个问题我想别的办法达到效果了，只要近来这现在就给分

Answer 1

看来想的分得也大有人在。结帖结帖！！！

Answer 2

最好能把解决的方法贴出来！

Answer 3

我是用domino解决的，不好意思，是代理
Sub Initialize
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocument 
Dim item As NotesItem 
Dim str1 As String 
Set db=session.CurrentDatabase
Set agent=session.CurrentAgent 

Set dc=session.DocumentContext 

Messagebox dc.UniversalID
str1=dc.UniversalID
Print "[/public/org.nsf/0/"+str1+"?editdocument]"
End Sub