|
<% 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 %> |