HTML tags | Just because of my previous time XMLHTTP bulk crawl Remote Data articles
Http://blog.csdn.net/babyt/archive/2004/09/08/98516.aspx
Recently someone asked me how to save the article in text format instead of using HTML directly, which would save database space. So I wrote this function to remove the HTML tags from the text.
The function is simple, but it works well for processing HTML documents
<%
Function removehtml (strhtml)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
Objregexp.ignorecase = True
Objregexp.global = True
' Take the closed <>
Objregexp.pattern = "<.+?>"
' to match
Set matches = Objregexp.execute (strhtml)
' Iterate through the matching set and replace the matching item
For the Match in matches
Strhtml=replace (Strhtml,match.value, "")
Next
Removehtml=strhtml
Set objRegExp = Nothing
End Function
%>
