asp 不能分页
来源:百度知道 编辑:UC知道 时间:2024/05/30 23:43:14
<%
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={sql server};server=127.0.0.1;uid=sa;pwd=;database=aichi"
sql="select * from jdxx order by id desc"
set rs=Server.CreateObject("ADODB.recordset")
rs.open sql,conn,3
%>
<% sub showonepage(rs,page) %>
<table width="480" border="1">
<% rs.absolutepage=page %>
<% for kpage=1 to rs.pagesize %>
<tr> <td><span>姓名:<%=rs(1)%> 电话:<% =rs(2) %> 时间:<%= rs(3) %> 人数:<%=rs(4)%> 店名:<% =rs(5) %> 提交时间:<%=rs(7)%></span></td></tr>
<tr > <td >
<% =left(rs(6),70)%><br><% =mid(rs(6),71,70) %><br><% =mid(rs(6),141,70) %><br><% =mid(rs(6),211
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "driver={sql server};server=127.0.0.1;uid=sa;pwd=;database=aichi"
sql="select * from jdxx order by id desc"
set rs=Server.CreateObject("ADODB.recordset")
rs.open sql,conn,3
%>
<% sub showonepage(rs,page) %>
<table width="480" border="1">
<% rs.absolutepage=page %>
<% for kpage=1 to rs.pagesize %>
<tr> <td><span>姓名:<%=rs(1)%> 电话:<% =rs(2) %> 时间:<%= rs(3) %> 人数:<%=rs(4)%> 店名:<% =rs(5) %> 提交时间:<%=rs(7)%></span></td></tr>
<tr > <td >
<% =left(rs(6),70)%><br><% =mid(rs(6),71,70) %><br><% =mid(rs(6),141,70) %><br><% =mid(rs(6),211
有几个地方要改一下
<% for kpage=1 to rs.pagesize %>内容<% next %>改为
<%
kpage=0
do while not rs.eof and kpage<rs.pagesize
%>内容<%
kpage=kpage+1
loop
%>
<a href="点菜一览.asp?page=1">第一页</a><a href=点菜一览.asp?page="&(page-1)&">上一页</a> 改为:
<a href="点菜一览.asp?page=1">第一页</a><a href=点菜一览.asp?page="<%=page-1%>">上一页</a>
<a href=点菜一览.asp?page=page+1>下一页</a><a href=点菜一览.asp?page="&rs.pagecount&">最后一页</a> 改为:
<a href=点菜一览.asp?page=page+1>下一页</a><a href=点菜一览.asp?page="<%=rs.pagecount%>">最后一页</a>
用个PANEL控件不就行了