可以過濾處理html標記，但也保留一個不處理標記的參數
function strip_tags(strHTML, allowedTags)
dim objRegExp, strOutput
set objRegExp = new regexp
strOutput = strHTML
allowedTags = , & lcase(replace(allowedTags, , )) & ,
objRegExp.IgnoreCase = true
objRegExp.Global = true
objRegExp.MultiLine = true
objRegExp.Pattern = <(.|/n)+?>
set matches = objRegExp.execute(strHTML)
objRegExp.Pattern = <(/?)(/w+)[^>]*>
for each match in matches
tagName = objRegExp.Replace(match.value, $2)
if instr(allowedTags, , & lcase(tagName) & ,) = 0 then
strOutput = replace(strOutput, match.value, )
end if
next
strip_tags = strOutput
set objRegExp = nothing
end function