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

答案：
我写的是这样: 
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 

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

上一个：正则表达式在线测试工具
下一个：用Javascript正则实现url链接的解析类