广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

作者： 探索者

     rem 显示左边的n个字符(自动识别汉字)
  Function LeftTrue(str,n)
  
   If len(str)<=n/2 Then
   LeftTrue=str
   Else
   Dim TStr
   Dim l,t,c
   Dim i
   l=len(str)
   t=l
   TStr=""
   t=0
   for i=1 to l
   c=asc(mid(str,i,1))
   If c<0 then c=c+65536
   If c>255 then
   t=t+2
   Else
   t=t+1
   End If
   If t>n Then exit for
   TStr=TStr&(mid(str,i,1))
   next
   LeftTrue = TStr
   End If
  
  End Function