控制输出字符串长度(自动区别中英文)

时间:2008-10-07 12:04:33  来源:第二电脑网上收集  作者:

  第二电脑网导读:函数function strlen(str)dim p_lenp_len=0strlen=0if trim(str)<>"" thenp_len=len(trim(str))for xx=1 to p_lenif asc(mid(str,xx,1))<0 thenstrlen=int(strlen) + 2elsestrlen=int(strlen) + 1end ifnextend ifend function'定义截取函数function strvalue(
  正文:ASP/ target=_blank class=infotextkey>asp函数实现截取自定义长度的字符串,并可定义超出部分显示样式,支持中英文字符串自动判别

<%'定义字符串判别函数function strlen(str)dim p_lenp_len=0strlen=0if trim(str)<>"" thenp_len=len(trim(str))for xx=1 to p_lenif asc(mid(str,xx,1))<0 thenstrlen=int(strlen) + 2elsestrlen=int(strlen) + 1end ifnextend ifend function'定义截取函数function strvalue(str,lennum)dim p_numdim iif strlen(str)<=lennum thenstrvalue=strelsep_num=0x=0do while not p_num > lennum-2x=x+1if asc(mid(str,x,1))<0 thenp_num=int(p_num) + 2elsep_num=int(p_num) + 1end ifstrvalue=left(trim(str),x)&"…" //截取后定义超出部分内容的显示方式loopend ifend function%>


使用方法:

1.首先请将以上蓝框内代码转存为short.asp

2.我们使用DWMX2004新建一个ASP页面,内容如下

<%@LANGUAGE="vbSCRIPT" CODEPAGE="936"%>
<%'引入公共函数模块 %>
<!--#include file="short.asp"-->

3.对目标截取输出,例如对新闻标题字段内容进行截取

<% =strvalue(rsnews.Fields.Item("title").Value,20)
'20 为截取长度 %>

控制输出字符串长度(自动区别中英文)》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/ASP/2008-10-07/2934.html


关键字:

关于《控制输出字符串长度(自动区别中英文)》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td