服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|JavaScript|易语言|

服务器之家 - 编程语言 - ASP教程 - 利用MSXML2.XmlHttp和Adodb.Stream采集图片

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

2019-09-27 09:16asp教程网 ASP教程

asp下经常用来采集的两个组件结合使用例子

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

延伸 · 阅读

精彩推荐