亲宝软件园·资讯

展开

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

人气:0
想了解利用MSXML2.XmlHttp和Adodb.Stream采集图片的相关内容吗,在本文为您仔细讲解XmlHttp Adodb.Stream采集的相关知识和一些Code实例,欢迎阅读和指正,我们先划重点: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("//www.qb5200.com/logos.gif",Server.MapPath("google.gif"))  
%>  
</body> 
</html>  

加载全部内容

相关教程
猜你喜欢
用户评论