asp利用XmlHttp和Adodb.Stream采集图片
来源：asp之家 发布时间：2007-12-06 18:42:00
采集文章给建站带来了很大的方便，特别是一些小网站，人员有限，资金有限，适当的使用采集功能可以很快丰富我们的网站，采集这么厉害可能你会觉的代码一定很复杂，很高深。其实只要你懂得采集的原理，这一切将不再神秘。
本文介绍了采集中远程图片的自动下载保存的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>
<％
'本代码来自 CNLei
'下面的函数功能读取并保存远程图片的内容
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("https://www.aspxhome.com/images/logo.gif",Server.MapPath("logo.gif")) ％>
</body>
</html>
怎么样挺简单吧，就用到了两个函数。
正是因为采集的功能强大其效率高，也给很多人带来了问题，自己辛辛苦苦添加的文章别人只要一会儿就都给采集走了，这不是很不公平吗？那么怎么能防止别人采集我的网站内容呢？请看：《网站防止采集方法全攻略 》和《来看看如何防止采集 》
0
投稿猜你喜欢
Liwu_Items表，CreateTime列建立聚集索引 第一种，sqlserver2005特有的分页语法 代码如下:declare @p- 这里列出了javascript 中的document.execCommand() 的各种参数说明：2D-Position 允许通过
- 首先让我们看下 YUI 是如何处理的：var toObject = function(a) { var o = {
- 目前市面上成熟的CMS产品有很多，无外乎两种解决方案：第一种就是用XSL+XML的方式来实现客户端具体数据；第二种是生成HTML或者SHTM
- 有一台windows服务器上跑着mysql的一些应用,现在需要将mysql的数据每天备份,并通过ftp上传到指定的存储服务器上要是在linu
- 今天开始学习 YUI，加强一下对 JavaScript 的理解。1. 命名空间 YAHOO
- var fso = new ActiveXObject("Scripting.
- 如果您目前拥有一个冷备份，但是缺少了其中的一个数据文件，但你目前存在所有的归档，如果您要恢复数据文件，可以参考以下的示例：[oracle@j
- 前不久网上公开了一个MySQL Func的漏洞,讲的是使用MySQL创建一个自定义的函数,然后通过这个函数来攻击服务器。最早看到相关的报道是
- 浏览带有下拉菜单的网页时，我们经常会注意到当更改显示器分辨率时，其下拉菜单的位置并没有改变，这也是我们设计网页时容易忽略的一个问题，其实通过
- 英语原文地址：点此浏览新年开始了，来点猛料，放上15个漂亮的网页排版的demo，来欣赏一下。去年我也专门找了15个同类网站，比较受用户欢迎，
- ALTER DATABASE DATAFILEd:\ORANT\DATABASE\USER1ORCL.ORA RESIZE 10
- 英文原文：http://www.456bereastreet.com/archive/200601/css_3_selectors_expl
- '创建DOM对象set objDom=server.CreateObject("MicroSoft.XMLDom"
- 今天把博客的日历脚本又改了一改，就帖上了，以后找起来方便一点，同时也给需要的人带来方便，本来还想加点功能再帖上来，不过我看还是没必要了，帖的
- 代码如下:var obj = document.getElementById("name"
- 代码如下:Function htmll(mulu,htmlmulu,FileName,filefrom,htmla,htmlb,h
- 又发现一个IE不标准的地方，unshift方法会返回新数组的长度，但IE6与IE7则返回undefined。var a = [3,2,1,4
- MySQL数据库中文问题的解决方法：1.my.ini MySQL配置文件设置[client]default-character-set=gb
- 模式库在模式库里,我将列出所有电子商务网站需要的模式.以下将罗列出经典常用的模式案例,我也试图让这些模式看起来更有趣味性与实用性。(Yaho
