自动截取指定长度的字符串

用来自动截取指定长度的字符串（多余的字符以“…”代替），这种方法常常用来截取文章或新闻的标题，可自动识别英文或中文，收藏起来，以备后用。

程序代码

<%
function cLeft(str,n)
dim str1,str2,alln,Islefted
str2 = ""
alln = 0
str1 = str
Islefted = false
if isnull(str) then
cleft = ""
exit function
end if
for i = 1 to len(str1)
nowstr = mid(str1,i,1)
if asc(nowstr)<0 then
alln = alln + 2
else
alln = alln + 1
end if
if (alln<=n) then
str2 = str2 & nowstr
else
Islefted = true
exit for
end if
next
if Islefted then
str2 = str2 & ".."
end if
cleft = str2
end function
%>

使用方法：

<%=cleft(rs("aaaaa"),30)%>