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


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

---

    View of string with no HTML stripping:

   

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

    View of string with HTML stripping:

   

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

<% End If %>