先说一下采集原理： 采集程序的主要步骤如下： 一、获取被采集的页面的内容 二、从获取代码中提取所有用的数据 一、获取被采集的页面的内容 我目前所掌握的ASP常用获取被采集的页面的内容方法： 1、用serverXMLHTTP组件获取数据 复制代码 代码如下:Function GetBody(weburl) '创建对象 Dim ObjXMLHTTP Set ObjXMLHTTP=Server.Crea... [阅读全文]

比如 1223445677777778aabbcccccccccc 经过过滤之后就是12345678abc 复制代码 代码如下: % '过滤重复 Function norepeat(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegEx.Global = True RegEx.Ign... [阅读全文]

我写的是这样: Function ClearHTMLCode(originCode) Dim reg set reg = new RegExp reg.IgnoreCase = True reg.Global = True reg.Pattern = "(s+cript(.+?)\/s+cript)" originCode= reg.Replace(originCode, "") reg.Patt... [阅读全文]

function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\.[^\]*\)" str=re.replace(str," ") re.Pattern="(\\/[^\]*\)" ... [阅读全文]

复制代码 代码如下: Function getLastWord(str) Set regEx = New RegExp regEx.Pattern = "(.*)([a-zA-Z])[^a-zA-Z]*" regEx.IgnoreCase = false regEx.Global = True str = regEx.Replace(str,"$2") getLastWord = str Set ... [阅读全文]

比如 1223445677777778aabbcccccccccc 经过过滤之后就是12345678abc 复制代码 代码如下:% '过滤重复 Function norepeat(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegE... [阅读全文]

'去掉html中的table代码 Function OutTable(str) dim a,re set re=new RegExp re.pattern="\[^]+()\" re.global=true a=str OutTable=re.replace(a,"") End Function ... [阅读全文]

我写是这样: Function ClearHTMLCode(originCode) Dim reg reg = RegExp reg.IgnoreCase = True reg.Global = True reg.Pattern = "(s+cript(.+?)\/s+cript)" originCode= reg.Replace(originCode, "") reg.Pattern = "... [阅读全文]