asp只采集网站可见文本的正则

2016-02-19 11:03 4 1 收藏

人生本是一个不断学习的过程，在这个过程中，图老师就是你们的好帮手，下面分享的asp只采集网站可见文本的正则懂设计的网友们快点来了解吧！

【 tulaoshi.com - Web开发】

我写的是这样:
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.Pattern = "(s+tyle(.+?)/s+tyle)"
originCode= reg.Replace(originCode, "")
reg.Pattern = "[^]*"
originCode= reg.Replace(originCode, "")
ClearHTMLCode = originCode
End Function

不过有一些过滤不了！而且速度太慢！

来源:http://www.tulaoshi.com/n/20160219/1596415.html

上一篇： MySQL 1067错误解决方法集合
下一篇： Excel2024中创建共享工作簿

看过《asp只采集网站可见文本的正则》的人还看了以下文章更多>>

正则文本框只能输入正整数

标签： Web开发

正则实现文本框只能输入正整数 [Ctrl+A 全选注:如需引入外部Js需刷新才能执行]

正则表达式的使用 ASP

标签： Web开发

代码如下： % ' -------------------------------------------------------------- ' Match 对象 ' 匹配搜索的结果是存放在 Match 对象中，提供了对正则表达式匹配的只读属性的访问。 ' Match 对象只能通过 RegExp 对象的 Execute 方法来创建，该方法实际上返回了 Match 对象的集合。 ' 所有的 Match 对象属性都是只读的。在执行正则表...

asp去除html标记与空格的正则

标签： Web开发

function nohtml(str) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(\.[^\]*\)" &nbs...

ASP 正则函数替换分页后的参数

标签： Web开发

代码如下： Function DRexPage(Str) Dim RegEx If IsNull(Str) Or Str="" Then Exit Function Set RegEx=New RegExp RegEx.IgnoreCase=True RegEx.pattern="(\&)?page=(\d)+" DRexPage=regEx.replace(Str,"") '(Str,"$1") Set RegEx=Nothing End Function

网站生成静态页面攻略3:防采集策略

标签： Web开发

目前防采集的方法有很多种，先介绍一下常见防采集策略方法和它的弊端及采集对策：一、判断一个IP在一定时间内对本站页面的访问次数，如果明显超过了正常人浏览速度，就拒绝此IP访问弊端： 1、此方法只适用于动态页面，如：asp\jsp\php等...静态页面无法判断某个IP一定时间访问本站页面的次数。 ...

查看更多精彩>>