| 本月文章推荐 |
控制输出字符串的长度，可以区别中英文发表日期：2001-11-1
|
|
研究了2小时怎么控制输出文章标题中的中英文，给大家铁出来
函数在下面，是方法是： 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 |
| 上一篇：利用ASP将HTML格式数据传输给Excel（4）
人气:10893 下一篇：磁盘ID在ASP源码防拷贝中的应用 人气:10190 |
| 浏览全部字符的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
