利用MSXML2.XmlHttp和Adodb.Stream采集图片

187 阅读 0 评论 124 点赞

我是靠谱客的博主妩媚便当，最近开发中收集的这篇文章主要介绍利用MSXML2.XmlHttp和Adodb.Stream采集图片，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

利用MSXML2.XmlHttp和Adodb.Stream

复制代码代码如下:

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">  
<html xmlns="http://www.w3.org/1999/xhtml">  
<head>  
<title>ASP采集图片测试</title>  
<meta http-equiv="content-type" content="text/html; charset=utf-8" />  
</head>  
<body>  
<%   
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("http://www.uoften.com/logos.gif",Server.MapPath("google.gif"))   
%>   
</body>  
</html>  