<%
'//패턴으로 치환할수 있는 eregi_replace()함수를 구현
'//PHP에는 있으나 ASP에는 없기 때문
Function eregi_replace(pattern, replace, text)
Dim eregObj:
Set eregObj = New RegExp:
eregObj.Pattern = pattern: '//패턴 설정
eregObj.IgnoreCase = True: '//대소문자 구분 여부
eregObj.Global = True: '//전체 문서에서 검색
eregi_replace = eregObj.Replace(text, replace): '//Replace String
End Function
'//허용태그 외의 모든 태그제거 함수
Function strip_tags(str,allowtags)
Dim content:
Dim tags:
content = str:
tags = replace(allowtags,",","|"):
content = eregi_replace("<(\/?)(?!\/|" & tags & ")([^<>]*)?>", "<$1$2>", content):
contents = eregi_replace("(javascript\:|vbscript\:)+","$1//",contents):
contents = eregi_replace
("(\.Location|Location\.|=|\.COOKIE|alert\(|window\.open\(|onmouse|onkey||view\-
source\:)+","//",contents): '//자바스크립트 실행방지
strip_tags = content:
End Function
'//사용예
Dim permitTags, comment:
permitTags = "br,a,img,table,b,font,div,center,embed":
comment = "<font color=red>허용하지 않은 태그</font>가<br>잘 <b>보이나요?</b><br><script></script>":
comment = comment & "<div align=center>아주 유용할꺼에요~</div><body><html><xmp><pre>":
response.write strip_tags(comment,permitTags):
%>
0