WebBrowser 刷新问题，首次访问URL可以，第二次访问就不行了！

[ysw8u8]

窗体中添加三个控件 Label Timer WebBrowser

代码如下：
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 5000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Now
Me.WebBrowser1.Navigate "http://www.ehiqi.com/jiankang/Test/test2.asp"
End Sub

每五秒访问一次http://www.ehiqi.com/jiankang/Test/test2.asp，代码如下：
<%
RANDOMIZE
response.Write("OK<br>0--1000的随机数：")
response.write(INT((1000)*RND))
%>

为什么第二次刷新，随机数不变呢？好像没有访问似的，就第一次访问有效，这是怎么回事，是不是我的VB程序少写了什么？请高手指点！谢谢！

[ysw8u8]

没有人知道是什么原因吗？

[toury]

<%
response.write(INT((1000)*RND)) 
response.write "<br><br><br>"&err.description'看看出了什么问题
%>

[Tiger_Zhao]

只调用一次Navigate()，以后改成Refresh()试试。

[ysw8u8]

还是不行啊，好像没有访问服务器，大家没有用过此控件吗？？还请大家多帮忙！

[miniSteel]

Private Sub Timer1_Timer()
Label1.Caption = Now Me.WebBrowser1.Navigate "http://www.ehiqi.com/jiankang/Test/test2.asp"

'add code
Do While (Me.WebBrowser1.ReadyState <> READYSTATE_COMPLETE)
VBA.DoEvents
Loop

WebBrowser1.Refresh
'end
End Sub

这样就可以刷新了.