asp+access查询access表如何分页显示数据
这个是我的查询页面主程序部分,请高手指导我该如何实现查询后分页显示,最好有具体的代码,急等!!!!!<%setconn=server.createobject("adod...
这个是我的查询页面主程序部分,请高手指导我该如何实现查询后分页显示,最好有具体的代码,急等!!!!!
<%
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 展开
<%
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 展开
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,上面总共有四处
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,上面总共有四处
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询