Question

分类文章ASP代码上下篇的代码

写了个程序 新闻系统 需要连接上下篇文章，在之前录入的时候，没有按照分类添加新闻，因为是判断ID的写法，在输出的时候，只判断ID，因而，在分类上就会很乱，不是一个分类的新闻 在上下篇文章链接出提示，有点让人不舒服，比如，我现在读的是饮食的新闻，但下一片显示的却是跟此类无关的新闻，很闹绕·~谁可以给看看代码该怎么写·！求助·
表格NEWS设置了字段bigclassname是分类 ID字段 如果能读取ID的时候，可以判断是不是我所看的新闻的大类，如果不是，则继续判断下一条记录，知道有一条是同类的新闻。如果从该条新闻到结尾或开始，都没有同类的新闻，则显示“无同类新闻” 。高手指教·~
之前的ID写法是如下：

<%

function up()'上文章的链接
response.Write("<p><lu>下一篇:    ")
set rs1=server.createobject("adodb.recordset")
sql="select * from news where id <"&cint(request("id"))&" and BigClassName order by id desc"'读取数据库的表格
rs1.open sql,conn,1

if rs1.eof then
response.Write("<a href='index.asp'>首页</a>")
else

response.Write"<a href='shownews.asp?id="&rs1("id")&"'>"&rs1("title")&"</a>      "
end if

'response.Write""&rsnews("BigClassName")&""
end function

%>
有些错别字 忘大家见谅，有点着急。

最终解决答案 给大家看下 谢谢而楼的
<%

function up()'上文章的链接
response.Write("<p><lu>下一篇:    ")

set rs1=server.createobject("adodb.recordset")
sql="select * from news where id <"&cint(request("id"))&" and BigClassName='"&rsnews("BigClassName")&"' order by id desc"'读取数据库的表格
rs1.open sql,conn,1

if rs1.eof then
response.Write("<a href='index.asp'>没有文章</a>")
else

response.Write"<a href='shownews.asp?id="&rs1("id")&"'>"&rs1("title")&"</a>      "
end if

response.Write""&rsnews("BigClassName")&""
end function

%>

Answer 1

上一篇下一篇都是查询出来的,这给你思路你自己做
比如 有个id = 100 类别为 2
下一篇 select top 1 from biao where 类别 = 2 and id> 100 order by id asc

上一篇
下一篇 select top 1 from biao where 类别 = 2 and id< 100 order by id desc

Answer 2

top + id
for exeample:

sql="select top 1 * from news where id <"&cint(request("id"))&" and BigClassName order by id desc"'读取数据库的表格

response.Write"<a href="?id="&request("id")&">"下一篇</a>"

sql="select top 1 * from news where id >"&cint(request("id"))&" and BigClassName order by id asp"'读取数据库的表格
response.Write"<a href="?id="&request("id")&">"上一篇</a>"

其它 判断 是否首页，未页
就用：
rs.eof
这里不详细写了

Answer 3

给你发个地址参考下，有问题百度HI~