ASP 实用函数- HTML 过滤

用户注册

投稿取消

文章分类:

还能输入300字

上传中....

热门文章更多>>

标签更多>>

word左右居中纵向分布 word左右居中对齐 word左右居中对齐怎么设置 word标题回车后为正文 word标题回车后直接分页 word标题回车后中间空了好大一段 word里面行距怎么调整无法缩小 word里面行距一直很大 word里面行距怎么设置在哪里 word试卷格式文档怎么打印 word试卷格式排版 word中隐藏文字打印 word中隐藏文字快捷键 word中隐藏文字在哪里

专题更多>>

最新文章更多>>

也许k

ASP 实用函数- 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