ASP文章系统上一篇下一篇文章怎么写？

Question

数据表：CommonSite_articles
id : 21
title : 振兴工业
content : 测试文章测试文章
cls_id : 17

这个文件名是arti_show.asp?id=32，想在里面插入“上1篇文章”和

“下一篇文章”，只显示本文章栏目的文章。栏目是用cls_id来区分

的。应该怎么写啊？？

最好是“上一篇文章”“下一篇文章”直接显示文章标题。

麻烦大大帮下忙。。。
melime77~~你的代码填进去后出的这个。。。
Microsoft OLE DB Provider for ODBC Drivers '80040e07'
[Microsoft][ODBC Microsoft Access Driver] 标准表达式中数据类型不匹配。
\arti_show.asp, line 66
我是用的
http://down.cnzz.cn/info/38267.aspx
这个来开站的。可以帮我看下怎么改里面的arti_show.asp，让他能在文章最后链接显示前一篇文章和后一篇文章的标题吗。
另：cls_id是文章分类的，上一章和下一章的cls_id标签应该是一样的，只是ID变动。http://localhost/arti_show.asp?id=44是这样的。。

数据库里ID是添加顺序。cls_id一样表示是同一个栏目下的文章。

就是希望上一页下一页能只显示id不同，cls_id相同的文章的标题。
数据表：CommonSite_articles
字段名 : 值
id : 16
title : 王先生客厅
content : 200842865153586.jpg
cls_id : 17

id : 17
title : 油漆的分类和辨认标准
content : 现代家庭装饰越来
cls_id : 16

id : 18
title : 装修的三种模式
content : 也叫包清工，是指业主自行购买所
cls_id : 16

id : 19
title : 居室装饰中的小窃门
content : 说到居室装饰
cls_id : 16

Answer 1

已经测试过。
<%
'arti_show.asp的原来内容
function
prev1()
sql
=
"SELECT
TOP
1
id
from
CommonSite_articles
WHERE
id<'"&cls_id&"'
ORDER
BY
id
desc"
set
rs1
=
Conn.Execute(sql)
if
rs1.bof
or
rs1.eof
then
prev1="无新闻"
else
prev1="<a
href="&"arti_show.asp?cls_id="&rs1("id")&">上一篇</a>"
end
if
end
function
function
next1()
sql
=
"SELECT
TOP
1
id
from
CommonSite_articles
WHERE
id>"&cls_id&"
ORDER
BY
id"
set
rs1
=
Conn.Execute(sql)
if
rs1.bof
or
rs1.eof
then
next1="无新闻"
else
next1="<a
href="&"arti_show.asp?cls_id="&rs1("id")&">下一篇</a>"
end
if
end
function
%>
<!--用下面的调用：写在新闻下方-->
<%=prev1()%>
<%=next1()%>
你可以把
CommonSite_articles
WHERE
id<'"&cls_id&"'
ORDER
BY
id
desc"
改为：
CommonSite_articles
WHERE
id<"&cls_id&"
ORDER
BY
id
desc"
试下，就是把单引号去掉，还有NEXT1函数的你自己改下。应该没问题的，我的新闻系统的ID字段可能跟你的ID字段，不是同一个数据类型。我这么写完全正常。

Answer 2

已经测试过。
<%
'arti_show.asp的原来内容

function prev1()
sql = "SELECT TOP 1 id from CommonSite_articles WHERE id<'"&cls_id&"' ORDER BY id desc"
set rs1 = Conn.Execute(sql)
if rs1.bof or rs1.eof then
prev1="无新闻"
else
prev1="<a href="&"arti_show.asp?cls_id="&rs1("id")&">上一篇</a>"
end if
end function
function next1()
sql = "SELECT TOP 1 id from CommonSite_articles WHERE id>"&cls_id&" ORDER BY id"
set rs1 = Conn.Execute(sql)
if rs1.bof or rs1.eof then
next1="无新闻"
else
next1="<a href="&"arti_show.asp?cls_id="&rs1("id")&">下一篇</a>"
end if
end function
%>

<!--用下面的调用：写在新闻下方-->
<%=prev1()%>
<%=next1()%>

你可以把
CommonSite_articles WHERE id<'"&cls_id&"' ORDER BY id desc"
改为：
CommonSite_articles WHERE id<"&cls_id&" ORDER BY id desc"
试下，就是把单引号去掉，还有NEXT1函数的你自己改下。应该没问题的，我的新闻系统的ID字段可能跟你的ID字段，不是同一个数据类型。我这么写完全正常。

Answer 3

看你怎么排序了
如果文章本来就是倒序
上一篇
select top 1 * from table where id > 你当前的id order by id asc

下一篇
select top 1 * from table where id < 你当前的id order by id desc

Answer 4

prev1="<a href="&"arti_show.asp?cls_id="&rs1("id")-1&">上一篇</a>"

next1="<a href="&"arti_show.asp?cls_id="&rs1("id")+1&">下一篇</a>"