'==============================================================================
' HTML 태그 제거
'==============================================================================
Public Function removeTag(szTarget)
dim rtnValue, tagFree
set tagFree = New Regexp
tagFree.Pattern = "<[^>]+>"
tagFree.Global = true
rtnValue = tagFree.Replace(szTarget,"")
removeTag = rtnValue
End Function
'------------------------------------------------------------------------------
' 사용 예제
'------------------------------------------------------------------------------
const szTarget = "<a href='http://www.naver.com'><font color='red'><b>네이버 링크</b></font></a>"
Response.Write "Original String : " & szTarget & "<br>"
Response.Write "Remove Tags : " & removeTag(szTarget) & "<br>"
|
|
|
