欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

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

 更新時(shí)間：2008年05月11日 21:36:28   作者：  
asp下經(jīng)常用來采集的兩個(gè)組件結(jié)合使用例子
利用MSXML2.XmlHttp和Adodb.Stream
復(fù)制代碼 代碼如下:

<!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.dbjr.com.cn/logos.gif",Server.MapPath("google.gif"))  
%>  
</body> 
</html>  

相關(guān)文章

最新評論