急，有关分页的问题

[oliver007]

我先通过一个条件对数据分类，分类后在对相应各类型的记录进行分页，可类我分了，就是在对每一类数据分页是出了麻烦，请各位高手多多帮忙，急得很，

谢谢

[jumpnew929]

加一个GET参数作为类型不是就可以了吗

[xieyj]

什么麻烦，表达不清楚．

[xxu333]

如果是页面分页，这个可能帮得到你：

<%
set rs = server.createobject("adodb.recordset")
rs.open "select * from table where a=123",conn,1,1
size = 15
rs.size = size
countpages = rs.pagecount

Select Case request("f")
Case "1" Session("Page")=1
Case "2" Session("Page")=Session("Page")-1
Case "3" Session("Page")=Session("Page")+1
Case "4" Session("Page")=TotalPages
Case else Session("page")=1
End Select
If clng(session("Page"))<1 Then
Session("Page")=1
End If
If clng(session("Page"))>totalpages Then
Session("Page")=totalpages
End If

rs.AbsolutePage=session("Page")
i=0
do while not rs.eof and i<size
.
.
.
rs.movenext
loop

%>

<a href="aaa.asp?f=1">第一页</a> 
<a href="aaa.asp?f=2">上一页</a>  
<a href="aaa.asp?f=3">下一页</a> 
<a href="aaa.asp?f=4">末 页</a> 
页码: <%=session("page")%>/<%=countpages%>

[xxu333]

更正：
rs.size = size
改为
rs.pagesize = size

[oliver007]

我只分类时还正常，可我一分页就提示：
ADODB.Recordset 错误 '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/room/dalist/fagui.asp，行144
这是什么原因啊？
代码是：
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from law where lawlevel='"&request("lawlevel")&"' order by id desc",conn,adopenstatic
rs.pagesize=10
rs.absolutepage=session("currentpage")
while not rs.eof and numrows<rs.pagesize%>
<%response.Write"<img src='images/list.gif' width='9' height='10'>"%>
<a href="fagui.asp?id=<%=rs("id")%>" target="_blank"> <%=rs("lawname")%> </a>
<%response.Write"<br>"
rs.movenext
numrows=numrows+1
wend%>
<hr>
<%if session("currentpage")>1 then%>
<a href="fagui.asp?move=prev">[上一页]</a>
<%end if%>
<%if session("currentpage")<rs.pagecount then%>
<a href="fagui.asp?move=next">[下一页]</a>
<%end if
rs.close
set rs=nothing%>

144行代码是：rs.absolutepage=session("currentpage")

[xxu333]

要用if rs.eob then去判断是否有数据：


set rs=server.CreateObject("adodb.recordset")
set rs=server.CreateObject("adodb.recordset")
rs.open"select * from law where lawlevel='"&request("lawlevel")&"' order by id desc",conn,adopenstatic

if not rs.eof then
rs.pagesize=10
rs.absolutepage=session("currentpage")
while not rs.eof and numrows<rs.pagesize%>
<%response.Write"<img src='images/list.gif' width='9' height='10'>"%>
<a href="fagui.asp?id=<%=rs("id")%>" target="_blank"> <%=rs("lawname")%> </a>
<%response.Write"<br>"
rs.movenext
numrows=numrows+1
wend%>
<hr>
<%if session("currentpage")>1 then%>
<a href="fagui.asp?move=prev">[上一页]</a>
<%end if%>
<%if session("currentpage")<rs.pagecount then%>
<a href="fagui.asp?move=next">[下一页]</a>
<%end if


end if

rs.close
set rs=nothing%>

[oliver007]

我试了还是不行，到是没有错误提示了，可单击下一页后数据就全没了。

还请帮忙

感激不尽

[oliver007]

还是不行，单击下一页后就没有数据了，分类也乱了

感激不尽

还请多多帮忙

[xxu333]

那就是没有数据了

[oliver007]

是不是下面这句有问题，还是……
rs.open"select * from law where lawlevel='"&request("lawlevel")&"' order by id desc",conn,adopenstatic

[oliver007]

不是库里有26条数据的，是不是由于分类

[oliver007]

我的分类代码是这样
<td><%
dim lawrs
set lawrs=conn.execute("select lawlevel from law group by lawlevel")
while not lawrs.eof
response.Write"<img src='images/whitelist.gif' width='9' height='10'>"%>
<a href="fagui.asp?lawlevel=<%=lawrs("lawlevel")%>"><%=lawrs("lawlevel")%></a>
<% lawrs.movenext
response.Write"<br>"
wend
lawrs.close
set lawrs=nothing%></td>

[xxu333]

呵呵
conn.execute（）
没有pagesize，absolutepage等属性
只能用recordset对象（rs.open）打开数据库才可以分页

[Camellia402]

<%if session("currentpage")>1 then%>
<a href="fagui.asp?move=prev">[上一页]</a>
<%end if%>
<%if session("currentpage")<rs.pagecount then%>
<a href="fagui.asp?move=next">[下一页]</a>
<%end if
改为
<%if session("currentpage")>1 then
session("currentpage")+=session("currentpage")
%>
<a href="fagui.asp?move=prev">[上一页]</a>
<%end if%>
<%if session("currentpage")<rs.pagecount then
session("currentpage")-=session("currentpage")
%>
<a href="fagui.asp?move=next">[下一页]</a>
<%end if