使用js抓取网站内容

今天公司QA老大让写个程序用js动态抓取一个网站的内容，由于需求不明，治好把整个网站的html代码用ajax抓下来，在网上搜了下，还真有这样的代码，但是那网站使用的是相对路径，只好写了个正则表达式给他把网址补上去，成为绝对路径，整个页面才显示正常，代码如下，以备后观

 1 <script   language="vbscript">   
 2   Function bytes2BSTR(vIn)   
 3   Dim strReturn,i,ThisCharCode,innerCode,Hight8,Low8,NextCharCode   
 4   strReturn=""   
 5   For i=1 To LenB(vIn)   
 6       ThisCharCode=AscB(MidB(vIn,i,1))   
 7       If ThisCharCode<&H80 Then   
 8             strReturn=strReturn&Chr(ThisCharCode)   
 9       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 Checkstyle(htmlcode)
   {
       var s;
     var RexStr = /Include\/|images\//gi 
      s =htmlcode.replace(RexStr, 
          function(MatchStr){ 
              switch(MatchStr){ 
                  case "Include/":                   
                  case "include/": 
                      return "http://getalife.com.au/Include/"; 
                      break; 
                  case "images/": 
                      return "http://getalife.com.au/images/"; 
                      break;                
                  default : 
                      break; 
              } 
          } 
      ) 
 
     return s;
   }  
   var   xmlhttp=new   ActiveXObject("Msxml2.xmlhttp")   
   xmlhttp.open("GET","http://getalife.com.au/listactivities.aspx?siteref=homepage",false)   
   xmlhttp.send()
   var m=Checkstyle(bytes2BSTR(xmlhttp.ResponseBody));
   document.write(m);   
  //document.write(bytes2BSTR(xmlhttp.ResponseBody));
   </script>