asp 字符串截取函数(2)

  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