ASP中如何过滤html调用指定字数

Asp建站程序中通常首页会调用公司简介，如果后台添加的公司简介有图片或是特殊格式会导致首页变成，这个时候我们就需要去掉html格式，调用指定字节数的文字，如何操作呢，我们可以定义一下函数

function StrLeft(Str,StrLen)

dim L,T,I,C

if Str="" then

    StrLeft=""

    exit function

end if

Str=Replace(Replace(Replace(Replace(Str,"&nbsp;"," "),"&quot;",Chr(34)),"&gt;",">"),"&lt;","<") '过滤字符串中的html格式

L=Len(Str)

T=0

for i=1 to L

    C=Abs(AscW(Mid(Str,i,1)))

    if C>255 then

      T=T+2

    else

      T=T+1

    end if

    if T>=StrLen then

      StrLeft=Left(Str,i) & "…"

      exit for

    else

      StrLeft=Str

    end if

next

StrLeft=Replace(Replace(Replace(replace(StrLeft," ","&nbsp;"),Chr(34),"&quot;"),">","&gt;"),"<","&lt;")

end function
然后通过调用strleft函数就可以过滤格式并截取字数了，这样首页的公司简介就不会影响网页布局了