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
用户登录
还没有账号?立即注册
用户注册
投稿取消
文章分类: |
|
还能输入300字
上传中....