Question

asp中新闻页上一条下一条怎么写

在新闻列表页里(list.asp)点击一条新闻，进入到了news.asp，我现在想在news.asp页面的下边加上《上一条新闻》和《下一条新闻》，如果是第一条的话则显示《没有上一条》，如果是最后一条的话显示《没有下一条》。调试成功后再加20分
这个好使,但是现在的问题是点到最后一页的时候出错啊,因为没有下一条了
Set Objrs=Conn.Execute( "Select Max(ID) From 产品 Where ID< "& varID & " and 类别='" & typeid & "'")
Set Objrs=Conn.Execute("Select Min(ID) From 产品 Where ID> "& varID & " and 类别='" & typeid & "'")

If Not Objrs.Bof Then
MaxID=Objrs(0)
Else
MaxID=0
End If

If Not Objrs.Eof Then
MinID=Objrs(0)
Else
MinID=0
End If
<p>
<%If MaxID=0 Then %> 上一个
<%Else%>
<a href="?ID=<%=MaxID%>">上一个</a>
<%End If%>

<% If MinID=0 Then %> 下一个
<%Else%>
<a href="?ID=<%=MinID%>">下一个</a>
<%End If%>
</p>

Answer 1

Set Objrs=Conn.Execute( "Select Max(ID) From 产品 Where ID< "& varID & " and 类别='" & typeid & "'")
Set Objrs=Conn.Execute("Select Min(ID) From 产品 Where ID> "& varID & " and 类别='" & typeid & "'")

If Not Objrs.Bof Then
MaxID=Objrs(0)
Else
MaxID=0
End If

If Not Objrs.Eof Then
MinID=Objrs(0)
Else
MinID=0
End If
<p>
<%If MaxID=0 Then %> 上一个
<%Else%>
<a href="?ID=<%=MaxID%>">上一个</a>
<%End If%>

<% If MinID=0 Then %> 下一个
<%Else%>
<a href="?ID=<%=MinID%>">下一个</a>
<%End If%>
</p>

Answer 2

最简单的方法直接在连接的ID 那里加1 就是下一条，减一就是上一条

Answer 3

如果你用的SQL server，那么可以这么做：

1、查询上一条

select TOP 1 * from your_table_name
where dd<'2006-4-5'
ORDER BY DD DESC

2、查询下一条

select TOP 1 * from your_table_name
where dd>'2006-4-5'
ORDER BY DD

祝你好运！

Answer 4

jiawo 67955000