个人中心
gpt4 book ai didi

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

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 36 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章用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就可以运行~  。

最后此篇关于用ASP VBS xmlhttp adodbstream下载和保存图片的代码的文章就讲到这里了,如果你想了解更多关于用ASP VBS xmlhttp adodbstream下载和保存图片的代码的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

36 4 0
文章推荐： 一段在asp中加密与解密对应的函数
文章推荐： 通过MSXML2自动获取QQ个人头像及在线情况(给初学者)
文章推荐： 厉害的用Asp获取Dll加密新闻内容
文章推荐： 用正则和xmlHttp实现的asp小偷程序
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com