获取网页源码

<strong><script>
 var oXmlHttp = new ActiveXObject("Microsoft.XMLHTTP");
 oXmlHttp.open("GET",http://163.com,false);
 oXmlHttp.send();
 var oStream = new ActiveXObject("ADODB.Stream");
 if(oStream == null)
  alert("您的机器不支持ADODB.Stream.");
 else
 {
  oStream.Type=1;
  oStream.Mode=3;
  oStream.Open();
  oStream.Write(oXmlHttp.responseBody);
  oStream.Position= 0;
  oStream.Type= 2;
  oStream.Charset="UTF-8";
//var result= oStream.ReadText();

  oStream.SaveToFile("c:\inetpub\wwwroot\mabel.txt",2) ; //存取到某个文本
  oStream.Close();
  oStream = null;
  //document.write (result);
 }
</script></strong>