Asp过滤Html标签

来源：半月设计 发布人：GuoBar 发布时间：2005-8-4 8:32:13 人气： 所属栏目：ASP研究-ASP

---

< %
Function RemoveHTML(strHTML)
 Dim objRegExp, Match, Matches
 Set objRegExp = New Regexp
 
 objRegExp.IgnoreCase = True
 objRegExp.Global = True
 '取闭合的<>
 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
% >

---

生成时间:2006-5-27 11:31:54