首页 > 编程 > ASP > 正文

ASP教程: HTML 过滤实用函数

2024-05-04 11:07:04
字体:
来源:转载
供稿:网友

可以过滤处理html标记,但也保留一个不处理标记的参数

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

发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表