过滤html代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】过滤html

作者: / 发布于2011/1/5/ 505

<div>function strip_tags(strHTML, allowedTags)

 dim objRegExp, strOutput
 set objRegExp = new regexp

 strOutput = strHTML
 allowedTags = "," & lcase(replace(allowedTags, " ", "")) & ","

 objRegExp.IgnoreCase = true
 objRegExp.Global = true
 objRegExp.MultiLine = true
 objRegExp.Pattern = "<(.|\n)+?>"
 set matches = objRegExp.execute(strHTML)
 objRegExp.Pattern = "<(/?)(\w+)[^>]*>"
 for each match in matches
 tagName = objRegExp.Replace(match.value, "$2")
 if instr(allowedTags, "," & lcase(tagName) & ",") = 0 then
 strOutput = replace(strOutput, match.value, "")
 end if
 next
 strip_tags = strOutput
 set objRegExp = nothing
end function 
</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　过滤html　

同语言下

可能有用的

贡献的其它代码Label