Il est possible de filtrer et traiter les balises html, mais aussi de conserver un paramètre qui ne traite pas les balises
fonction strip_tags(strHTML, AllowTags)
faible objRegExp, strOutput
set objRegExp = nouvelle expression rationnelle
strOutput = strHTML
AllowedTags = , & lcase(replace(allowedTags, , )) & ,
objRegExp.IgnoreCase = vrai
objRegExp.Global = vrai
objRegExp.MultiLine = vrai
objRegExp.Pattern = <(.|/n)+?>
définir les correspondances = objRegExp.execute(strHTML)
objRegExp.Pattern = <(/?)(/w+)[^>]*>
pour chaque match en matchs
tagName = objRegExp.Replace(match.value, $2)
si instr(allowedTags, , & lcase(tagName) & ,) = 0 alors
strOutput = remplacer (strOutput, match.value, )
finir si
suivant
strip_tags = strOutput
définir objRegExp = rien
fonction de fin