Dimungkinkan untuk memfilter dan memproses tag html, tetapi juga mempertahankan parameter yang tidak memproses tag
fungsi strip_tags(strHTML, diizinkanTags)
redupkan objRegExp, strOutput
atur objRegExp = regexp baru
strKeluaran = strHTML
diizinkanTags = , & lcase(ganti(allowedTags, , )) & ,
objRegExp.IgnoreCase = benar
objRegExp.Global = benar
objRegExp.MultiLine = benar
objRegExp.Pattern = <(.|/n)+?>
setel kecocokan = objRegExp.execute(strHTML)
objRegExp.Pattern = <(/?)(/w+)[^>]*>
untuk setiap pertandingan dalam pertandingan
tagName = objRegExp.Replace(nilai.cocok, $2)
jika instr(allowedTags, , & lcase(tagName) & ,) = 0 maka
strOutput = ganti(strOutput, match.value, )
berakhir jika
Berikutnya
strip_tags = strOutput
setel objRegExp = tidak ada
fungsi akhir