/ Published in: ASP
This function has also an “allowed tags†parameter as the PHP function to keep some specified tags (the tags to keep must be comma separated). This function is better since you can put allowedTags equal to an empty string to strip all the tags as the first function.
Expand |
Embed | Plain Text
Copy this code and paste it in your 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
URL: http://www.barattalo.it/2010/02/09/asp-strip-tags-function-equivalent-to-php/