实现清除内容中的HTML标签的方法

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)="      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 stripping:

   

    View of string with HTML stripping:

   

以上就是关于实现清除内容中的HTML标签的方法，感谢大家的阅读，更多内容请关注错新技术频道网站。