去除内容中的html
<%
Option Explicit
Function stripHTML(strtext)
dim arysplit,i,j, strOutput
arysplit=split(strtext,\”<\”)
if len(arysplit(0))>0 then j=1 else j=0
for i=j to ubound(arysplit)
if instr(arysplit(i),\”>\”) then
arysplit(i)=mid(arysplit(i),instr(arysplit(i),\”>\”)+1)
else
arysplit(i)=\”<\” & arysplit(i)
end if
next
strOutput = join(arysplit, \”\”)
strOutput = mid(strOutput, 2-j)
strOutput = replace(strOutput,\”>\”,\”>\”)
strOutput = replace(strOutput,\”<\”,\”<\”)
stripHTML = strOutput
End Function
%>
<form method=\”post\” id=form1 name=form1>
<b>Enter an HTML String:</b><br>
<textarea name=\”txtHTML\” cols=\”50\” rows=\”8\” wrap=\”virtual\”><%=Request(\”txtHTML\”)%></textarea>
<p>
<input type=\”submit\” value=\”Strip HTML Tags!\” id=submit1 name=submit1>
</form>
<% if Len(Request(\”txtHTML\”)) > 0 then %>
<p><hr><p>
<b><u>View of string <i>with no</i> HTML stripping:</u></b><br>
<xmp>
<%=Request(\”txtHTML\”)%>
</xmp><p>
<b><u>View of string <i>with</i> HTML stripping:</u></b><br>
<pre>
<%=StripHTML(Request(\”txtHTML\”))%>
</pre>
<% End If %>