asp 截取字符串函数

下面是编程之家 jb51.cc 通过网络收集整理的代码片段。

编程之家小编现在分享给大家，也给大家做个参考。

'截取字符串 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

以上是编程之家(jb51.cc)为你收集整理的全部代码内容，希望文章能够帮你解决所遇到的程序开发问题。

如果觉得编程之家网站内容还不错，欢迎将编程之家网站推荐给程序员好友。