허용 테그 외 모든 태그 제거 > ASP

 Function strip_tags2(str,allowtags)
   Dim content, tags
   content = str
   tags = replace(allowtags,",","|")
   content = eregi_replace("<(/?)(?!/|" & tags & ")([^<>]*)?>","",content)
   content = eregi_replace("(javascript|vbscript)+","$1//",content)
   content = eregi_replace("(.location|location.|onload=|.cookie|alert|window.open|onmouse|onkey|onclick|view-source)+","//",content) '//자바스크립트 실행방지
  strip_tags2 = content
 End Function

str=내용

allowtags=허용태그   컴마로 구분 p,a,table

strip_tags2(str,allowtags)