|
|
控制输出字符串的长度,可以区别中英文(ASP) |
|
|
作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站 |
strvalue("复请Email通知如果不填写则取注册Email",26) 这里26是指26个英文字母,也就是13个汉字
function strlen(str) dim p_len p_len=0 strlen=0 if trim(str)<>"" then p_len=len(trim(str)) for xx=1 to p_len if asc(mid(str,xx,1))<0 then strlen=int(strlen) + 2 else strlen=int(strlen) + 1 end if next end if end function
function strvalue(str,lennum) dim p_num dim i if strlen(str)<=lennum then strvalue=str else p_num=0 x=0 do while not p_num > lennum-2 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 strvalue=left(trim(str),x)&"…" loop end if end function
原文地址:http://7i24.com/asp/103260940232.htm
|
|
相关文章:相关软件: |
|