求ASP的文件采集代码

郁闷

像这些东西都是百度一搜一堆得

为什么飞要来提问啊

>

请看：新浪新闻采集插件(07v131版)使用说明：

搜热网修正版,去掉了原来源码被加密,新闻采集时不会显示OK22采集字样!!

以下是说明:

本人同时修改了其文件信息,可能会影响到你的使用,如果你想使用本站的破解版,请自己做一些改动

插件组成：

sootopxwcjasp

插件首页文件

sootop_xwcj_incasp

插件设置文件

soo#topmdb

临时数据库文件

sootopgnasp

国内新闻采集文件

sootopgjasp

国际新闻采集文件

sootopylasp

娱乐新闻采集文件

sootopcjasp

财经新闻采集文件

sootopjsasp

军事新闻采集文件

sootoptyasp

体育新闻采集文件

sootopkjasp

科技新闻采集文件

1、自动采集新浪新闻浏览量最高的新闻分类入库，将新浪新闻变成你自己站点的新闻。

2、抓取从当前时间起24小时内新浪娱乐新闻浏览量最高的10-20条。建议用此法每天采集一次。

3、自动过滤广告以及无用代码。

4、采集过程较占资源，建议你在每天访客少时进行，且每次采集间隔时间要超过一天。

5、本插件部分代码参考其他小偷类程序由sootop重新制作完成，如侵犯到版权问题，请联系本人更正。

6、目前，所有的花香动网程序都可以使用！

使用方法：新用户将全部文件传到你的网站跟目录，用记事本打开sootop_xwcj_incasp文件，修改参数为

和你的网站设置匹配，在你的adminasp里加入插件连接（连接文件sootopxwcjasp）。

这里提供下载：

>

Function LoseNum(ContentStr)

Dim ClsTempLoseStr,regEx

ClsTempLoseStr = Cstr(ContentStr)

Set regEx = New RegExp

regExPattern = "[\d]+"

regExIgnoreCase = True

regExGlobal = True

ClsTempLoseStr = regExReplace(ClsTempLoseStr,"")

LoseNum= ClsTempLoseStr

Set regEx = Nothing

End Function

以上就是关于求ASP的文件采集代码全部的内容，包括:求ASP的文件采集代码、asp采集代码怎么实现部分抓取、新浪新闻采集插件怎么用等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！