用正则表达式写的HTML分离函数

存成.asp文件,执行,你用ASPHTTP抓内容的时候用这个很爽,当然自己要改进一下了 <% Option Explicit Function stripHTML(strHTML) ‘Strips the HTML tags from strHTML Dim objRegExp, strOutput Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True objRegExp.Pattern = “<.+?>” ‘Replace all HTML tag matches