asp文章上一篇,下一篇实现代码
来源:asp之家 时间:2008-03-24 20:15:00
新闻、文章系统中经常会用到的一个功能,添加上一篇,下一篇或相关文章的功能可以增加访客停留的时间。也许新人在做这上一篇、下一篇功能时使用的是ID+1或ID-1 的sql查询语句,这样做的缺点时当文章自动编号不连续时,就查询不到数据了。正确的方法应该是使用ID>pid或ID<pid,其中pid是当前文章的id。
下面的函数就是使用这个方法:
Rem==上一篇==
Rem================================================================
Rem= 参数说明:
Rem= pid当前ID,prame:栏目前辍(如一般web_news表,字段时一般为wn_**,prame就代表wn)
Rem= ptable(表前辍.如一般表名是:站点名_表名(shenzhe_news) ptable:就代表shenzhe)
Rem= 说明:采用上面命名法,可使该过程达到通用
Rem===============================================================
Function GetPre(pid,prame,ptable)
id = prame&"_id"
title = prame&"_title"
table = "city_"&ptable
url = "show_"&ptable
sql = "SELECT TOP 1 "&id&","&title&" FROM "&table&" WHERE "&id&"<"&pid&" ORDER BY "&id&" DESC"
set rs = Conn.Execute(sql)
If rs.eof or rs.bof Then
pre = "上一篇:没有新闻了"
Else
pre = "<a href="&url&".asp?"&id&"="&rs(0)&">"&rs(1)&"</a>"
End If
GetPre = pre
End Function
Rem = 下一篇
Rem=============
Rem= 参数函意和上过程一样
Rem==========
Function GetNext(nid,nrame,ntable)
id = nrame&"_id"
title = nrame&"_title"
table = "city_"&ntable
url = "show_"&ntable
sql = "SELECT TOP 1 "&id&","&title&" FROM "&table&" WHERE "&id&">"&nid&" ORDER BY "&id&" "
set rs = Conn.Execute(sql)
If rs.eof or rs.bof Then
nnext = "下一篇:没有新闻了"
Else
nnext = "<a href="&url&".asp?"&id&"="&rs(0)&">下一篇:"&rs(1)&"</a>"
End If
GetNext = nnext
End Function
实现代码:
偶数据库里有表:
city_active city_date city_note
city_active主要字段有: ca_id,cd_title
city_date主要字段有: cd_id,cd_title
city_note主要字段有: cn_id, cn_title
这样引用就可:
在show_new.asp?cn_id=4里引用上一篇下一篇
<%=GetPre(cn_id,"cn","note")%> ' 上一篇
<%=GetNext(cn_id,"cn","note")%> ' 下一篇
标签:sql,上一篇,下一篇,查询
0
投稿
猜你喜欢
几个图片按比例缩放的代码
2008-02-13 08:51:00
SQL Server 作业同步 (结合备份作业)
2012-07-11 15:59:47
conn.execute(sql)后面加(0)和不加的区别
2009-06-24 11:13:00
IE中雅黑字体给布局带来的变化
2008-06-13 11:22:00
CSS教程:关于网页图片的属性的介绍
2008-10-31 12:02:00
Javascript:window对象出身何处
2007-08-28 15:16:00
五个常用MySQL图形化管理工具
2012-01-05 18:49:16
ASP 包含文件中的路径问题和使用单一数据库连接文件的解决方案
2011-04-07 10:35:00
Mysql的最大连接数怎样用java程序测试
2009-01-14 12:05:00
Oracle 游标使用总结
2009-10-02 17:36:00
XML十项特点
2008-04-05 13:49:00
JavaScript 实现 Konami Code
2009-05-26 12:44:00
php面向对象程序设计介绍
2023-05-25 05:31:11
SQL语句的执行原理分析
2012-01-29 18:17:36
Mobile Web下的编码设计
2010-01-28 10:42:00
客户端数据存储–超越cookies
2008-01-15 13:01:00
《悟透JavaScript》感谢语
2008-11-12 12:59:00
asp日期转换成汉字格式程序
2008-07-08 18:19:00
[翻译]标记语言和样式手册 Chapter 9 精简标签
2008-02-01 09:55:00
同时安装sql2000和sql2005,经验点滴
2008-03-04 17:56:00