[求助]如何实现上一条、下一条？ - 编程论坛

#2

hmhz2007-08-14 09:38

<%
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
%>

#3

mlly19832007-08-14 10:15

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

#4

mlly19832007-08-14 10:53

#5

mlly19832007-08-14 12:02

哪位大侠指点下啊？~

#6

yms1232007-08-14 13:15

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

#7

mlly19832007-08-14 14:37

<%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编辑过]

#8

mlly19832007-08-14 14:54

在线等。。。。。。

#9

vfp002007-08-15 09:05

回复：（mlly1983）[求助]如何实现上一条、下一条？

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"

#10

yms1232007-08-15 15:17

<%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>
这样试试。