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

我写的是这样: Function ClearHTMLCode(originCode) Dim reg set reg = new RegExp reg.IgnoreCase = True reg.Global = True reg.Pattern = “()” originCode= reg.Replace(originCode, “”) reg.Pattern = “()” originCode= reg.Replace(originCode, “”) reg.Pattern = “<[^>]*>”