[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]