Question

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

这个是我的查询页面主程序部分，请高手指导我该如何实现查询后分页显示，最好有具体的代码，急等！！！！！

<%
set conn=server.createobject("adodb.connection")
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
%>
</p>
<table width="800" border="1" align="center">
<tr>
<td width="106"><span class="style3">姓名</span></td>
<td width="286"><span class="style3">邮件地址</span></td>
<td width="164"><span class="style3">所在班级</span></td>
<td width="316"><span class="style3">登记时间</span></td>
</tr>
</table>
<table width="800" border="1" align="center" cellpadding="0" cellspacing="0">
<%do while not rs.eof%><tr>
<td width="124"><%=rs("name")%></td>
<td width="277"><%=rs("tel")%></td>
<td width="223"><%=rs("bj")%></td>
<td><%=rs("time")%></td>
</tr><%
rs.movenext
loop
%>
我调试过了，你的代码有问题的。没有下一页、上一页、尾页功能，打开首页index.asp后显示12条记录，但是下一页 按钮没有超链接。尾页有超链接：http://192.168.10.8/index2.asp#?page=4

Answer 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
%>
</p>
<table width="800" border="1" align="center">

</table>
<table width="800" border="1" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="106"><span class="style3">姓名</span></td>
<td width="286"><span class="style3">邮件地址</span></td>
<td width="164"><span class="style3">所在班级</span></td>
<td width="316"><span class="style3">登记时间</span></td>
</tr>
<% 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 %>
<tr>
<td width="124"><%=rs("name")%></td>
<td width="277"><%=rs("tel")%></td>
<td width="223"><%=rs("bj")%></td>
<td><%=rs("time")%></td>
</tr>
<% rs.movenext
if rs.eof then exit for
next
%> <tr><td colspan="4">
<% if page<>1 then %>
<a href="index2.asp?page=1">首 页</a>
<a href="index2.asp?page=<%= page-1 %>">上一页</a>
<% else %>
首 页
上一页
<% end if %>
<% if page<>rs.pagecount then %>
<a href="index2.asp?page=<%= page+1 %>">下一页</a>
<a href="index2.asp?page=<%= rs.pagecount %>">尾 页</a>
<% else %>
下一页
尾 页
<% end if %>
页码：<%= page %>/<%= rs.pagecount %>
<% rs.close
set rs=nothing
conn.close
set conn=nothing %></td></tr></table>
================================

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

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