<div id="mine" name="mine"></div>
<script language=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">
var xmlhttp;
function createXMLHttpRequest()
{
if(window.ActiveXObject)
{
xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");
}
else if(window.XMLHttpRequest)
{
xmlhttp=new XMLHttpRequest();
}
}function startRequest()
{
createXMLHttpRequest();
xmlhttp.onreadystatechange = handleStateChange;
xmlhttp.open("get","http://www.baidu.com",true);
xmlhttp.send(null);
}function handleStateChange()
{
if (xmlhttp.readyState==4)
{
if (xmlhttp.status==200)
{
document.all['mine'].innerHTML=bytes2BSTR(xmlhttp.responseBody);
}
}
}
setInterval('refi()',2000);//每隔6秒钟执行一次校验程序refi()function refi()
{
startRequest();
var myReg = /百度/;
if (myReg.test(document.all['mine'].innerHTML))
{
alert("仍然是百度的叶面");
}
}
</script>