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 ubund(arysplit)
if instr(arysplit(i),">") then
arysplit(i)=mid(arysplit(i),instr(arysplit(i),">")+1)
else
arysplit(i)=" end if
next
strOutput = join(arysplit, "")
strOutput = mid(strOutput, 2-j)
strOutput = replace(strOutput,">",">")
strOutput = replace(strOutput,"
stripHTML = strOutput
End Function
%>
0 then %>
View of string with no HTML striping:
View of string with HTML striping:
The above is about how to clear HTML tags in the content. Thank you for your reading. For more content, please pay attention to the website of the Wuxin Technology Channel.