对于大数据的查询，你不可以一次性地把所有数据中显示出来，

比如一张学生表上面有一百多号人，

那么在页面中就应该一次显示10人左右，

提供翻页功能给用户进行翻阅，不要一次性显示100多号人。

翻页系统是网页中很常见的功能

一、基本目标

首先还是在Access2007数据库有一张有8条数据的用户信息表，

在页面做分页显示，

翻到最后一页，翻到最前一页，提示暂无记录，给一个超级链接让用户返回

每一页用户可以自定义显示1条、2条、3条记录，如果做100条记录的翻页，可以设置成每页显示10条、15条、20条记录

定义显示不同记录的时候，页数的多少会随之改变

翻页时，下拉菜单会提示翻到哪一页，用户可以自定义翻到哪一页，

二、制作过程

整个系统就一个页面page.asp，翻页与显示记录的多少是通过id与per来控制的。

页面参数由于id与per并不是什么涉及安全性的或者大数据的变量，故使用get方法传递

整个页面的代码如下，每一段都有注释的，请看注释即可：

<%@LANGUAGE="Vbscript" CODEPAGE="65001"%>









名单：


<%
id=Request.QueryString("id")
if id="" then
id=0
end if
%>

<%
per=Request.QueryString("per")
if per="" then
per=1
end if
%>


<%
lower=0
upper=0
lower=cint(id)*cint(per)
upper=cint(id)*cint(per)+cint(per)+1
%>

<%
db="../Database.mdb"
Set cOnn= Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)};pwd=admin;dbq=" & Server.MapPath(db) 
%>

<%
Set rs = Server.CreateObject( "ADODB.Recordset" )
sql = "select * from test where id>"&lower&" and id<"&upper&";"
rs.open sql,conn,1,3
%>

<%
if (rs.bof and rs.eof) then
%>

<%
if (id<0) then
%>
暂无

下一页

<%
else
%>
暂无
上一页
<%
end if
%>

<%
else
do while not rs.eof
%>

  

    
<%=rs("id")%>
    
<%=rs("username")%>
    
<%=rs("password")%>
  

<%
rs.movenext
loop
%>

<%
Set rs = Server.CreateObject( "ADODB.Recordset" )
sql = "select count(*) as total from test;"
rs.open sql,conn,1,3
total=rs("total")
pages=cint(total)/cint(per)
%>

第

<%
t=0
do while cint(t)

<%if (cint(t)=cint(id)) then%>
<%=t+1%>
<%
else
%>
<%=t+1%>
<%
end if
%>
<%
t=t+1
loop
%>

/<%=cint(pages)%>
页




每页显示1|2|3条记录
上一页
下一页
<%
end if
%>

<%
rs.close
set rs=nothing
conn.close
set cOnn=nothing
%>