CSDN博客

img listen

Left的扩展功能(ASP)

发表于2004/10/26 9:30:00  683人阅读

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
阅读全文
0 0

相关文章推荐

img
取 消
img