我的源代码如下:
<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>|"
%>

[此贴子已经被作者于2006-7-7 17:06:12编辑过]