利用MSXML2.XmlHttp和Adodb.Stream采集图片
来源：
中文源码网 浏览：187 次 日期：2024-05-18 05:20:14
【下载文档: 利用MSXML2.XmlHttp和Adodb.Stream采集图片.txt 】
利用MSXML2.XmlHttp和Adodb.Stream采集图片
利用MSXML2.XmlHttp和Adodb.Stream 复制代码 代码如下:
ASP采集图片测试 <% Function Gethttpimg(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 Gethttpimg=Http.Responsebody Set Http=Nothing If Err.Number<>0 Then Err.Clear End Function Sub Save2Local(From,Tofile) Dim Geturl,Objstream,Imgs Geturl=Trim(From) Imgs=Gethttpimg(Geturl) Set Objstream = Server.Createobject("Adodb.Stream") Objstream.Type =1 Objstream.Open Objstream.Write Imgs Objstream.Savetofile Tofile,2 Objstream.Close() Set Objstream=Nothing 'Response.Write("The Img has saved!") End Sub Call Save2Local("//www.zwyuanma.com/logos.gif",Server.MapPath("google.gif")) %>
