【 tulaoshi.com - Web开发 】
%
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
bEnter an HTML String:/bbr
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 %
phrp
buView of string iwith no/i HTML stripping:/u/bbr
xmp
%=Request("txtHTML")%
/xmpp
buView of string iwith/i HTML stripping:/u/bbr
pre
%=StripHTML(Request("txtHTML"))%
/pre
% End If %
