Es posible filtrar y procesar etiquetas html, pero también conservar un parámetro que no procesa etiquetas.
función strip_tags(strHTML, etiquetas permitidas)
tenue objRegExp, strOutput
establecer objRegExp = nueva expresión regular
strSalida = strHTML
etiquetas permitidas =, & lcase(reemplazar (etiquetas permitidas,,)) &,
objRegExp.IgnoreCase = verdadero
objRegExp.Global = verdadero
objRegExp.MultiLine = verdadero
objRegExp.Patrón = <(.|/n)+?>
establecer coincidencias = objRegExp.execute(strHTML)
objRegExp.Patrón = <(/?)(/w+)[^>]*>
para cada partido en partidos
nombre de etiqueta = objRegExp.Replace(match.value, $2)
si instr(allowedTags, & lcase(tagName) &,) = 0 entonces
strOutput = reemplazar (strOutput, coincidir.valor,)
terminar si
próximo
strip_tags = strSalida
establecer objRegExp = nada
función final