ASP 实用函数- HTML 过滤

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

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

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!