在VBS中用len(aaa.value)实现。
注意:1、我的textarea的name和id属性我均设置为aaa,而且其外没有form。
2、在这里一个汉字使长度加1,一个英文字母也使长度加1,最后的空格也使长度加1
3、如果有其他考虑,请参考下面的代码。这段代码是把标题截短。
function Max_T(str,strlen)
dim l,t,c, i
l=len(str)'取字符串长度
t=0
for i=1 to l'循环一次
c=Abs(Asc(Mid(str,i,1)))'取得每个字符的ASC码
if c>255 then'如果ASC码大于255就为汉字
t=t+1
else
t=t+0.5
end if
if t>=strlen then
Max_T=left(str,i)&"..."
exit for
else
Max_T=str&" "
end if
next
end function