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

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

asp正则如何采集页面可见文本内容小编就暂时分享到这里了，如果你还有需要了解清楚的，可以来网站直接联系小编。在我们爱站技术频道网站有很多精彩的文章，喜欢可以收藏起来。