 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
首先感谢V37斑竹对我的帮助，这个方案解决了显示“上一篇下一篇”和相关文章的问题， 贴出来让大家分享。 以前看到一个帖子讲用ID+1和ID-1的办法判定“上一篇下一篇”， 在用的过程中发现一个问题：当删除数据库中的一篇文章时，就会造成ID不连续， 假如用ID+1和ID-1来判定就会出现找不到记录的问题，在这个程序里， 通过查询大于当前ID的第一条记录来找出下一篇的ID， 查询小于当前ID的第一条记录来找出上一篇的ID，这样就算ID不连续也可以正常显示了。 至于相关文章的显示则是在数据表里添加一个boardid字段来区分不同的文章栏目， 在每次添加一篇新文章时加上boardid号就可以了， 显示一篇文章时根据boardid来查询数据库就能显示出相关文章。 数据表articles中的字段有id,boardid,title,content,author,addtime。 <!--程序开始--> \\\'定义一个thenext函数来找出下一篇的ID，假如当前记录已经是最后一条记录，则输出文字“没有了” <% function thenext newrs=server.CreateObject("adodb.recordset") sql="select top 1 * from articles where id>"&a1&" order by id" set newrs=conn.execute(sql) if newrs.eof then response.Write("没有了") else a2=newrs("id") response.Write("<a href=\\\'view.asp?id="&a2&"\\\'>下一篇</a>") end if end function %> \\\'定义一个thehead函数来找出下一篇的ID，假如当前记录已经是最前面的一条记录，则输出文字“没有了” <% function thehead headrs=server.CreateObject("adodb.recordset") sql="select top 1 * from articles where id<"&a1&" order by id desc" set headrs=conn.execute(sql) if headrs.eof then response.Write("没有了") else a0=headrs("id") response.Write("<a href=\\\'view.asp?id="&a0&"\\\'>上一篇</a>") end if end function %> \\\'数据库连接文件 <!--#include file="conn.asp"--> \\\'取得传递过来的ID，显示文章标题作者和内容 <% id=request("id") sql="select * from articles where id="&id set rs=conn.execute(sql) %> <% boardid=rs("boardid") %> <title>文章系统-<% =rs("title") %></title> <body leftmargin="0" topmargin="0"> <!--#include file="top.asp" --> <%Do While Not rs.EOF%> <table width="773" border="0" cellspacing="0" cellpadding="0" align="center"> <tr> <td width="576" align="left"><table width="557" border="0" cellspacing="5" cellpadding="4" align="left"> <tr> <td colspan="2" align="center"> <span style="font-size:9pt color:#efefef"><%= rs("title") %><br> <div align="right"> <span style="font-size:9pt color:#efefef">作者：<%= rs("author") %></span></div> </span></td></tr><tr><td colspan="2" > <span style="font-size:9pt color:#efefef"> <!--将数据库的资料取出，经过编码后输出，保持输入时的格式不变--> <%= replace(server.HTMLEncode(rs("content")),chr(13),"<br>") %></span></td></tr><% a1=rs("id") %><tr><td width="269" align="right"> <!--调用前面定义的显示上一篇的函数--> <% thehead %> </td> <td width="257" align="right"> <!--调用前面定义的显示下一篇的函数--> <% thenext %></td></tr> <% rs.MoveNext Loop %></table></td><td width="217" valign="top" align="left">相关文章： \\\'根据当前文章的栏目号，找出同一栏目的文章 <%sql="select * from articles where boardid="&boardid&"" set rs=conn.execute(sql)%> <%Do While Not rs.EOF %> <table width="207" border="0" cellspacing="2" cellpadding="2"> <tr> <td height="20"> <a href="view.asp?id=<%=rs("id")%>"> <%= rs("title") %> </a></td></tr></table> <% rs.MoveNext%><%Loop%></td> </tr> </table> <!--#include file="copyright.asp" --> </body> <!--程序结束--> 返回类别: 教程 上一教程: 简朴快捷实现ASP在线发邮件 下一教程: ASP调用ORACLE存储过程 您可以阅读与"ASP文章系统解决方案"相关的教程: · ASP文章系统的解决方案 · ASP文章系统的解决方案 · 对于ASP编码问题的深入研究与最终解决方案 · ASP 0115 ERROR的解决方案 · 个人主页的数据库解决方案ASP |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
