asp 截取字符串函数

清华大佬耗费三个月吐血整理的几百G的资源,免费分享!....>>>

'截取字符串 strvalue(标题,字数)
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

function strlen(str)
	dim page_len
	page_len=0
	strlen=0
	if trim(str)<>"" then
		page_len=len(trim(str))
		for xx=1 to page_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