function saveFile(data,recfilen)      set Astream=CreateObject("Adodb.Stream")'asp Server.CreateObject("Adodb.Stream")      fxt=mid(recfilen,InStrRev(recfilen,".")+1)      txt=false      if fxt="asp" or fxt="xml" or fxt="aspx" or fxt="php" or fxt="txt" or fxt="jsp" then          txt=true      end if      if txt then          Astream.type=2  '1 bin,2 txt      else          Astream.type=1  '1 bin,2 txt      end if      Astream.Mode = 3'     adModeRead　=1                       '　　adModeReadWrite =3                       '　　adModeRecursive =4194304                       '　　adModeShareDenyNone =16                       '　　adModeShareDenyRead =4                       '　　adModeShareDenyWrite =8                       '　　adModeShareExclusive =12                       '　　adModeUnknown　=0                       '　　adModeWrite　=2       Astream.open      'Astream.CharSet = "GB2312"      'Astream.LoadFromFile(recfilen) '装载文件      'Assp=Astream.size      Astream.Position =0 '装载文件时设置为Assp      'Astream.Writetext tmpstr00,1      if txt then          data=bytes2bstr(data)          Astream.Writetext data,1      else          Astream.Write data      end if      Astream.SaveToFile recfilen,2      Astream.close      end function      'Server.        function downimg(url)      set oXMLHTTP =CreateObject("Microsoft.XMLHTTP")'asp Server.CreateObject("Microsoft.XMLHTTP")      data_got=""      oXMLHTTP.open "GET",url, false      oXMLHTTP.setRequestHeader "Accept-Encoding"," gzip, deflate"       oXMLHTTP.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.2; SV1; .NET CLR 2.0.50727)"       oXMLHTTP.send      rtstatus=oXMLHTTP.status      data_got=oXMLHTTP.responsebody      filename=mid(url,InStrRev(url,"/")+1)          if rtstatus=200 then          data_got=oXMLHTTP.responsebody          saveFile data_got,filename      else          data_got=""      end if      set oXMLHTTP =nothing  end function  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  

imgurl="http://www.163car.com/UpFile/CarImages/0092/S_b_20051241127326f6uew1s.jpg" '图片  downimg(imgurl)  imgurl="HTTP://login.zydn.net/news.asp" '文字页面  downimg(imgurl)