编程论坛 → ASP技术论坛

这种ASP列表如何实现的。谢谢

zimo 发布于 2009-11-12 10:50， 799 次点击

各位前辈，问题如下
  描述：我想在我的主页上面加一个公告，公告是的标题列表是从ACCESS数据库里面调用的，具体如下：数据库名称date.mdb。公告引用的内容：表：NEWS,列：title（公告的标题）和time（发布时间）

示例：
      ·全国高校音乐教育专业大学生基本功比赛毕晓玮获奖 09/11/10

      ·我校当选为省国防教育协会常务理事单位 09/11/12

      ·我校美术学被批准为山东省文化艺术科学首批省级重点学科 09/11/13

      ·我校9项山东省软科学研究计划项目获准立项    09/11/14

      ·我校４０名学生被评为“朝阳助学”全省高校优秀特困生  15

特别要求，因为考虑到宽度的原因，也就是固定列宽，只能显示15个汉字，所以想让超过15个汉字的标题自动换行。并且只显示最新更新的前5篇文章，谢谢

谢谢~

5 回复

#2

aspic2009-11-12 11:50

select top 5 id,title,addtime from news order by id desc
换行那个主要是跟你设置的宽度有关超出宽度自然换行了

#3

msgj2009-11-14 18:30

select top 5 title,addtime from news order by addtime

#4

aspic2009-11-15 08:46

以下是引用msgj在2009-11-14 18:30:18的发言：

select top 5 title,addtime from news order by addtime

你不要链接到详细页显示了？为什么不要id
既然id是自动的那么by id desc和by addtime也是一样的排序吧况且id是没有重复的如果addtime默认是date() 那么……

[ 本帖最后由 aspic 于 2009-11-15 08:47 编辑 ]

#5

mgmt_asp2009-11-16 13:47

字符截取
使用示例 tlen(rs("title"),15)

程序代码：

Function tlen(txt,strlen)        '文字截取
    txt=trim(txt)
    x = len(txt)
    y = 0
    if x >= 1 then
        for ii = 1 to x
            if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then '如果是汉字
                y = y + 2
            else
                y = y + 1
            end if
            if y >= strlen then
                txt = mid(trim(txt),ii,ii)&"..."
                exit for
            end if
        next
        tlen = txt
    else
        tlen = ""
    end if
End Function

降序查询 order by desc time(表中加上时间,用于按时间排序)

只显示5篇?
循环有必要加深了解..

#6

craft001wen2009-11-19 10:16

select top 5 id,left(title,15),[time] from news order by time desc

1