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

此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 为截取长度 %>