<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gbk"> <title>Flash DownLoad 下载控件示例</title> <meta name="MSSmartTagsPreventParsing" content="TRUE"> <meta http-equiv="MSThemeCompatible" content="Yes"> <style type="text/css"> body { scrollbar-base-color: #F5FBFF; scrollbar-arrow-color: #86B9D6; font: 12px Ta...
采集功能[1]分类管理 a 添加一个频道 b 频道(点击进入栏目管理) c 添加新栏目 [2] 项目管理a 添加新项目 项目名称： 填写采集的项目名称,便于自己以后管理 所属频道： 请选择采集的频道所属栏目： 请选择所属于的栏目 所属专题： 不属于任何专题 网站名称： 自己用来采集的对象网站名称网站网址： 自己用来采集的对象的地址网站登录： 不需要登录 设置参数 登录参数： 需要登录才能访问的请设置登录参数（不支持验证码登录）提交地...
晰带语法着色的版本：http://gwx.showus.net/blog/article.asp?id=229原创很辛苦，转载请注明原文链接：http://gwx.showus.net/blog/article.asp?id=229web采集程序？网页抓取程序？小倫程序？不管怎么叫，这种程序应用倒是蛮广的。本文不讨论这种使用这种程序引起的版权或道德问题，只谈这种程序在ASP+VBScript环境下的实现 :-)预备知识：除了一般的ASP+VBScript的知识外，你还需要了解xmlhttp对象和正则表达式对象。xmlhttp对象是...
代码如下:<% '-------------------------------------------------------------- Dbname = "../data/flash.mdb" '更改数据库文件位置，强烈建议更改为.asp的文件！ Set Conn = Server.CreateObject("ADODB.Connection") Connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.Mappath(Dbname) Conn.Open Connstr '------------------------------------------------------------ Set List = Conn...
好久没有更新了，这几天做的一个信息采集的程序，大家共享。 ================= 功能： IP限制 表单动态设置 多表单设置 修改表单元素 下载此文件
代码如下:<% On Error Resume Next Const uploadPath = "/uploads/" '文件存放路径 Const allowFileExt = "jpg,wma,swf,gif" '允许被采集的文件类型 'Const allowFileSize = "200" Function getFile(url) If url = "" Then Exit Function Else url = Trim(url) End If '获取文件 fileExt = Lcase(Mid(url,Instrrev(url, ".")+1)) '文件类型 fileName = Lcase(Mid(url,...
代码如下:防止一般的采集以及小偷读取，加在顶部。同理，可以改造成JS脚本。<% Dim AppealNum,AppealCount AppealNum=10 '同一IP60秒内请求限制10次 AppealCount=Request.Cookies("AppealCount") If AppealCount="" Then response.Cookies("AppealCount")=1 AppealCount=1 response.cookies("AppealCount").expires=dateadd("s",60,now()) Else response.Cookies("AppealCount")=AppealCount+1 response.cookies("Appeal...
最近一段时间，采集很热门，从新闻小偷，到音乐小偷，到新闻采集，Flash采集，都有他的踪影，现在还有很多的人对采集都很感兴趣，为了服务大家，我也正在写一套采集程序，名字为 心意采集程序 ，现在我讲一下，采集用到的相关技术。 下面讲到的也不是很高深的XMLHTTP技术，我也是稍稍讲一下,一个采集需要用到的几块内容 如果你需要了解更多的问题,请去www.gxlsystem.com 搜索 XMLHTTP 技术 你将会得到更多的帮助，如果大家有什么疑...
<script language="javascript" runat="server"> //连接数据库 function connOpen(DataBaseConnectStr){ var conn = Server.CreateObject("ADODB.Connection"); conn.Open(DataBaseConnectStr); return conn; } //利用AdoDb.Stream对象来读取指定格式的文本文件 function readFromTextFile(FileUrl,CharSet){ var str; var stm = Server.CreateObject("adodb.stream"); stm.Type = 2; stm.Mode = 3; stm.Charset=C...
第一采用防刷新机制,譬如浏览刷新时间间隔3秒,但采集时如果采用间隔3秒再采集,那有没有办法,但我们可以使用随机变量来让它采集不成功! 浏览刷新时间间隔<%=(int(rnd()*5)+1)%>秒 间隔时间不确定,可以让它采集失败 你要可以在文章间隔中使用 <font color="#ffffff"><%=(int(rnd()*10000)+1)%>ivucc.com 版权所有</font> 随机的变量是无法替换的,这招也能让别人复制文章都不能轻松完成. <%=(int(rnd()*40)+1)%> 40是让它限定范围,...
发布时间：2005年11月27日 晚 文章作者：翟振凯 (小琦) 交流方式： 个人站：http://www.gxlsystem.com QQ：53353866 22336848 关于本文： 本着互联网共享主义精神，特写此文献给建站新手，授人以鱼，不如授人以渔，本文所讲的只是方法和原理，希 望大家看完此文，能够从中得到些帮助和启发。 本文从一个ASP程序员的角度用大量实例祥细介绍了动态网站如何生成静态页面原理，又从一个采集程序开发者 的角度去祥细介绍...
XMLHTTP应用参考 一、使用步骤： 1、创建XMLHTTP对象 //需MSXML4.0支持 2、打开与服务端的连接，同时定义指令发送方式，服务网页(URL)和请求权限等。客户端通过Open命令打开与服务端的服务网页的连接。与普通HTTP指令传送一样，可以用"GET"方法或"POST"方法指向服务端的服务网页。 3、发送指令。 4、等待并接收服务端返回的处理结果。 5、释放XMLHTTP对象 二、XMLHTTP方法： 1、XMLHTTP对象 备注：客户机可以使用XMLHTTP对...
目前防采集的方法有很多种，先介绍一下常见防采集策略方法和它的弊端及采集对策： 一、判断一个IP在一定时间内对本站页面的访问次数，如果明显超过了正常人浏览速度，就拒绝此IP访问 弊端： 1、此方法只适用于动态页面，如：asp\jsp\php等...静态页面无法判断某个IP一定时间访问本站页面的次数。 2、此方法会严重影响搜索引擎蜘蛛对其收录，因为搜索引擎蜘蛛收录时，浏览速度都会比较快而且是多线程。此方法也会拒绝搜索...
从前面的我讲的采集原理大家可以看出，绝大多数采集程序都是靠分析规则来进行采集的，如分析分页文件名规则、分析页面代码规则。 一、分页文件名规则防采集对策 大部分采集器都是靠分析分页文件名规则，进行批量、多页采集的。如果别人找不出你的分页文件的文件名规则，那么别人就无法对你的网站进行批量多页采集。 实现方法： 我认为用MD5加密分页文件名是一个比较好的方法，说到这里，有人会说，你用MD5加密分页...
<%'声明取得目标信息的函数,通过XML组件进行实现。Function GetURL(url) Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "GET", url, False.Send GetURL = bytes2bstr(.responsebody)'对取得信息进行验证，如果信息长度小于100则说明截取失败if len(.responsebody)<100 thenresponse.write "获取远程文件 <a href="&url&" target=_blank>"&url&"</a> 失败。"response.endend ifEnd With Set Retrieval =...