ASP文章系统解决方案实现上一页下一页第12页

　　首先感谢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，如果当前记录已经是最后一条记录，则输出文字“没有了”
<%
functionthenext
newrs=server.CreateObject(adodb.recordset)
sql=selecttop1*fromarticleswhereid>&a1&orderbyid
setnewrs=conn.execute(sql)
ifnewrs.eofthen
response.Write(没有了)
else
a2=newrs(id)
response.Write(<ahref=view.asp?id=&a2&>下一篇</a>)
endif
endfunction
%>
定义一个thehead函数来找出下一篇的ID，如果当前记录已经是最前面的一条记录，则输出文字“没有了”
<%
functionthehead
headrs=server.CreateObject(adodb.recordset)
sql=selecttop1*fromarticleswhereid<&a1&orderbyiddesc
setheadrs=conn.execute(sql)
ifheadrs.eofthen
response.Write(没有了)
else
a0=headrs(id)
response.Write(<ahref=view.asp?id=&a0&>上一篇</a>)
endif
endfunction
%>
数据库连接文件
<!--#includefile=conn.asp-->
取得传递过来的ID，显示文章标题作者和内容
<%
id=request(id)
sql=select*fromarticleswhereid=&id
setrs=conn.execute(sql)
%>
<%boardid=rs(boardid)%>
<title>文章系统-<%=rs(title)%></title><bodyleftmargin=0topmargin=0>
<!--#includefile=top.asp-->
<%
DoWhileNotrs.EOF
%>
<tablewidth=773border=0cellspacing=0cellpadding=0align=center>
<tr>
<tdwidth=576align=left>
<tablewidth=557border=0cellspacing=5cellpadding=4align=left>
<tr>
<tdcolspan=2align=center><spanstyle=font-size:9ptcolor:#efefef><%=rs(title)%><br>
<divalign=right><spanstyle=font-size:9ptcolor:#efefef>作者：<%=rs(author)%></span></div>
</span></td>
</tr>
<tr>
<tdcolspan=2><spanstyle=font-size:9ptcolor:#efefef><!--将数据库的资料取出，经过编码后输出，保持输入时的格式不变--><%=replace(server.HTMLEncode(rs(content)),chr(13),<br>)%></span></td>
</tr>
<%a1=rs(id)%>
<tr>
<tdwidth=269align=right><!--调用前面定义的显示上一篇的函数--><%thehead%></td>
<tdwidth=257align=right><!--调用前面定义的显示下一篇的函数--><%thenext%></td>
</tr>
<%rs.MoveNext%>
<%Loop%>
</table></td>
<tdwidth=217valign=topalign=left>相关文章：
根据当前文章的栏目号，找出同一栏目的文章
<%
sql=select*fromarticleswhereboardid=&boardid&
setrs=conn.execute(sql)
%>
<%
DoWhileNotrs.EOF
%>
<tablewidth=207border=0cellspacing=2cellpadding=2>
<tr>
<tdheight=20><ahref=view.asp?id=<%=rs(id)%>><%=rs(title)%></a></td>
</tr>
</table>
<%rs.MoveNext%>
<%Loop%>
</td>
</tr>
</table>
<!--#includefile=copyright.asp-->
</body>
<!--程序结束-->


12下一页阅读全文