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

标签：style   tar   ext   c   color   string   

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

一个功能更强大的函数，也是用正则表达式写的,布布扣,bubuko.com

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

标签：style   tar   ext   c   color   string   

原文地址：http://blog.csdn.net/u014440209/article/details/25543719