去除内容中的html
程序员文章站
2022-07-06 21:14:31
<%option explicitfunction striphtml(strtext)dim arysplit,i,j, stroutputarysplit=spl...
<%
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 %>
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 %>
上一篇: 乡长与八路5