[ASP] 정규식을 이용한 태그 제거 함수

좀 전에 올린 글과 같은 맥락인데 이 글은 ASP에서 사용한 예이다.

<%
'//패턴으로 치환할수 있는 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)
	Dim content, pattern:

content = str:
	
	'pattern = "<(/)?([a-zA-Z]*)(\\s[a-zA-Z]*=[^>]*)?(\\s)*(/)?>"'All->이건 제대로 동작하지 않는다. 참고용으로 남겨둠
	'content = eregi_replace(pattern, "", content):
	pattern = "<(no)?script[^>]*>.*?</(no)?script>":'SCRIPTS
	content = eregi_replace(pattern, "", content):
	pattern = "<style[^>]*>.*</style>":'STYLE
	content = eregi_replace(pattern, "", content):
	pattern = "<(\""[^\""]*\""|\'[^\']*\'|[^\'\"">])*>":'TAGS
	content = eregi_replace(pattern, "", content):
	pattern = "<\\w+\\s+[^<]*\\s*>":'nTAGS
	content = eregi_replace(pattern, "", content):
	pattern = "&[^;]+;":'ENTITY_REFS
	content = eregi_replace(pattern, "", content):
	pattern = "\\s\\s+":'WHITESPACE
	content = eregi_replace(pattern, "", content):

strip_tags = content:
End Function

'//사용예
Dim comment:

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):
%>

원본글은 http://flashcafe.org/?mid=asp_study&page=12&listStyle=webzine&document_srl=3717 에서 볼 수 있다.

소스를 가져와가지고는 이것저것 짜깁기 식으로 수정을 했으니 원본 소스와 비교해서 보면 좋을 것 같다.

저작자표시 비영리 변경금지

'Programming' 카테고리의 다른 글

Eclipse 3.2 에서 꺼도 되는 옵션 정리 (0)	2009.12.01
[Apache] [Windows NT] 날짜별 로그 생성 (0)	2009.08.28
[ASP] 소수점 이하 2자리수까지만 표시하는 함수 (0)	2009.07.01
[JAVA/MS-SQL] JAVA에서 MS-SQL 스토어드 프로시저 사용하기 (0)	2009.06.02
[개발툴] 한글 코딩을 해보자. (0)	2007.08.01

Dualist☆

[ASP] 정규식을 이용한 태그 제거 함수

'Programming' 카테고리의 다른 글

티스토리툴바

[ASP] 정규식을 이용한 태그 제거 함수

'Programming' 카테고리의 다른 글

'Programming' Related Articles

티스토리툴바