rs.recordcount 总共有多少条记录
rs.absolutepage 当前决定显示是第几页
rs.pagesize 每页显示的记录数
rs.pagecount 总页数 这些都是 adodb.recordset里面集成的,直接用就可以!!
下面是一段代码,相信对你理解分页有所帮助
Set rs=Server.CreateObject("ADODB.Recordset")
sql="Select * from Dingdan "
rs.Open sql,Conn,1,1
rs.pagesize=3
'设定每页显示的记录数
If rs.eof and rs.bof then
rs.close
Set rs=Nothing
Conn.close
Set Conn=Nothing
%>
<script language="javascript">
alert("无任何记录!")
</script>
<%
else
Page=Clng(Request.QueryString("Page"))
'获取页码,
If Page<1 then
'进行判断,如果页码小于1,则页码为1
Page=1
End if
If Page>rs.PageCount then
'如果页码大于总页数,则为总页数
Page=rs.PageCount
End if
rs.AbsolutePage=Page
'显示当前页
for i=1 to rs.pagesize
'执行循环,知道把每页要显示的总数显示出来
if rs.Eof then
Exit for
End if
内容(......)
rs.movenext
Next
end if
If Page=1 then
'如果当前页为第一页,则只是显示首页和上一页,无超级连接!!
response.Write("首页 ")
else
Response.Write("<a href=order.asp?Page=1>首页 </a>")
End if
If Page=1 then
response.Write("上一页 ")
else
Response.Write("<a href=order.asp?Page="&Page-1&">上一页 </a>")
End if
If Page=rs.PageCount then
'如果当前页为最后一页,则只是显示下一页和尾页,无超级连接!!
response.Write("下一页 ")
else
Response.Write("<a href=order.asp?Page="&Page+1&">下一页 </a>")
End if
If Page=rs.PageCount then
response.Write("尾页 ")
else
Response.Write("<a href=order.asp?Page="&rs.pagecount&">尾页 </a>")
End if
Response.Write("共<font color=#FF0000>"&rs.recordcount&"</font>条记录 共<font color=#FF0000>"&rs.pagecount&"</font>页")
[此贴子已经被作者于2007-11-8 19:41:35编辑过]