用正则表达式写的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 with the empty string strOutput = objRegExp.Replace(strHTML, "") 'Replace all < and > with < and > strOutput = Replace(strOutput, "<", "<") strOutput = Replace(strOutput, ">", ">") stripHTML = strOutput 'Return the value of strOutput Set objRegExp = Nothing End Function %>
<% if Len(Request("txtHTML")) > 0 then %> View of string with no HTML stripping:
View of string with HTML stripping:
<%=StripHTML(Request("txtHTML"))%><% End If %>