无闪烁刷新代码上传到空间后老是无法打开站点，已终止操作

无闪动刷新代码如下：
<script  language="VBScript"  >  
  Function  bytes2BSTR(vIn)  
  Dim  strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode  
  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  getXML(URL)  {  
  var  xmlhttp  =  new  ActiveXObject("Microsoft.XMLHTTP");  
  xmlhttp.Open("GET",URL,  false);  
  try  {    
  xmlhttp.Send();    
  var  result  =  xmlhttp.status;  
  }  
  catch(e)  {  
  return(false);    
  }  
  if(result==200)  {    
  return(bytes2BSTR(xmlhttp.responseBody));    
  }  
  var  xmlhttp  =  null;  
  }  
  function  update()  
  {    
  try  
  {  
    document.body.innerHTML  =  getXML('main.asp'+'?para='+Math.random());  //将这儿的main.asp改成你的网页就行了  
    
  }  
  catch(e)  
  {  
    }  
  }  
  setInterval("update()",1000);  //定时刷新  
  </script>    
本地测试是没问题的，上传到空间之后，网站打开超慢然后就蹦出这个无法打开站点终止操作的窗口：怎么办啊这个，我就想无闪动刷新一下main.asp页面，有没有大侠给段代码？找了很多了就这一个好使的，结果上传到空间之后不行，我郁闷啊谢谢各位大侠了