网站建设之ASP上一篇下一篇代码

ASP新闻文章或者产品中的上一篇（个）和下一篇（个）的程序代码：

<%
id = TRIM(request("id"))
sqlPrev = "select top 1 * from news where id<" &id &" order by id desc"'上一篇（个）读取
sqlNext = "select top 1 * from news where id>" &id &" order by id"'下一篇（个）读取
SET rsPrev = conn.EXECUTE(sqlPrev)
SET rsNext = conn.EXECUTE(sqlNext)
Response.WRITE "<TABLE WIDTH=""800"" BORDER=""0"" ALIGN=""CENTER"" CELLPADDING=""0"" CELLSPACING=""0"">"&vbCrLf
IF rsPrev.EOF THEN
Response.WRITE "<TR><TD HEIGHT=""20"" align=left>上一篇文章：没有了</TD></TR>"&vbCrLf
ELSE
Response.WRITE "<TR><TD HEIGHT=""20"" align=left>上一篇文章：<a href=""news.asp?id="&rsPrev("id")&""">"&rsPrev("Title")&"</a></TD></TR>"&vbCrLf
END IF
IF rsNext.EOF THEN
Response.WRITE "<TR><TD HEIGHT=""20""align=left>下一篇文章：没有了</TD></TR>"&vbCrLf
ELSE
Response.WRITE "<TR><TD HEIGHT=""20""align=left>下一篇文章：<a href=""news.asp?id="&rsNext("id")&""">"&rsNext("Title")&"</a></TD></TR>"&vbCrLf
END IF
Response.WRITE "</TABLE>"&vbCrLf
rsPrev.CLOSE
SET rsPrev = NOTHING
rsNext.CLOSE
SET rsNext = NOTHING
%>

对产品的上一个产品，下一个产品同样适用。

2010/2/9 鞋子中国网站制作完成

2010/2/7 网站建设之如何快速备案

2010/2/5 广州奇亿网站建设恭祝全国人民新春快乐

2010/2/4 腾讯也被收购？中移动澄清无意收购腾讯！

2010/2/2 网站建设实用的图片防盗链方法

2010/2/1 建站技巧之一个表单同时提交两个页面

2010/1/30 网站建设之域名转发新方法

2010/1/29 PHP自动执行任务的网站建设代码

2010/1/28 广州网站制作赠送空间免费升级通知

2010/1/26 网站建设技巧之ASP时间显示格式

2010/1/24 网站制作之如何去掉LI前面的点

2010/1/22 从网络孔子学院事件看网站建设问题

2010/1/21 网站建设行业的几大忽悠

2010/1/20 asp动态判断下拉菜单或选择框哪个已选

2010/1/19 网站建设之简单的简繁转换代码

2010/1/18 网站制作客户使用CN域名的紧急通知

2010/1/16 简单随网页滚动而滚动的层

2010/1/15 广州网站建设之弹出并关闭跳转返回代码

2010/1/14 谷歌退出中国市场的真正原因何在？

2010/1/13 网站建设之层水平居中和垂直居中代码