<Script languae="VBScript"> Sub CheckChange Dim H Set H = CreateObject("Microsoft.XMLHTTP") With H .Open "POST","GetCommand.aspx?Comm=" & V,False .Send If .ResponseText="True" Then Window.Location.ReLoad End H Set H = Nothing SetTimeout("CheckChange",5000) End SubSetTimeout("CheckChange",5000) </Script>
在HTML的<Head>增加一个META
<meta http-equiv="Refresh" content="1000;URL=刷新的URL">
Sub CheckChange
Dim H
Set H = CreateObject("Microsoft.XMLHTTP")
With H
.Open "POST","GetCommand.aspx?Comm=" & V,False
.Send
If .ResponseText="True" Then Window.Location.ReLoad
End H
Set H = Nothing
SetTimeout("CheckChange",5000)
End SubSetTimeout("CheckChange",5000)
</Script>
上面例子请示的页面是:"GetCommand.aspx?Comm=" & V可以根据实际情况传入不同的参数实现获取不同的返回值
Response.End就行了,这样客户端收到的就只是 True 或 Flase 了,就好判断了。
其中一个定时请求服务器,判断是否改变,如果改变则刷新另外一个FRAME
在HTML的<Head>增加一个META
<meta http-equiv="Refresh" content="1000;URL=刷新的URL">
<Script languae="JavaScript">
function CheckChange()
{
window.open("check.aspx","check","width=0;height=0");
SetTimeout("CheckChange",1000)
}
SetTimeout("CheckChange",1000)
</Script>
check.aspx专门来检测你指定的值有没有改变,如果有改变,那么刷新父页面就:
<Script languae="JavaScript">
location.opener.reload();
</Script>
然后关闭自己
<Script languae="JavaScript">
window.close();
</Script>
以上代码未通过ISO20041227标准,请自行DEBUG