去除内容中的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 %>