过滤所有HTML代码和CSS,JS

　　Function RemoveHTML(strHTML)    '过滤HTML代码的函数包括过滤CSS和JS

　　StrHtml = Replace(StrHtml,vbCrLf,"")

　　StrHtml = Replace(StrHtml,Chr(13)&Chr(10),"")

　　StrHtml = Replace(StrHtml,Chr(13),"")

　　StrHtml = Replace(StrHtml,Chr(10),"")

　　StrHtml = Replace(StrHtml," ","")

　　StrHtml = Replace(StrHtml,"    ","")

　　Dim objRegExp, Match, Matches

　　Set objRegExp = New Regexp

　　objRegExp.IgnoreCase = True

　　objRegExp.Global = True

　　'取闭合的<>

　　objRegExp.Pattern = "<style(.+?)/style>"

　　'进行匹配

　　Set Matches = objRegExp.Execute(strHTML)

　　' 遍历匹配集合，并替换掉匹配的项目

　　For Each Match in Matches

　　strHtml=Replace(strHTML,Match.Value,"")

　　Next

　　'取闭合的<>

　　objRegExp.Pattern = "<script(.+?)/script>"

　　'进行匹配

　　Set Matches = objRegExp.Execute(strHTML)

　　' 遍历匹配集合，并替换掉匹配的项目

　　For Each Match in Matches

　　strHtml=Replace(strHTML,Match.Value,"")

　　Next

　　'取闭合的<>

　　objRegExp.Pattern = "<.+?>"

　　'进行匹配

　　Set Matches = objRegExp.Execute(strHTML)

　　' 遍历匹配集合，并替换掉匹配的项目

　　For Each Match in Matches

　　strHtml=Replace(strHTML,Match.Value,"")

　　Next

　　RemoveHTML=strHTML

　　Set objRegExp = Nothing

　　End Function