哪位大侠能给个例子源码看看啊？？？
谢谢~~~~

<%
dim prenext,preback
if prebcak=0 then
response.write "上一条"
else
response.write"<a href=?page="&preback&">上一条</a>"
end if
if prenext>page_total then '其中page_total=rs.pagecount 为分页的总数
response.write"下一条"
else
response.write"<a href=?page="&prenext&">上一条</a>"
end if
%>

如果要在a页面点击ID为2的商品，进入b页面查看它的详细信息，然后在b页面上有上一条，下一条的详细信息链接（上一条ID=1，下一条ID=3）。
如何实现呢？3Q

哪位大侠指点下啊？~

http://bbs.bc-cn.net/viewthread.php?tid=161280&star=at#
这种问题我以前回复过楼主可以看看。

<%id=request("id")
if id="" then
response.write"<script>alert('操作出错，下面是产生错误的可能原因：\n\n ·请选择相关参数');history.go(-1);</script>"
response.end
end if

set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM a where id = "&id&" ORDER BY id DESC"
rs.open sql,conn,2,3

function getNextID(rs)
rs.MoveNext
if rs.eof then
rs.MovePrevious
getNextID = rs("id")
else
getNextID = rs("id")
end if
end function

function getPreviousID(rs)
rs.MovePrevious
IF rs.BOF Then
rs.MoveNext
getPreviousID=rs("id")
Else
getPreviousID=rs("id")
end if
end function
%>

<a href="b.asp?id=<%=getNextID(rs)%>">上一条</a>
<a href="b.asp?id=<%=getPreviousID(rs)%>">下一条</a>
上、下条ID取到的值为什么是一样的呢？

[此贴子已经被作者于2007-8-14 15:16:24编辑过]

在线等。。。。。。

set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM a where id = "&id&" ORDER BY id DESC"
rs.open sql,conn,2,3


其中的id是不是唯一標識？ rs.movenext是針對一個記錄集合生效的。
這種情況下，應該sql = " select * from a order by id desc"

<%id=request("id")
if id="" then
response.write"<script>alert('操作出错，下面是产生错误的可能原因：\n\n ·请选择相关参数');history.go(-1);</script>"
response.end
end if
Dim NextId PrvId
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM a where id = "&id&" ORDER BY id DESC"
rs.open sql,conn,2,3

function getNextID(rs)
rs.MoveNext
if rs.eof then
rs.MovePrevious
getNextID = rs("id")
else
getNextID = rs("id")
end if
end function

function getPreviousID(rs)
rs.MovePrevious
IF rs.BOF Then
rs.MoveNext
getPreviousID=rs("id")
Else
getPreviousID=rs("id")
end if
end function
NextID=getNextID(rs)
rs.MovePrevious
PrvID=getPreviousID(rs)
%>
<%id=request("id")
if id="" then
response.write"<script>alert('操作出错，下面是产生错误的可能原因：\n\n ·请选择相关参数');history.go(-1);</script>"
response.end
end if
Dim NextId PrvId
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM a where id = "&id&" ORDER BY id DESC"
rs.open sql,conn,2,3

function getNextID(rs)
rs.MoveNext
if rs.eof then
rs.MovePrevious
getNextID = rs("id")
else
getNextID = rs("id")
end if
end function

function getPreviousID(rs)
rs.MovePrevious
IF rs.BOF Then
rs.MoveNext
getPreviousID=rs("id")
Else
getPreviousID=rs("id")
end if
end function
NextID=getNextID(rs)
rs.MovePrevious
PrvID=getPreviousID(rs)
%>

<%id=request("id")
if id="" then
response.write"<script>alert('操作出错，下面是产生错误的可能原因：\n\n ·请选择相关参数');history.go(-1);</script>"
response.end
end if
Dim NextId PrvId
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM a where id = "&id&" ORDER BY id DESC"
rs.open sql,conn,2,3

function getNextID(rs)
rs.MoveNext
if rs.eof then
rs.MovePrevious
getNextID = rs("id")
else
getNextID = rs("id")
end if
end function

function getPreviousID(rs)
rs.MovePrevious
IF rs.BOF Then
rs.MoveNext
getPreviousID=rs("id")
Else
getPreviousID=rs("id")
end if
end function
NextID=getNextID(rs)
rs.MovePrevious
PrvID=getPreviousID(rs)
%>

<%id=request("id")
if id="" then
response.write"<script>alert('操作出错，下面是产生错误的可能原因：\n\n ·请选择相关参数');history.go(-1);</script>"
response.end
end if
Dim NextId PrvId
set rs=server.createobject("adodb.recordset")
sql="SELECT * FROM a where id = "&id&" ORDER BY id DESC"
rs.open sql,conn,2,3

function getNextID(rs)
rs.MoveNext
if rs.eof then
rs.MovePrevious
getNextID = rs("id")
else
getNextID = rs("id")
end if
end function

function getPreviousID(rs)
rs.MovePrevious
IF rs.BOF Then
rs.MoveNext
getPreviousID=rs("id")
Else
getPreviousID=rs("id")
end if
end function
NextID=getNextID(rs)
rs.MovePrevious
PrvID=getPreviousID(rs)
%>

<a href="b.asp?id=<%=NextID(rs)%>">上一条</a>
<a href="b.asp?id=<%=PrvID(rs)%>">下一条</a>
这样试试。