| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 416 人关注过本帖
标题:[求助]一个包含分页显示的代码出错
取消只看楼主 加入收藏
zln
Rank: 1
等 级:新手上路
帖 子:73
专家分:0
注 册:2006-1-6
收藏
 问题点数:0 回复次数:0 
[求助]一个包含分页显示的代码出错

<!--#include file="conn.asp"-->
<!--#include file="conn4.asp"-->
<%
Set rs1 = server.CreateObject("adodb.recordset")
slq = "select * from only order by Tijianshijian desc"
response.write slq
rs1.Open slq,dd,1,1 (出错代码行)

Dim pagenum
rs1.pagesize =1 '每页显示记录的条数
pagecount1 = rs1.pagecount '总共显示的页数

'获取当前的页码数,放到变量pagenum中
If request.querystring("pagenum") = 0 Or request.querystring("pagenum") = "" Then
pagenum = 1
Else
pagenum = request.querystring("pagenum")
rs1.absolutepage = Trim(request.querystring("pagenum")) '记录集的absolutepage属性表示当前显示的弟几页
End If

%>
<%Do While Not rs.EOF And i < rs1.pagesize%>

<tr>
<td width="55" height="20" align="center"><%=rs("Tijiandanhao")%></td>
<td width="54" height="20" align="center"><%=rs("Tijianshijian")%></td>
<td width="59" height="20" align="center"><%=replace(rs("xin")&"",",","")%></td>
</tr>
<tr>
<%
i=i+1
rs.movenext
loop

%>


</tr>
</table>
<p align="center">[<a href=viewrecord.asp?pagenum=1>首页</a>
<%If pagenum > 1 Then%>
<a href=viewrecord.asp?pagenum=<%=(pagenum-1)%>>上一页</a>
<%Else%>
上一页
<%pagenum=1%>
<%End If%>

<%If pagenum < Trim(pagecount1) Then%>
<a href=viewrecord.asp?pagenum=<%=(pagenum+1)%>>下一页</a>
<%Else%>
下一页
<%pagenum=pagecount1%>
<%End If%>
<a href=viewrecord.asp?pagenum=<%=pagecount1%>>尾页</a>]
[页次:<%=pagenum%>/<%=pagecount1%>页] [每页显示<%=rs.pagesize%>条记录/<%=rs.recordcount%>总共条记录]
</p>

搜索更多相关主题的帖子: 代码 
2006-06-12 16:30
快速回复:[求助]一个包含分页显示的代码出错
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015454 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved