上兼职海网站建设

文章系统中“上篇、下篇”效果的制作_web

发布于：2007-9-30 已被阅读： 次 来源：上兼职海网站建设

曾经有很多朋友在问我，It365cn.com文章中实现“上一篇”、“下一篇”的效果如何实现？因为一直忙于写It365cn的论坛，所以未能及时给朋友们提供站内的代码。适逢空闲，工作之余，简单的来介绍一下实现的ASP代码。　　以前曾经参考过一个网站的源码，是使用ID+1和ID-1的办法来判断上下篇的。在实际使用过程中，发现一个问题：当删除数据库中的一篇文章时，就会造成ID不连续，如果用ID+1和ID-1来判断就会出现找不到记录。所以程序并不是非常的完美。　　在我们所介绍的ASP代码中，是通过查询大于当前ID的第一条记录来找出下一篇的ID，查询小于当前ID的第一条记录来找出上一篇的ID，这样就算ID不连续也可以正常显示了。（程序代码也是参阅过经典论坛相关贴子提示所制作的）　　简单介绍方法：　　数据表articles中有id（文章ID）、title（文章标题）、content（文章内容）、addtime（文章发布时间）等其它各相关字段。<!--数据库连接文件--><!--#include file="conn.ASP"--><%`定义一个nextrs函数来找出下一篇的ID　　function nextrsnextrsd=server.CreateObject("adodb.recordset")sql="select top 1 * from articles where id>"&a1&" order by id"set nextrsd=conn.execute(sql)if nextrsd.eof thenresponse.Write "下一篇：这是本分类下的最后一篇文章"elsea2=nextrsd("id")response.Write "下一篇：<a href='article.ASP?id="&a2&"'>"&nextrsd("title")&"<网站a>"end ifend function `定义一个backrs函数来找出上一篇的IDfunction backrsbackrsd=server.CreateObject("adodb.recordset")sql="select top 1 * from articles where id<"&a1&" order by id desc"set backrsd=conn.execute(sql)if backrsd.eof thenresponse.Write "上一篇：这是本分类下的第一篇文章"elsea0=backrsd("id")response.Write "上一篇：<a href='article.ASP?id="&a0&"'>"&backrsd("title")&"<网站a>"end ifend function`取得传递过来的文章IDID=request("id")sql="select * from articles where id="&idset rs=conn.execute(sql)a1=rs("id")%><!--显示文章内容..............................--><!--调用前面定义的显示上一篇文章的函数--><% backrs %><br><!--调用前面定义的显示下一篇文章的函数--><% nextrs %><!--程序结束-->　　水平有限，可能在代码上还有些不足之处，如出现Bug，请及时给予指正。如有疑问之处，请登录http:webwap.it365cn.com网站bbs发贴询问。 更多内容请看系统安全设置  系统安装手册  系统备份专题专题，或进入讨论组讨论。 建设 教你用PS调出漂亮MM的唯美效果制作阳光照射的效果用Photoshp教你打造美女梦幻效果制做激光武器效果 上兼职海网站建设

网站建设相关信息