Можно фильтровать и обрабатывать html-теги, но также сохранять параметр, который не обрабатывает теги.
функция Strip_tags (strHTML, разрешенные теги)
дим objRegExp, strOutput
set objRegExp = новое регулярное выражение
стрВыход = стрHTML
разрешенные теги = , & lcase(replace(allowedTags, , )) & ,
objRegExp.IgnoreCase = правда
objRegExp.Global = правда
objRegExp.MultiLine = правда
objRegExp.Pattern = <(.|/n)+?>
установить совпадения = objRegExp.execute(strHTML)
objRegExp.Pattern = <(/?)(/w+)[^>]*>
за каждый матч в матчах
tagName = objRegExp.Replace(match.value, $2)
если instr(allowedTags, , & lcase(tagName) & ,) = 0, то
strOutput = replace(strOutput, match.value, )
конец, если
следующий
Strip_tags = strOutput
установить objRegExp = ничего
конечная функция