asp 复杂表格的分页问题 - ASP技术论坛

yuchangyu

等　级：新手上路
帖　子：41
专家分：0
注　册：2008-7-17
结帖率：88.89%

楼主

问题点数：0 回复次数：3

asp 复杂表格的分页问题

一个复杂的嵌套表格，现在要分页，每页显示6条数据，数据已经正确读取，可是分页的时候第二页也是显示的第一页的数据，请高手帮忙~~
<%dim bc,jh,ssjj
'response.Write(request.form("sj"))&"\\\\\\\\"
ssjj=request("WS_Officesj")

Set rs0 = Server.CreateObject("ADODB.Recordset")
 sql="select * from cyrbb where WS_Officesj='"&ssjj&"' order by id asc"
 rs0.open sql,Conn,3,3

'response.Write(rs("jh"))
'rs.movenext
'response.Write(rs("jh"))
if rs0.bof and rs0.eof then
'response.Write(rs("sj"))&sql
%>
<script language="javascript">
alert("对不起数据库中没有您要生成报表的记录，请选择正确的时间或及时将数据入库之后再生成！")
window.history.go(-1)
</script>
<%else
Set rs = Server.CreateObject("ADODB.Recordset")
sql= "Select * From cyrbb Where ID In (Select Max(ID) From cyrbb Group By jh) and WS_Officesj='"&request("WS_Officesj")&"' order by id asc"
 rs.open sql,Conn,3,3
 rs.movefirst
jh=rs("jh")
<table border="1" cellpadding="0" cellspacing="0">
 <tr height="20">
 <td rowspan="5" align="center" height="98" width="72">井
 号</td>
 <td rowspan="5" align="center" width="72">泵径
 泵深
 mm/m</td>
 <td rowspan="5" align="center" width="72">冲程
 冲次
 m/次</td>
 <td colspan="6" align="center" width="432">生产动态情况反应</td>
 <td colspan="6" align="center" width="432">流量计求产记录</td>
 <td rowspan="5" align="center" width="72">备注</td>
 </tr>
 <tr height="19">
 <td rowspan="4" align="center" height="78" width="72">生产
 时间
 hmin</td>
 <td rowspan="4" align="center" width="72">观察
 时间
 hmin</td>
 <td rowspan="4" align="center" width="72">油压
 MPa</td>
 <td rowspan="4" align="center" width="72">套压
 MPa</td>
 <td rowspan="4" align="center" width="72">回压
 MPa</td>
 <td rowspan="4" align="center" width="72">生产情况</td>
 <td colspan="2" align="center" rowspan="2" width="144">求产起始</td>
 <td colspan="2" align="center" rowspan="2" width="144">求产结束</td>
 <td rowspan="4" align="center" width="72">时间
 差值
 hmin</td>
 <td rowspan="4" align="center" width="72">液量
 差值
 m3</td>
 </tr>
 <tr height="20"> </tr>
 <tr height="19">
 <td rowspan="2" align="center" height="39" width="72">时间</td>
 <td rowspan="2" align="center" width="72">液量
 读数</td>
 <td rowspan="2" align="center" width="72">时间</td>
 <td rowspan="2" align="center" width="72">液量
 读数</td>
 </tr>
 <tr height="20"> </tr>
<%
dim WS_Officebjbs,WS_Officecccc,WS_Officescsj,m,n
Set rsi = Server.CreateObject("ADODB.Recordset")
sql1="SELECT DISTINCT jh FROM cyrbb where WS_Officesj='"&ssjj&"'"
rsi.open sql1,Conn,3,3
'response.Write(rsi.recordcount)
'response.Write(rsi("jh"))&"\\\\\"
rsi.pagesize=6 '定义一页显示的记录数目
tatalrecord=rsi.recordcount '获取记录总数目
tatalpages=rsi.pagecount '获取分页的数目
rsi.movefirst

nowpage=request("page") '用request获取当前页数，注意page是自己定义的变量并非函数

if nowpage&"x"="x" then '处理页码为空时的情况??怎么没事。我传给你吧我没asp
nowpage=1
else
nowpage=cint(nowpage) '将页码转换成数字型
end if

rsi.absolutepage=nowpage '将指针移动到当前显示页的第一条记录
n=1

for i= 1 to rsi.pagesize

if i<rsi.recordcount then

搜索更多相关主题的帖子: 表格　 asp　

2010-05-12 23:54

shcnlm

等　级：新手上路
帖　子：5
专家分：7
注　册：2010-5-12

第 3 楼

得分:0

好像没看到你设置page的大小.
我写段代码你参考下吧.

程序代码：

<%
conn="DBQ="&server.MapPath("mydb.mdb")&";defaultdir=;Driver={Microsoft Access Driver (*.mdb)};"
sql="select * from user"
set rs=server.CreateObject("ADODB.recordset")
rs.open sql,conn,1,1
const maxsize=5'设置页面的记录数的大小,用CONST声明不可修改变量
rs.pagesize=maxsize'这个很关键,要记得设置好记录数后,最好设置下页面的大小,即每页显示的数据数量.
rs.moveFirst'设置完成后记得将记录指针移到第一条记录,虽然有时不移也可以,但可能会出错.
allfields=rs.fields.count-1
allpage=rs.pagecount
if trim(request("page"))<>"" then'这段是判断返回的PAGE参数,注意trim和clng二个函数的使用,不能少.否则可能会出错.
nowpage=clng(request("page"))
if nowpage>allpage then
nowpage=allpage
end if
else
nowpage=1
end if
if rs.eof then'这段是分页显示的关键,首页判断数据库有没有数据,再将鼠标指针移到相应的数据记录上.
response.Write("数据库中没有数据")
else
allfiles=rs.recordcount
if nowpage<>1 then
if (nowpage-1)*maxsize<allfiles then
rs.move((nowpage-1)*maxsize)
end if
end if
%>
<table align="center" bgcolor="#eeeeee"><tr><td colspan="<%=rs.fields.count%>" bgcolor="#CCCCCC" align="center">数据库数据表</td></tr>
<tr><% for i=0 to allfields %><td bgcolor="#CCCCCC" width="100" align="center"><%=rs(i).name%></td><%next%></tr>
<%
h=0
do while not rs.eof and h<maxsize%>
<tr><%for i=0 to allfields %><td><%=rs(i).value%></td><%next%></tr><%h=h+1
rs.movenext
loop%>
<tr><td colspan="<%=rs.fields.count%>" bgcolor="#CCCCCC" align="center">
<%
if nowpage=1 then
response.Write("首页  上一页")
else%><a href="test8.asp?page=1">首页</a>  <a href="test8.asp?page=<%=cstr(nowpage-1)%>">上一页</a>
<%end if
if nowpage=allpage then
response.Write("下一页  尾页")
else%><a href="test8.asp?page=<%=cstr(nowpage+1)%>">下一页</a>  <a href="test8.asp?page=<%=allpage%>">尾页</a>
<%end if%>

</td></tr>
</table>
<%
with response
.Write(trim(request("page")))
.write(clng(request("page")))
.write(allpage)
.write(nowpage)
end with
end if
rs.close
set rs=nothing
%>

希望能帮到你.

2010-05-13 18:20