熊海博客

在日常项目中，一些地方经常会用到过滤HTML，例如在显示在某些地方的内容提要，或者需要截取显示某些带有HTML代码的内容。

通过自己多次使用，发现以上代码唯一有不足的地方就是没有过滤掉空格，只要在最后面对空格再进行一下处理就行了，以下为具体代码：

<% 
Function RemoveHTML(strHTML,strLen) 
 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 
 if(len(strHTML)>strLen)then
     RemoveHTML = left(strHTML,strLen)&"..."
 else
     RemoveHTML=strHTML 
 end if
 Set objRegExp = Nothing 
End Function
%>


<%
 '继续过滤空格
content =replace(content,"&nbsp;", "")
content =replace(content," ", "")
%>

 '截取显示内容
<%=RemoveHTML(content,180)%>