用ASP VBS xmlhttp adodbstream下载和保存图片的代码

函数：复制代码代码如下: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) 把代码保存为vbs文件，不需要iis就可以运行~

　　推荐阅读

　　javascript asp教程第六课-- response方法

response 对象：reponse是asp中六个对象之一。它代表了服务器端对浏览器的回应。response有8种方法，9种属性和一个集。在这一课，我们就重点讲述方法。方法：在javascript中，asp方法使用括号。请注意依赖response>>>详细阅读

本文标题：用ASP VBS xmlhttp adodbstream下载和保存图片的代码

地址：http://www.17bianji.com/kaifa2/ASP/32693.html

1/2 1