您的位置首页ASP

ASP实现“上一个”和“下一个”

​在我们所介绍的ASP代码中,是通过查询大于当前ID的第一条记录来找出下一篇的ID,查询小于当前ID的第一条记录来找出上一篇的ID,

在我们所介绍的ASP代码中,是通过查询大于当前ID的第一条记录来找出下一篇的ID,查询小于当前ID的第一条记录来找出上一篇的ID,这样就算ID不连续也可以正常显示了。(程序代码也是参阅过经典论坛相关贴子提示所制作的)  

简单介绍方法:  

数据表articles中有id(文章ID)、title(文章标题)、content(文章内容)、addtime(文章发布时间)等其它各相关字段。  

 <%  

 `定义一个nextrs函数来找出下一篇的ID    

 function   nextrs  

 nextrsd=server.CreateObject("adodb.recordset")  

 sql="select   top   1   *   from   articles   where   id>"&a1&"   order   by   id"  

 set   nextrsd=conn.execute(sql)  

 if   nextrsd.eof   then  

 response.Write   "下一篇:这是本分类下的最后一篇文章"  

 else  

 a2=nextrsd("id")  

 response.Write   "下一篇:<a   href='article.asp?id="&a2&"'>"&nextrsd("title")&"</a>"  

 end   if  

 end   function    

 `定义一个backrs函数来找出上一篇的ID  

 function   backrs  

 backrsd=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   then  

 response.Write   "上一篇:这是本分类下的第一篇文章"  

 else  

 a0=backrsd("id")  

 response.Write   "上一篇:<a   href='article.asp?id="&a0&"'>"&backrsd("title")&"</a>"  

 end   if  

 end   function  

 `取得传递过来的文章ID  

 ID=request("id")  

 sql="select   *   from   articles   where   id="&id  

 set   rs=conn.execute(sql)  

 a1=rs("id")  

 %>  

 <!--显示文章内容..............................-->  

 <!--调用前面定义的显示上一篇文章的函数--><%   backrs   %><br>  

 <!--调用前面定义的显示下一篇文章的函数--><%   nextrs   %>  

 <!--程序结束-->  

本文来自网络,不代表芝麻站长立场,转载请注明出处:http://www.wuhu815.com/asp/201992203345.html
联系我们

联系我们

173-5429-9937

在线咨询: QQ交谈

邮箱: web018@163.com

关注微信
微信扫一扫关注我们

微信扫一扫关注我们

关注微博
返回顶部