我寫的是這樣: 
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 

不過有一些過濾不了！而且速度太慢！