Question

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

如何在ASP页面中显示
上一条：.....
下一条:......
请高手祥解~！
请把显示
上一条：....
下一条：....
的ASP代码告诉我~！
谢谢~！

试了~！
都不好使啊~！

Answer 1

<%
'设置每页显示记录的数量
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
%>

<tr bgcolor="E7EFFF">
<td align="center" colspan="6"><a href='newslist.asp?page=1'>首页</a><a href='newslist.asp?page=<%=ipage-1%>'>上一页</a><a href='newslist.asp?page=<%=ipage+1%>'>下一页</a><a href='newslist.asp?page=<%=rs.pagecount%>'></a></td></tr>
------------------------------------
不可能不好使啊，我前一阵还用了，好使，但是网页得变成你的，我用的是newslist！

Answer 2

将数据库中所有数据的ID存在一个数组里面，根据数组索引位置定位当前文章。
如果用数组不习惯也可以用字符串代替，ID之间用一个分隔符隔开，分隔符用什么可以自定义。
呵呵，在上班，代码没时间给你写，不短的。

Answer 3

下面这段代码可以
<%
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="&rs("id")&"'>[上一个]</a>"
else
response.write"没有上一个了"
end if
rs.close
set rs=nothing
Set rs=Server.CreateObject("Adodb.RecordSet")
rs.Open "Select top 1 id,title,content from jok where ID>"&SmallClass&" order by id asc",conn,1,1
IF not rs.eof and not rs.bof Then
response.write" <a href='?id="&rs("id")&"'>[下一个]</a>"
else
response.write" 没有下一个了"
end if
rs.close
set rs=nothing%>

Answer 4

懂在发问,为什么不懂得搜索?
太长了,同类问题也有很多,昨天我才发过,你自己搜