利用XMLHTTP保存流文件内容（例如图片）

可以将网络图片下载保存于本地，用于采集程序

1、js版本

function gethttp(url)
{
 try
 {
  var http = new ActiveXObject("Msxml2.XMLHTTP");
  http.Open("GET",url,false);
  http.Send();
  if(http.readystate != 4)
  {
    return false;
  }
  var text = http.responseBody;
  return text;
 }
 catch (e)
 {
  throw e;
 }
}

2、vbscript版本

function getHTTPPage(url)
on error resume next
dim http
set http=server.createobject("MSXML2.XMLHTTP")
Http.open "GET",url,false
Http.send()
if Http.readystate<>4 then
exit function
end if
getHTTPPage=Http.responseBody
set http=nothing
if err.number<>0 then err.Clear
end function