asp html 태그 제거

'HTML 태그를 정규식으로 없애줌
FUNCTION REMOVETAGS(BYVAL STR)
 IF NOT ISNULL(STR) THEN
   DIM REGEX
   ' 정규표현식 객체
   SET REGEX = NEW REGEXP
   ' 자바스크립트 제거
   REGEX.PATTERN = "<script[^>]*>[\W|\w]*?</script>"
   REGEX.IGNORECASE = TRUE 'false(대소문자구분), true(구분안함, 기본)
   REGEX.GLOBAL = TRUE 'true(전체문자열), false(처음것만, 기본)
   STR = REGEX.REPLACE(STR, "")
   SET REGEX = NOTHING
   SET REGEX = NEW REGEXP
   ' 주석제거
   REGEX.PATTERN = "<!--[\W|\w]*?-->"
   REGEX.IGNORECASE = TRUE 'false(대소문자구분), true(구분안함, 기본)
   REGEX.GLOBAL = TRUE 'true(전체문자열), false(처음것만, 기본)
   STR = REGEX.REPLACE(STR, "")
   SET REGEX = NOTHING
   ' HTML태그 제거
   SET REGEX = NEW REGEXP
   REGEX.PATTERN = "<[\/\!]*?[^<>]*?>"
   REGEX.IGNORECASE = TRUE 'false(대소문자구분), true(구분안함, 기본)
   REGEX.GLOBAL = TRUE 'true(전체문자열), false(처음것만, 기본)
   REMOVETAGS = REPLACE(REGEX.REPLACE(STR, ""),"'","")
   REMOVETAGS = REPLACE(REMOVETAGS,"%","")
   SET REGEX = NOTHING
 ELSE
   REMOVETAGS = STR
 END IF
END FUNCTION