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

 
我写的是这样:
FunctionClearHTMLCode(originCode)
Dimreg
setreg=newRegExp
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
EndFunction

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