É possível filtrar e processar tags HTML, mas também manter um parâmetro que não processa tags
função strip_tags(strHTML, permitidoTags)
dim objRegExp, strOutput
definir objRegExp = novo regexp
strSaída = strHTML
permitidaTags = , & lcase(replace(allowedTags, , )) & ,
objRegExp.IgnoreCase = verdadeiro
objRegExp.Global = verdadeiro
objRegExp.MultiLine = verdadeiro
objRegExp.Pattern = <(.|/n)+?>
definir correspondências = objRegExp.execute (strHTML)
objRegExp.Pattern = <(/?)(/w+)[^>]*>
para cada partida em partidas
tagName = objRegExp.Replace(correspondência.valor, $2)
se instr(allowedTags, , & lcase(tagName) & ,) = 0 então
strOutput = substituir(strOutput, match.value, )
terminar se
próximo
strip_tags=strSaída
definir objRegExp = nada
função final