|
|
一个功能更强大的函数，也是用正则表达式写的
|
||||||||||||||||||||||||||||||||||||||||||||||||||||
广告招租，e-mail:yesize@hotmail.com <% 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,<,<)</P><P>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> <input type=submit value=Strip HTML Tags! id=submit1 name=submit1> </form></P><P><% if Len(Request(txtHTML)) > 0 then %> <hr> <b><u>View of string <i>with no</i> HTML stripping:</u></b><br> <xmp> <%=Request(txtHTML)%> </xmp> <b><u>View of string <i>with</i> HTML stripping:</u></b><br> <pre> <%=StripHTML(Request(txtHTML))%> </pre> <% End If %>
|
|
|||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||
加入最爱
热门小游戏分类 
