asp+access系统中怎么分页？

来源：百度知道 编辑：UC知道 时间：2024/05/14 16:19:15

代码如下：

<%
'创建数据库连接对象
set conn=server.createobject("adodb.connection")
'打开数据库，如果数据库没有密码 可以省略
conn.open("DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;pwd=;dbq="&server.mappath("MyMDB.mdb"))
'创建结果集对象
set rs=server.createobject("adodb.recordset") 
strsql="select * from table" '设置sql 查询语句 
rs.open strsql,conn,1,1  ‘使用结果集RS执行strsql语句
%>

然后是分页属性的设置 

<% 
rs.PageSize=3 ‘设置页码 
pagecount=rs.PageCount '获取总页码 
page=int(request("page")) '接收页码 
if page<=0 then page=1 '判断 
if request("page")="" then page=1 
rs.AbsolutePage=page '设置本页页码 
%>