HTML 태그를 필터링하고 처리할 수 있지만 태그를 처리하지 않는 매개변수도 유지할 수 있습니다.
함수 Strip_tags(strHTML, allowedTags)
희미한 objRegExp, strOutput
objRegExp = 새 정규식 설정
strOutput = strHTML
allowedTags = , & lcase(replace(allowedTags, , )) & ,
objRegExp.IgnoreCase = true
objRegExp.Global = true
objRegExp.MultiLine = true
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 = 아무것도 설정하지 않음
함수 종료