asp+access查询access表如何分页显示数据

2025-01-08 02:34:40

推荐回答（1个）

回答1：

<%
set conn=server.createobject("adodb.Connection")
'db="example3.mdb"
'connstr="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DB)
'conn.Open connstr
conn.open "driver={microsoft access driver (*.mdb)};dbq="& server.mappath("example3.mdb")
exec="select * from guestbook"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>

<% rs.pagesize=1 '此1为每页显示的行数
page=request.querystring("page")
page=clng(page)
if page<1 then page =1
if page>rs.pagecount then page=rs.pagecount
rs.absolutepage=page
for thepage=1 to rs.pagesize %>

<% rs.movenext
if rs.eof then exit for
next
%>

姓名	邮件地址	所在班级	登记时间
<%=rs("name")%>	<%=rs("tel")%>	<%=rs("bj")%>	<%=rs("time")%>
<% if page<>1 then %> 首页上一页 <% else %> 首页上一页 <% end if %> <% if page<>rs.pagecount then %> 下一页尾页 <% else %> 下一页尾页 <% end if %> 页码：<%= page %>/<%= rs.pagecount %> <% rs.close set rs=nothing conn.close set conn=nothing %>

================================

rs.pagesize=1 '此1为每页显示的行数
要改每页显示的数据条数，把rs.pagesize=1这1改为你要的条数，每页显示10条就把1改为10

该页面为index2.asp,上面总共有四处