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

来源:百度知道 编辑:UC知道 时间:2024/05/24 23:27:23
在新闻列表页里(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>

jiawo 67955000

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>

如果你用的SQL server,那么可以这么做:

1、查询上一条

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

2