用ASP VBS xmlhttp adodbstream下载和保存图片的代码
2007-03-05 00:00
691 查看
函数:
使用方法:
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就可以运行~
相关文章推荐
- 用ASP VBS xmlhttp adodbstream下载和保存图片的代码
- ASP VBS xmlhttp adodbstream下载和保存图片(新闻小偷)
- 多线程爬虫批量下载pcgame图片url 保存为xml的实现代码
- 获取远程服务器数据(asp,adodb.stream,保存远程图片,XMLHTTP)
- ASP.NET中常用功能代码总结(4)——保存图片到XML文件
- xmlhttp,adodb.stream 结合整理 ——代码转换效率问题
- 多线程爬虫批量下载pcgame图片url 保存为xml的实现代码
- asp xmlhttp adodb.stream
- Ajax 实现在WebForm中拖动控件并即时在服务端保存状态数据 (Asp.net 2.0)(示例代码下载)
- ASP.NET 2.0 HttpHandler实现生成图片验证码(示例代码下载)
- ASP.NET 2.0 HttpHandler实现生成图片验证码(示例代码下载)
- ASP保存远程图片文件到本地代码
- ASP.NET(C#)下载图片代码
- ASP.NET下载远程图片保存到本地的方法、保存抓取远程图片
- ASP.NET 2.0 HttpHandler实现生成图片验证码(示例代码下载)
- ASP.NET中常用功能代码总结(保存图片到XML文件)
- 使用asp下的adodb.stream 下载文件而不是打开
- ASP.NET 2.0 HttpHandler实现生成图片验证码(示例代码下载)
- Ajax 实现在WebForm中拖动控件并即时在服务端保存状态数据 (Asp.net 2.0)(示例代码下载)
- 转载:Ajax 实现在WebForm中拖动控件并即时在服务端保存状态数据 (Asp.net 2.0)(示例代码下载)