剔除HTML文档的HTML标记，转换为纯文本

将文章用文本格式保存，而不是直接使用HTML存储，这样的话会节约数据库空间．

于是写了这么个函数来将文本中的HTML标记剔除 

 

函数虽然简单，但是对处理HTML文档还是很有效的 

<% 

Function RemoveHTML(strHTML) 

 Dim objRegExp, Match, Matches    

 Set objRegExp = New Regexp 

  

 objRegExp.IgnoreCase = True 

 objRegExp.Global = True 

 '取闭合的<> 

 objRegExp.Pattern = "<.+?>" 

 '进行匹配 

 Set Matches = objRegExp.Execute(strHTML) 

  

 ' 遍历匹配集合，并替换掉匹配的项目 

 For Each Match in Matches    

     strHtml=Replace(strHTML,Match.Value,"") 

 Next 

 RemoveHTML=strHTML 

 Set objRegExp = Nothing 

End Function 

 

%>