(ASP) HTML 태그 제거

ASP에서 HTML 태그를 제거하고 순수 TEXT만 뽑아내는 함수입니다.

<%
'HTML벗겨내기
Function RemoveHTML( strText )
       dim contTmp
	set tagfree = New Regexp
	tagfree.Pattern= "<[^>]+>"
	tagfree.Global=true
	strText=tagfree.Replace(strText,"")
	RemoveHTML= strText
End Function
%>

위의 함수를 사용하는 예제입니다.

<%
contents = "
태그를 제거하고 순수 텍스트만 추출
"
rstContents = RemoveHTML(contents)
'rstContents에는 HTML 태그가 제거되고 순수 텍스트만 담겨있게됩니다.
%>