asp显示左边的n个字符自动识别汉字的函数

显示一个字符串的前几个字符，asp中我们一般使用left(str,n)来获取。left有个不足就是处理汉字和英文字符是一样的，没有区分开，这样就使得我们获取的字符串的长度不一致，影响了页面的统一美观。使用下面的函数就可以解决这个问题了,自动识别汉字.

 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