实现清除内容中的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 noHTML stripping:

    View of string withHTML stripping:

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