过滤html代码，包括script,stype,<标签>
'**************************************************
'函数名：RemoveHTML
'作 用：过滤html代码
'参 数：strHTML-----要过滤的字符
'返回值：过滤后的字符
'**************************************************
Function RemoveHTML(str)
Dim objRegExp, Match, Matches,strHTML
if isnull(str) then
str=""
end if
strHTML=str
strHTML=replace(replace(replace(strHTML,vblf,""),vbcr,""),vbcrlf,"")
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<script[^>]*?>.*?</script>"
strHTML = objRegExp.Replace(strHTML,"")
objRegExp.Pattern = "<style[^>]*?>.*?</style>"
strHTML = objRegExp.Replace(strHTML,"")
objRegExp.Pattern = "<.+?>"
strHTML = objRegExp.Replace(strHTML,"")
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function
