Left的扩展功能(ASP)
摘要:
Function LeftEx(str,lennum) Dim p_num Dim i If Len(str)<=lennum ThenLeftEx=str Elsep_num=0x=0Do While Not p_num > lennum-1 x=x+1 If asc(mid(str,x,1))<0 Thenp_num=int(p_num) + 2 Elsep_num=int(p_num) + 1 End If LeftEx=left(trim(str),x)&"…"Loop End IfEnd Function 阅读全文
posted @ 2004-10-26 09:30 goodvify 阅读(123) 评论(0) 推荐(0) 编辑