判断文章中文字符数量

dim winnt_chinese

winnt_chinese = (len("论坛")=2)

function strlength(str)

on error resume next

if winnt_chinese then

dim l,t,c

dim i

l=len(str)

t=l

for i=1 to l

c=asc(mid(str,i,1))

if c<0 then c=c+65536

if c>255 then

t=t+1

end if

next

strlength=t

else

strlength=len(str)

end if

if err.number<>0 then err.clear

end function

以上资料由动网先锋(http://www.aspsky.net)整理制作，转载请说明出处！