首页 > 代码库 > 一个功能更强大的函数,也是用正则表达式写的

一个功能更强大的函数,也是用正则表达式写的


<% 
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=http://www.mamicode.com/"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 %>