代码:
<script language="VBScript" type="text/VBScript">
Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
</script>
<script language="javascript">
function GetData()
{
url="default.do?";//调用页面,请按需要修改,最后一个字符必须是"?"。
var http = new ActiveXObject("Microsoft.XMLHTTP");
http.open("GET",url + "&rNum=" + Math.round(Math.random()*100000000),false);
http.send();
var str = http.responseBody;
loadcontent.innerHTML=bytes2BSTR(str);
setTimeout("GetData()",5000);
}
</script>
<body onLoad="javascript:GetData();">
<span id="loadcontent">数据载入中……</span>
</body>
这是我修改的,我觉得最好用的一种方法。
现在不是最好的方法了!