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

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› ASP.NET›ASP.NET编程经验

原作者: [db:作者] 来自: [db:来源] 收藏邀请

利用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("https://www.ogeek.net/logos.gif",Server.MapPath("google.gif"))   
%>   
</body>  
</html>  