天气晴朗，天空万里无云，温暖的阳光洒在人的身上，就像是一位母亲轻轻地抚摸着我们，微风徐徐，波光粼粼，站在美丽的湖边尽情享受大自然的无穷魅力。
我写的是这样:
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 不过有一些过滤不了！而且速度太慢！
本文asp只采集网站可见文本的正则到此结束。人活着就是为了解决困难。这才是生命的意义，也是生命的资料。逃避不是办法，知难而上往往是解决问题的最好手段。小编再次感谢大家对我们的支持！