Asp详细文章页面相关链接的上一篇和下一篇的添加方法

平时配合SEO部门的工作，由于有些网站可能不方便去重做，或者说是没必要去重做，只能进行网站的改造，而其中一个页面的改造就是，在文章页面例如新闻页面中添加相关链接，比如“上一篇”和“下一篇”，由于各个网站系统如CMS系统的架构不同，实现的编程开发语言也不同，故修改的方式会有所不一样，而对于DedeCms系统来说，由于其自带了这个功能，所以很简单。而对于一般的asp系统来说，对于一个栏目下的详细文章，如何将其改造成在页面中显示“上一篇”和“下一篇”呢，下面bruce来分享一下这个小经验。



首先，先进行分析一下。一般详细的文章页面或者新闻页面会有这样的代码：

<%
set rs=server.CreateObject("adodb.recordset")
sql = "Select  * From table_name where id="&request.QueryString("id")
rs.Open sql,conn,1,1
if not rs.Eof then
%>
调用rs("title")或rs("content")来显示标题及内容等
<%
rs.close
set rs=nothing
%>

如何根据已有的id信息来找出上下篇呢。一般来说，新闻列表页面显示新闻的页面id顺序是降序的，例如id显示顺序为：132,120,117，对于某一篇文章，id为120，则它的上一篇就为132，下一篇就是117，则可以将上一篇的sql语句改造为：

sql=Select top 1 * From table_name where id>"&request.QueryString("id")&" order by id asc"

即选出一个比当前序号大的第一个。同样的，下一篇的sql语句可以写成：

sql=Select top 1 * From table_name where id<"&request.QueryString("id")&" order by id desc"

即选出一个比当前序号小的第一个。于是乎，对于某一个分类下的详细页面，上一篇和下一篇就可以通过这样来调用：

<%
set rs=server.CreateObject("adodb.recordset")
sql = "Select top 1 * From news_info where id>"&request.QueryString("id")&" order by id asc"
rs.Open sql,conn,1,1
if not rs.Eof then
%>
上一篇：<a href = "/show_news.asp?id=<% =rs("id")%>"><% =rs("title")%></a>
<%
end if
rs.Close
set rs = Nothing
%>    &nbsp;&nbsp;
<%
set rs=server.CreateObject("adodb.recordset")
sql = "Select top 1 * From news_info where id<"&request.QueryString("id")&" order by id desc"
rs.Open sql,conn,1,1
if not rs.Eof then

%>
下一篇：<a href = "/show_news.asp?id=<% =rs("id")%>"><% =rs("title")%></a>
<%
end if
rs.Close
set rs = Nothing
conn.close
set conn=nothing
%>

其次，需要注意的一些方面。以上讲的是最简单的一种情况，有时还需要考虑如下情况：

1，栏目类型问题。比如说，详细内容的表news_info中采用了type来分类，则sql语句中就需要添加type的限制。

2，发布状态的问题。有些cms中，对文章添加了发布和草稿等的一些状态，如果有，sql语句中也需要添加进去。

3，数据库连接的关闭问题。在内容主体的显示的数据库连接上，如果有语句“conn.close set conn=nothing”，则必须删除掉，放在上下篇调用改造后的地方写出，否则显示不出上下篇的内容，这个对于asp技术人员来说，应该不难理解的。

今天就分享这些，希望对某些SEOer的技术们有点用处，也希望大家抛砖引玉，多提一些意见。