cutstr.asp

来自「很漂亮的一个网络公司的源码」· ASP 代码 · 共 26 行

<% 
'******************************************
'函数名：Cutstr
'作用：用于切除某段时间过长字符，一个中文算2个字符
'参数说明：str--字符串  strlen --要显示的长度
'******************************************
function cutStr(str,strlen)
	dim cutStr_l,cutStr_t,cutStr_c
	cutStr_l=len(str)
	cutStr_t=0
	for cutStr_i=1 to cutStr_l
		cutStr_c=Asc(Mid(str,cutStr_i,1))
		if cutStr_c>255 or cutStr_c<0 then
			cutStr_t=cutStr_t+2
		else
			cutStr_t=cutStr_t+1
		end if
		if cutStr_t>=strlen then
			cutStr=left(str,cutStr_i)&"..."
		exit for
		else
			cutstr=str
		end if
	next
end function
%>