-
<%
-
OptionExplicit
-
-
FunctionstripHTML(strtext)
-
dimarysplit,i,j,strOutput
-
arysplit=split(strtext,"<")
-
-
iflen(arysplit(0))>0thenj=1elsej=0
-
-
fori=jtoubound(arysplit)
-
ifinstr(arysplit(i),">")then
-
arysplit(i)=mid(arysplit(i),instr(arysplit(i),">")+1)
-
else
-
arysplit(i)="<"&arysplit(i)
-
endif
-
next
-
-
strOutput=join(arysplit,"")
-
strOutput=mid(strOutput,2-j)
-
strOutput=replace(strOutput,">",">")
-
strOutput=replace(strOutput,"<","<")
-
-
stripHTML=strOutput
-
EndFunction
-
-
-
%>
-
-
<formmethod="post"id=form1name=form1>
-
<b>EnteranHTMLString:</b><br>
-
<textareaname="txtHTML"cols="50"rows="8"wrap="virtual"><%=Request("txtHTML")%></textarea>
-
<p>
-
<inputtype="submit"value="StripHTMLTags!"id=submit1name=submit1>
-
</form>
-
-
<%ifLen(Request("txtHTML"))>0then%>
-
<p><hr><p>
-
<b><u>Viewofstring<i>withno</i>HTMLstripping:</u></b><br>
-
<xmp>
-
<%=Request("txtHTML")%>
-
</xmp><p>
-
<b><u>Viewofstring<i>with</i>HTMLstripping:</u></b><br>
-
<pre>
-
<%=StripHTML(Request("txtHTML"))%>
-
</pre>
-
<%EndIf%>
如果您对该产品感兴趣，请填写办理（客服微信：xiaoxiongyidong）
发表评论
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。