[QUOTE]FUNCTION CutTitle(str,strlen)
dim tmplen,tmpstr,i,s
tmpstr=""
tmplen=0
str=trim(str)
if str="" then exit function
for i=1 to Len(str)
s=mid(str,i,1)
tmpstr=tmpstr&s
tmplen=tmplen+1
if Asc(s)<0 then tmplen=tmplen+1
'如果是汉字,长度再加1
if tmplen>strlen then
tmpstr=Left(tmpstr,Len(tmpstr)-2)&"..."
exit for
end if
next
CutTitle=tmpstr
END FUNCTION[/QUOTE]