利用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("http://www.jb51.net/logos.gif",Server.MapPath("google.gif"))  

%>  

</body> 

</html>

时间： 2024-09-20 21:36:02

利用MSXML2.XmlHttp和Adodb.Stream采集图片的相关文章

利用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">  <

利用xmlhttp和adodb.stream加缓存技术下载远程Web文件_小偷/采集

<%'----------远程获取内容,并将内容存在本地电脑上,包括任何文件!----------'---------------利用xmlhttp和adodb.stream-----------------'On Error Resume Next'-------------------------------定义输出格式-----------------------------path=request("path")if path ="" thenpath

利用xmlhttp和adodb.stream加缓存技术下载远程Web文件

ado|stream|web|xml|缓存|下载 研究了几天Adodb.stream和XMLHTTP的应用,找了不少很有趣的教程,下面的代码是将一个远程的页面,图片地址保存到本地的实例.将代码保存为一个.ASP的文件,将它放到IIS的一个目录下,在它的上级见一个cache目录,下载后的文件将保存到cache目录下 fso.Asp?path=logo.gif你就可以将logo.gif文件保存下来.学小偷的朋友也可以看看.. <%'----------远程获取内容,并将内容存在本地电脑上,包括任何文

ASP中利用ADODB.Stream对象将字节流转换为字符流

'--------------------------------------------------------------------' 二进制转字符串'' 入口参数:字节流' 函数返回:字符串' Code By:Madpolice 2002-12-20' 利用 ADODB.Stream 对象,速度比原来的字符替换法快了n倍,n≈30!!)'--------------------------------------------------------------------'下面的常量是函

利用AdoDb.Stream对象来读取UTF-8格式的文本文件_应用技巧

复制代码 代码如下: '函数名称:ReadTextFile     '作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件     '----------------------------------------------------     Function ReadFromTextFile (FileUrl,CharSet)         If FileUrl = "" OR IsNull(FileUrl) Then             ReadFromT

利用AdoDb.Stream对象来读取UTF-8格式的文本文件

复制代码 代码如下: '函数名称:ReadTextFile     '作用:利用AdoDb.Stream对象来读取UTF-8格式的文本文件     '----------------------------------------------------     Function ReadFromTextFile (FileUrl,CharSet)         If FileUrl = "" OR IsNull(FileUrl) Then             ReadFromT

利用ADODB.Stream使用浏览器下载服务器文件

ado|stream|服务器|浏览器|下载 download.asp?file=相对路径的文件就可以把这个文件下载下来 <%  2  3 call downloadFile(replace(replace(Request("file"),"\",""),"/",""))  4  5 Function downloadFile(strFile)  6 ' make sure you are on the

利用adodb.stream直接下载任何后缀的文件(防盗链)

ado|stream|防盗链|下载 原作:possible_Y,载自时代课堂 在浏览器的地址栏里直接输入一个doc或xls或jpg的文件的url路径,那么该文件会直接显示在浏览器里.而在很多时候我们希望能直接弹出下载提示框让用户下载,我们该怎么办呢?这里有两种方法:1.设置你的服务器的iis,给doc等后缀名做映射2.在向客户端发送时设置其contenttype 下面详细说明方法2 <%Response.Buffer = trueResponse.Clear dim urlDim fso,fl,

ASP利用adodb.stream下载文件但不打开的方法

 在浏览器的地址栏里直接输入一个doc或xls或jpg的文件的url路径,那么该文件会直接显示在浏览器里.而在很多时候我们希望能直接弹出下载提示框让用户下载,我们该怎么办呢?这里有两种方法:  1.设置你的服务器的iis,给doc等后缀名做映射. 2.在向客户端发送时设置其contenttype. 下面详细说明方法2 程序代码: 复制代码 代码如下: <% Response.Buffer = true Response.Clear dim url Dim fso,fl,flsize dim Dn