[求助]菜鸟请教"实现简单翻页"的问题

我是医师

我的源代码如下:
<td height="36" align="center">
<%
set rs1=server.CreateObject("Adodb.recordset")
sql1="select ID from aaa where id="&request("id")+1
rs1.open sql1,conn,1,1
if not rs1.bof then
Response.Write("<a href=img.asp?id="&request("id")+1&">上一张图片</a>&nbsp;&nbsp;&nbsp;&nbsp; ")
end if
rs1.close
sql1="select id from aaa where id="&request("id")-1
rs1.open sql1,conn,1,3
if not rs1.bof then
Response.Write("<a href=img.asp?id="&request("id")-1&">下一张图片</a>")
end if
rs1.close
set rs1=nothing
%>
</td>

可问题是这样要求关键字 ID 是连着的,不然如果中间间断的就出错.

我后来考虑的思路是先设置id的最大值和最小值,然后比如 下一张图片 就id-1 如果id-1没有内容就继续-1,不过要求最后的值不能大于最小值,以防一直往下找. 上一张图片 也是类似思路. 但我自己写的一直有错误
肯定高手帮我把程序写的完整写,举手之劳,,,多谢多谢啊!

祗↘爲.輝仔

可惜没人回复

别问我是谁

用ID当然是不行的,只要你有删除过记录ID就不可能是连续的,

<%
set rs1=server.CreateObject("Adodb.recordset")
sql1="select ID from aaa where id="&request("id")+1
rs1.open sql1,conn,1,1

Dim pagenum
rs1.pagesize = 1
pagecount1 = rs1.pagecount

If request.querystring("pagenum") = 0 Or request.querystring("pagenum") = "" Then
pagenum = 1
Else
pagenum = request.querystring("pagenum")
rs1.absolutepage = Trim(request.querystring("pagenum"))
End If


do while not rs1.eof and i<rs1.pagesize
rs1("xxximg")
rs1.movenetx
i=i+1
loop
rs1.close
set rs1=nothing

Response.Write "<a href=img.asp?pagenum=<%=(pagenum-1)%>>上一页</a>|"
Response.Write "<a href=img.asp?pagenum=<%=(pagenum+1)%>>下一页</a>|"
%>

￡籍の口∮

这样子还是不行,能不能
if rs("id")="" then
id=id+1
else
...
可是这样最多id再进一位