[ASP] Html 태그 제거하기 - 게시판 미리보기

게시판 리스트에서 제목과 함께 내용의 일부분을 보여주는 경우, 글 등록 시 사용한 에디터의 태그가 그대로 반영되어 다음과 같이 태그가 그대로 테스트 형태로 보이게 된다.

 

태그가 제거된 순수 내용만 리스트에서 볼 수 있도록 다음과 같이 수정했다.

 

 

1. 에디터를 이용해 글등록을 한 DB의 원본 내용은 다음처럼 Encoding 되어있다. 이것을 태그의 형태로 바꾸어 주기 위해 HTMLDecode 함수를 이용한다.

 

Function HTMLDecode(sText)
	Dim I
	sText = Replace(sText, """, Chr(34))
	sText = Replace(sText, "<"  , Chr(60))
	sText = Replace(sText, ">"  , Chr(62))
	sText = Replace(sText, "&" , Chr(38))
	sText = Replace(sText, " ", Chr(32))
	For I = 1 to 255
		sText = Replace(sText, "&#" & I & ";", Chr(I))
	Next
	HTMLDecode = sText
End Function

 

 

 

2. Decoding된 소스에서 함수를 이용해 텍스트에 포함된 태그 부분을 제거한다.

Function RemoveHTML(strText) 
	dim contTmp
	set tagfree = New Regexp 
	tagfree.Pattern= "<[^>]+>" 
	tagfree.Global=true 
	strText=tagfree.Replace(strText,"") 
	RemoveHTML= strText 
End Function

 

 

 

3. 두 함수를 거치면 아래처럼 태그가 제거된 텍스트 내용만 남게 된다.

HTML 태그를 제거한 순수 텍스트 내용(게시판리스트)

태그가 포함된 원본 내용(게시판뷰)