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

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