1.
Function RegDeleteHtml(str)
Set reg = New RegExp
reg.Pattern = "<[^<|>]*>" 'Test(검색-문자열)
reg.IgnoreCase = True 'replace (검색-문자열, 대체-문자열)
reg.Global = True 'Execute (검색-문자열)
RegDeleteHtml=reg.replace(str,"")
end Function
2.
Function stripHTML(strHTML)
Dim objRegExp, strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"
strOutput = objRegExp.Replace(strHTML, "")
strOutput = Replace(strOutput, "<", "<")
strOutput = Replace(strOutput, ">", ">")
stripHTML = strOutput
Set objRegExp = Nothing
End Function
Html = "<P>asdfasdf</P>"
Html = Html & "<P>asdfasdf</P>"
Html = Html & "<P><STRONG>asdfasdf</STRONG></P>"
Html = Html & "<P><FONT face=""courier new, courier, mono"" size=6>asdfasdf</FONT></P>"
Text = stripHTML(Html)
Response.Write left(Text,10)