asp 截取字符串函数

以下代码由PHP站长网 52php.cn收集自互联网

现在PHP站长网小编把它分享给大家，仅供参考

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

以上内容由PHP站长网【52php.cn】收集整理供大家参考研究

如果以上内容对您有帮助，欢迎收藏、点赞、推荐、分享。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!