asp函数，字符截取

一.最简单的

<%

       if len(rs("title")) > 10 then   '判断字符串的长度

        response.Write left(rs("title"),9)&" ..."  

        else

        response.write rs("title")

        end if

%>

二.函数的。

    Function InterceptString(text,length) '函数名

    text=trim(text) ’忽略字符串前后的空白

    text_length= len(text) '求字符串的长度

    count_length = 0 ’用来计数

    if text_length >= 1 then

    for count= 1 to text_length '这一个循环计算要截取的字符串

    if asc(mid(text,ii,1)) < 0 or asc(mid(text,ii,1)) >255 then '如果是汉字

    count_length = count_length + 2

    else

    count_length = count_length + 1

    end if

    if count_length >= length then

    text = left(trim(text),count) '字符串限长

    exit for

    end if

    next

    InterceptString = text '函数返回值

    else

    InterceptString = ""

    end if

    End Function

以上两个是在csdn上看到的，虽然也很实用，但感觉并不是自己想要的。所以自己动手改动了一下，将两者结合起来用，代码如下：

function cutstr(thestr,strlen)

thestr=trim(thestr) '忽略字符串前后的空白

thestr_length= len(thestr) '求字符串的长度

if thestr_length > strlen then   '判断字符串的长度

   response.Write left(thestr,strlen)&" ..."  

else

   response.write rs("title")

end if

end function

调用：<%= cutstr(rs("title"),30)%>

青岛网站建设整理发布 转载请注明。