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 태그가 제거되고 순수 텍스트만 담겨있게됩니다. %>

Posted by 준콩ol

댓글을 달아 주세요