您所在的位置:小祥子 » 编程 » ASP » 正文

ASP过滤指定html标签

时间:2015-02-21 编辑:本站 来源:本站原创

以前介绍过过滤掉所有HTML标签的函数,今天再为大家介绍过滤指定HTML标签的函数

Function lFilterBadHTML(byval strHTML,byval strTAGs) 
  Dim objRegExp,strOutput 
  Dim arrTAG,i
  arrTAG=Split(strTAGs,",") 
  Set objRegExp = New Regexp  
  strOutput=strHTML  
  objRegExp.IgnoreCase = True 
  objRegExp.Global = True 
  For i=0 to UBound(arrTAG) 
    objRegExp.Pattern = "<"&arrTAG(i)&"[\s\S]+</"&arrTAG(i)&"*>" 
    strOutput = objRegExp.Replace(strOutput, "")  
  Next 
  Set objRegExp = Nothing 
  lFilterBadHTML = strOutput  
End Function

使用方法

lFilterBadHTML(“html代码","div,span") '过滤所有div标签和span标签

关键词:ASP 过滤 指定 标签 html