---

存成.asp文件，执行，你用ASPHTTP抓内容的时候用这个很爽，当然自己要改进一下了

<%
Option Explicit

Function strip
HTML
(str
HTML
)
'Strips the
HTML
tags from str
HTML


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(str
HTML
, "")

'Replace all < and > with &;amp;lt; and &;amp;gt;
strOutput = Replace(strOutput, "<", "&;amp;lt;")
strOutput = Replace(strOutput, ">", "&;amp;gt;")

strip
HTML
= strOutput 'Return the value of strOutput

Set objRegExp = Nothing
End Function


%>

<form method="post" id=form1 name=form1>
<b>Enter an
HTML
String:</b><br>
[color=#FFFFFF'][/color]

<textarea name="txt
HTML
" cols="50" rows="8" wrap="virtual"><%=Request("txt
HTML
")%></textarea>
<p>
<input type="submit" value="Strip
HTML
Tags!" id=submit1 name=submit1>
</form>

<% if Len(Request("txt
HTML
")) > 0 then %>
<p><hr><p>
<b><u>View of string <i>with no</i>
HTML
stripping:</u></b><br>
<xmp>
<%=Request("txt
HTML
")%>
</xmp><p>
<b><u>View of string <i>with</i>
HTML
stripping:</u></b><br>
<pre>
<%=Strip
HTML
(Request("txt
HTML
"))%>
</pre>
<% End If %>