【 tulaoshi.com - Web开发 】
                             
                            代码如下:
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com/webkaifa/)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