คุณสามารถกรองและประมวลผลแท็ก html ได้ แต่ยังคงรักษาพารามิเตอร์ที่ไม่ประมวลผลแท็กไว้
ฟังก์ชั่น strip_tags (strHTML, อนุญาตแท็ก)
สลัว objRegExp, strOutput
ตั้งค่า objRegExp = regexp ใหม่
strOutput = strHTML
AllowedTags = , & lcase(แทนที่(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 = แทนที่ (strOutput, match.value, )
สิ้นสุดถ้า
ต่อไป
strip_tags = strOutput
ตั้งค่า objRegExp = ไม่มีเลย
ฟังก์ชั่นสิ้นสุด