关闭

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

标签: function
668人阅读 评论(0) 收藏 举报
分类:
用来自动截取指定长度的字符串(多余的字符以“…”代替),这种方法常常用来截取文章或新闻的标题,可自动识别英文或中文,收藏起来,以备后用。
程序代码 程序代码
<%
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)%>
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:373819次
    • 积分:5612
    • 等级:
    • 排名:第4905名
    • 原创:94篇
    • 转载:241篇
    • 译文:0篇
    • 评论:36条
    最新评论