为什么代理会被调用了二次？

怪怪的，为什么网站计数器会刷新一次会自动计算二次呢？在代理中作了messagebox,显示代理被调用了二次。而我在webqueryopen中仅作了一次
@command([ToolsRunMacro];"counter") 
之后我分步检查记录如下：
我做了如下操作：
第一步：取消掉webqueryopen中的调用代理之后，计数器（代理）无效。正常，说明问题在计数器这个代理上。
第二步：删除计数器。网站显示出错，说明计数器有效正常。这说明问题应该在计数器（代理）的代码中。
第三步：检查代码：
Sub Initialize
Dim Session As New NotesSession
Dim ProfileDoc As　NotesDocument
Dim doc As NotesDocument
Dim CountNum As Double
Dim CountString As String
Set db = Session.CurrentDatabase

Set ProfileDoc =db.GetProfileDocum("CounterProfile")
Set doc = Session.DocumentContext

CountString =ProfileDoc.Count(0)
messagebox(CountString)
If CountString <> "" Then
CountNum = Cdbl(CountString) + 1
messagebox(CountNum)
Else 
CountNum = 1
End If
ProfileDoc.Count = Cstr(CountNum)
Call profiledoc.save(False,False)
doc.Count =CountNum
End Sub

每刷一次在服务器上总能看到：
http server:agent message:235
http server:agent message:236
http server:agent message:236
http server:agent message:237
这说明代理被二次调用。
请问这是什么原因。 
--------------------编程问答-------------------- 查一查是否存在重新载入的js代码，代理没有问题，看看页面是否重复刷新了。 --------------------编程问答-------------------- 直接在地址栏中输代理地址，看是否仍有该现象。 --------------------编程问答-------------------- 表单onload事件，看看

补充：企业软件 ,  Lotus