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

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/ppyfx.html