如何在ASP页面中实现上一条下一条记录

如何在ASP页面中显示上一条、下一条记录？~

<%
'设置每页显示记录的数量
rs.PageSize = 15
'读取参数page，表示当前页码
iPage = CLng(Request("page"))
If iPage > rs.PageCount Then
iPage = rs.PageCount
End If
If iPage <= 0 Then
iPage = 1
End If
rs.AbsolutePage = iPage
For i=1 To rs.PageSize
n = n + 1
%>
html循环部分
<%
rs.MoveNext()
If rs.EOF Then
Exit For
End If
NEXT
%>
<%
'显示页码链接
If rs.PageCount>1 then
%>


首页'>上一页'>下一页'>
------------------------------------
不可能不好使啊，我前一阵还用了，好使，但是网页得变成你的，我用的是newslist！

上一条记录的话，必须先设定排序方式为逆序的，读取最近一条小于现在这个ID的。
下一条记录的话，必须先设定排序方式为顺序的，读取最近一条大于现在这个ID的。
下面给你一个完全整的示例：
<%
Set Rs_R=Server.CreateObject("ADODB.RecordSet")
sql_R="Select top 1 * From news where id <"&rs("id")&" and BigClassName='"&rs("BigClassName")&"' order by id desc"
Rs_R.open sql_R,conn,1,1
if not Rs_R.Eof then
response.Write("上一篇："&Rs_R("title")&"")
else
response.Write("上一篇:没有了！")
end if
Rs_R.Close()
Set Rs_R = Nothing
%>



<%
Set Rs_N=Server.CreateObject("ADODB.RecordSet")
sql_N="Select top 1 * From news where id >"&rs("id")&" and BigClassName='"&rs("BigClassName")&"'"
Rs_N.open sql_N,conn,1,1
if not Rs_N.Eof then
response.Write("下一篇："&Rs_N("title")&"")
else
response.Write("下一篇:没有了！")
end if
Rs_N.Close()
Set Rs_N = Nothing
%>

十天学会ASP之第十天
学习目的：分页技术，总结
今天最后一天我们学习一下ASP里面稍微难一点地分页技术，毕竟当我们有N条记录的时候我们不可能把所有记录显示在一个页面里面吧。

rs.pagesize设置一个页面里面显示的记录数，pagecount是我们自己定义的一个变量，rs.pagecount是记录的个数，page也是我们自己定义的一个变量，我们下一页的链接可以设置为list.asp?page=，下一页的链接可以设置为list.asp?page=，这样当按下链接的时候调用页面自己，page这个变量就+1或者-1了，最后我们让rs.absolutepage（当前页面）为第page页就可以了。
if request.QueryString("page")="" then page=1，这句话的作用就是我们打开list.asp的时候没有跟随page变量，自动设置为page=1，防止出错，还有当我们if....then...放在一行的时候end if可以省略。是不是分页也不难？
下面说一种特殊情况：
if page=1 and not page=pagecount，这个时候没有上一页，但是有下一页
elseif page=pagecount and not page=1，这个时候没有下一页，但是有上一页
elseif page<1，这个时候没有任何记录
elseif page>pagecount then，这个时候没有任何记录
elseif page=1 and page=pagecount，这个时候没有上一页，没有下一页
else，这个时候有上一页，也有下一页。
下面看一段显示1到n页，且每一个数字点击以后就出现这个数在代表的页面的代码，很常见哦。

for....next是循环从i=1开始，循环一次加1到pagecount为止。

最后我的实例里面包含了一个最简单的ASP程序，但是功能样样有，是ASP的精髓，每一个ASP大型程序都包含了它。
add.htm增加记录页面
add.asp增加记录操作
conn.asp数据库链接
del.asp删除记录操作
modify.asp修改记录页面
modifysave.asp修改记录操作
list.asp这个是这个程序的核心，通过这个页面实现记录的添加、修改、删除。
test.mdb数据库，里面有aa，bb两个字段：aa数字型只能接受数字，bb是字符型。
好了，十天到今天就结束了，我想我这个教程是让大家入门的，大家觉得写的浅也不要责怪必尽不可能初学者和高手都照顾到吧，最后我想说一句，今天的实例是ASP的精华，大家一定要好好研究，通了这个程序，你会发现你已经会ASP了。谢谢大家的支持！

当前id为555
不管id是不是连着的，都可以用

下一条：select top 1 * from abc where id>555 order by id asc
上一条：select top 1 * from abc where id <555 order by id desc

不是有个ID吗，ID+1和ID-1，就是上1条和下一条。

两个表互相之间的SQL语句用外连接。

ID有时候不是连着的 你如果删了东西
ID不会连

---

信州区18892254233： 如何在ASP页面中实现上一条下一条记录 - ？
爱新觉罗虽凯缌： 十天学会ASP之第十天学习目的:分页技术,总结今天最后一天我们学习一下ASP里面稍微难一点地分页技术,毕竟当我们有N条记录的时候我们不可能把所有记录显示在一个页面里面吧. rs.pagesize设置一个页面里面显示的记录数,...

信州区18892254233： 在asp 中,怎么连接数据的上一条下一条 - ？
爱新觉罗虽凯缌： 给你个上一条下一条的例子供参考吧.修改表名放到你的程序里试下看. <% set RelationArt = conn.execute(＂select top 1 id,title from article where id<＂&request.querystring(＂id＂)&＂ order by date desc＂) IF RelationArt.eof and relationArt.bof ...

信州区18892254233： 如何在ASP页面中显示上一条、下一条记录? - ？
爱新觉罗虽凯缌： 下面这段代码可以<% Set rs=Server.CreateObject(＂Adodb.RecordSet＂) rs.Open ＂Select top 1 id,title,content from jok where ID<＂&SmallClass&＂ order by id desc＂,conn,1,1 IF not rs.eof and not rs.bof Then response.write＂<a href='?id=＂...

信州区18892254233： 如何用asp代码实现显示上一条、下一条记录?并显示上下记录的标题,上下记录没有时显示“没有了”!？
爱新觉罗虽凯缌： 思路: 1.获取当前这条记录的ID 2.上一条实现的方法:SQL查询语句的条件:当前这条记录的ID-1 3.下一条实现的方法:SQL查询语句的条件:当前这条记录的ID+1 当然上一条与下一条还可以完善,比如当前是最前的一条时,就没有上一条了...

信州区18892254233： ASP的上一篇下一篇怎么实现? - ？
爱新觉罗虽凯缌： sql=＂select top 1 标题,id from 文章 where idset rs=conn.execute(sql) if rs.eof then response.write ＂上一篇文章:没有了＂ else response.write ＂上一篇文章: ＂&rs(＂标题＂)&＂＂ end if sql=＂select top 1 标题,id from 文章 where id>＂...

信州区18892254233： asp中的“上一篇”“下一篇”是怎样做出来的 - ？
爱新觉罗虽凯缌： 如果你能确保你的ID是连续的,可以用ID递加或递减来实现.如当前页面是:http://www.xxx.com/file.asp?id=388那么上一篇就是:http://www.xxx.com/file.asp?id=387下一篇...

信州区18892254233： asp中如何读取当前记录的上一条和下一条记录 - ？
爱新觉罗虽凯缌： 上一条记录的话,必须先设定排序方式为逆序的,读取最近一条小于现在这个ID的.下一条记录的话,必须先设定排序方式为顺序的,读取最近一条大于现在这个ID的.下面给你一个完全整的示例:<% Set Rs_R=Server.CreateObject(＂ADODB...

信州区18892254233： ASP实现页面的“上一篇、下一篇”功能？
爱新觉罗虽凯缌： 我用的代码是: 你自己分析: <% set RelationArt = conn.execute(＂select top 1 id,title from qqkjdm where type=＂&request.querystring(＂class＂)&＂ and id<＂&request.querystring(＂id＂)&＂ order by date desc＂) IF RelationArt.eof and ...

信州区18892254233： ASP 怎么实现浏览新闻时切换到上一条,下一条 - ？
爱新觉罗虽凯缌： 这个很简单啊,首先你要在程序中从数据库中找到上一条/下一条数据,然后判断没有上一条/下一条的话,就不带链接(也就是灰色显示)

信州区18892254233： 如何在asp上插入上一篇XXXXXX 下一篇XXXXX.请详细传授.谢谢.. - ？
爱新觉罗虽凯缌： 当你打开这篇文章的时候,已经打开了数据库这条新闻的ID参考这几个指针移动的函数就行了MoveFirst使当前记录成为记录集内第一条记录.MoveLast使当前记录成为记录集内最后一条记录.MoveNext使当前记录成为记录集内下一条记录.MovePrevious使当前记录成为记录集内前一条记录.比如你打开了id为 25的新闻response.write(＂ news“)rs.movenext<a here=＂news.asp?id=＂&&rs(＂id＂)>下一篇</a>