asp 右计数

dim a
a="新闻标题长度有点长新闻标题长度有点长"
if len(a)>11 then a=left(a,10) & "..."

response.write left(rs("news_title"),10)."..."

我自己写的一个函数
'用于截取字符串字节数
function getstr(str,nummm)
total = nummm+1
strlen = 0
for iii=1 to len(str)
currentchar = mid(str,iii,1) '截取每个字符进行判断
strPriTmpXX = server.URLEncode(currentchar)
arrPriTmp = split(strPriTmpXX,"%")
if ubound(arrPriTmp) >=2 then
strlen = strlen+2 '中文字符长度+2
else
strlen = strlen+1
end if
if strlen >= total then
getstr = getstr&"" '超过num加省略号
exit for
else
getstr = getstr¤tchar
end if
next
end function

调用方法：
getstr(字符串,10)

这是按字节来查询的

<%
Fu