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

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