介绍ASP实现将长的标题用省略号收尾

    作者:课课家教育更新于: 2015-11-16 12:24:00

    大神带你学编程,欢迎选课

    小编等着你们的到来,共同探讨关于编辑语言的知识,我想大家会满载而归的。excel教学

    数据库中提取长长的文章,总是有碍网页的排版布局。
    所以,想固定地提取一部分字符,然后后面有……替代。
    1、原理:
    判断文章的长度是否超过规定的长度,若超过则只显示规定长度的大学,否则完整显示。
    2、涉及函数:
    len():返回字符串长度或者变量的字节长度。

    以下为引用的内容:


    [Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]
    [Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]
    left():截取一个字符串的前部分

    以下为引用的内容:


    [Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]
    3、主要程序:判断内容长度是否大于给定值,据结果做相应操作

    以下为引用的内容:


    [Ctrl+A 全部选择 提示:你可先修改部分代码,再按运行]
    4、ASP中应用
    以上是在客户端脚本调试,和ASP也是大同小异:最主要的是函数功能。

    以下为引用的内容:
    <%
    text=rs("content")  '将数据库字段值赋到某变量上
    i=10                      '定义固定大小
    if len(text)>i then   '如果文本长度大于给定的值
    text=left(text,i)     '则提取前段的i位的字符串
    response.write (text&"...")
    else
    response.write (text)
    end if
    %>


    5、为了方便,做成函数

    以下为引用的内容:
    <%
    function conleft(content,i)
    if len(content)>i then 
    content=left(content,i)   
    response.write (content&"...")
    else
    response.write (content)
    end if
    end function
    %>


    以上为函数,下面就可以直接调用。excel基础教程

    well编程语言原本是被设计成专门使用在计算机上的,但它们也可以用来定义算法或者数据结构。正是因为如此,程序员才会试图使程序代码更容易阅读。[1]
    编程语言往往使程序员能够比使用机器语言更准确地表达他们所想表达的目的。对那些从事计算机科学的人来说,懂得程序设计语言是十分重要的,因为在当今所有的计算都需要程序设计语言才能完成。[1]
    在过去的几十年间,大量的编程语言被发明、被取代、被修改或组合在一起。尽管人们多次试图创造一种通用的程序设计语言,却没有一次尝试是成功的。之所以有那么多种不同的编程语言存在的原因是,编写程序的初衷其实也各不相同;新手与老手之间技术的差距非常大,而且有许多语言对新手来说太难学;还有,不同程序之间的运行成本(runtime cost)各不相同。[1]
    有许多用于特殊用途的语言,只在特殊情况下使用。例如,PHP专门用来显示网页;Perl更适合文本处理;C语言被广泛用于操作系统和编译器的开发(所谓的系统编程)。[1]

    <%call conleft(rs("content"),10)%>
    OK,相信以后遇到这些问题应该是NO PROBLEM
    为了解决中英文截取的问题,建议大家使用如下函数:

    以下为引用的内容:
    Function gotTopic(str,strlen)
        if str="" then
            gotTopic=""
            exit function
        end if
        dim l,t,c, i
        str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
        l=len(str)
        t=0
        for i=1 to l
            c=Abs(Asc(Mid(str,i,1)))
            if c>255 then
                t=t+2
            else
                t=t+1
            end if
            if t>=strlen then
                gotTopic=left(str,i) & "…"
                exit for
            else
                gotTopic=str
            end if
        next
        gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<")
    End Function

    excel教程

    精彩的视频课程等着大家的观看,相信你会收获更多你想要的知识,祝你学而有成。

课课家教育

未登录

1