我写的是这样:

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

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