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

2020-07-27 13:00:24

字體：大中小

來源：轉載

供稿：網友

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