【下载文档:  用正则表达式写的HTML分离函数.txt 】

---

用正则表达式写的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 %>

Enter an HTML String:
<%=Request("txtHTML")%>

<% if Len(Request("txtHTML")) > 0 then %>

---

View of string with no HTML stripping:

<%=Request("txtHTML")%>

View of string with HTML stripping:

 <%=StripHTML(Request("txtHTML"))%> 

<% End If %>