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 = "<table><tbody><tr><td>태그를 제거하고 순수 텍스트만 추출</td></tr></tbody></table>"

rstContents = RemoveHTML(contents)

'rstContents에는 HTML 태그가 제거되고 순수 텍스트만 담겨있게됩니다.

%>

출처: http://h5bak.tistory.com/147 [이준빈은 호박머리]

가끔 필요할때 뭔지도 생각안나고.. 했던기억은 있는데..

뭐지 할때.. 나이는 못속이나보다.. 그래서 찾기에 저장해 놓음