爱生活

记录下生活点滴

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

用来自动截取指定长度的字符串(多余的字符以“…”代替),这种方法常常用来截取文章或新闻的标题,可自动识别英文或中文,收藏起来,以备后用。
程序代码 程序代码
<%
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)%>
阅读更多
文章标签: function
个人分类: asp
上一篇javascript 日期选择(二种)
下一篇Global.asa文件使用详细介绍
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭