Left的擴展功能（ＡＳＰ）

Function LeftEx(str,lennum)
  Dim p_num
  Dim i
  If Len(str)<=lennum Then
 LeftEx=str
  Else
 p_num=0
 x=0
 Do While Not p_num > lennum-1
   x=x+1
   If asc(mid(str,x,1))<0 Then
  p_num=int(p_num) + 2
   Else
  p_num=int(p_num) + 1
   End If
   LeftEx=left(trim(str),x)&"…"
 Loop
  End If
End Function