代码如下 | 复制代码 |
<% Function stripHTML(strHTML) Dim objRegExp, strOutput objRegExp.IgnoreCase = True 'Replace all HTML tag matches with the empty string 'Replace all < and > with < and > stripHTML = strOutput 'Return the value of strOutput Set objRegExp = Nothing |
使用方法
代码如下 | 复制代码 |
stripHTML(strhtml)就可以了,这样用起来就方便多了 |