asp文章系统的解决方案

首先感谢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 thenextnewrs=server.createobject("adodb.recordset")sql="select top 1 * from articles where id>"&a1&" order by id"set newrs=conn.execute(sql)if newrs.eof thenresponse.write("没有了")elsea2=newrs("id")response.write("<a href='view.<a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>?id="&a2&"'>下一篇</a>")end ifend function%>`定义一个thehead函数来找出下一篇的id，如果当前记录已经是最前面的一条记录，则输出文字“没有了”<% function theheadheadrs=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 thenresponse.write("没有了")elsea0=headrs("id")response.write("<a href='view.<a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>?id="&a0&"'>上一篇</a>")end ifend function%>`<a href="/list/shujuku/index.html" title="数据库" target="_blank"><acronym>数据库</acronym></a>连接文件`取得传递过来的id，显示文章标题作者和内容<% id=request("id") sql="select * from articles where id="&idset rs=conn.execute(sql)%><% boardid=rs("boardid") %><title>文章系统-<% =rs("title") %></title><body leftmargin="0" topmargin="0"><%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.<a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>encode(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.<a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>?id=<%=rs("id")%>"><%= rs("title") %></a></td></tr></table><% rs.movenext%><%loop%> </td></tr></table></body>
[ctrl+a 全部选择然后拷贝]

文字水平不行，有说的不好或不对的地方请大家不吝指正。

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

asp文章系统的解决方案

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

asp文章系统的解决方案

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范