分页显示的问题，为什么点击下一页或尾页，找不到页面？在线等

datongshijie 2003-11-20 08:55:14
<html>
<head>
<%
Set conn = Server.CreateObject("ADODB.Connection")
strcon="provider=microsoft.jet.oledb.4.0;data source="& _
server.mappath("zhuboyi.mdb")
conn.Open strcon

Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select Detail,Title,Date from new order by Date desc"
rs.Open sql, conn, 1

page=1 ' 设置变量PAGE=1
rs.PageSize = 3 '每页显示记录数

if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...

Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量

if Page > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页

elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
Page = rs.AbsolutePage
%>
<%

For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if '利用for next 循环依次读出记录
%>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<table width=95% border=1 align=center>
<tr>
<td width="2%" height="17"><img src="images/dot.gif" width="6" height="6" border="0"></td>
<td width="3%" height="17"><img src="images/arrow.gif" width="5" height="5"></td>
<td width="443" height="17"><% =rs("Detail") %><br><% =rs("Title") %></td>
<td width="74" height="17"><% =rs("Date") %></td>

</tr> </table>
<%
rs.MoveNext
Next
%>
<%
if page<>1 then%>
<a Href="dangtai5.asp?Page=<% = 1%>">首页</a>
<a Href="dangtai5.asp?ToPage=<% =Page -1 %>">上一页</a>
<%end if %>
<%
if page<>rs.pagecount then %>
<a Href="dangtai5.asp?ToPage=<% =Page + 1%>">下一页</a>
<a Href="dangtai5.asp?ToPage=<% = rs.PageCount%>">尾页</a>
<%
end if %>

</body>
<%
rs.close
Set rs = Nothing
conn.close
set conn=nothing
%>
</body>
</html>


...全文
190 16 打赏 收藏 转发到动态 举报
写回复
用AI写文章
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
datongshijie 2003-11-20
  • 打赏
  • 举报
 回复
现在是这样的！！西西！！
datongshijie 2003-11-20
  • 打赏
  • 举报
 回复
<html>
<head>
<%
Set conn = Server.CreateObject("ADODB.Connection")
strcon="provider=microsoft.jet.oledb.4.0;data source="& _
server.mappath("zhuboyi.mdb")
conn.Open strcon

Set rs = Server.CreateObject ("ADODB.Recordset")
sql="select Detail,Title,Date from new order by Date desc"
rs.Open sql, conn, 1,1,1

rs.PageSize = 3 '每页显示记录数

if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...

Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量

if Page > rs.PageCount then '如果接收的页数大于总页数
Page = rs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
page = 1
end if
else
Page=1
end if
rs.absolutepage = page
%>
<%

For i = 1 to rs.PageSize
if rs.EOF then
Exit For
end if '利用for next 循环依次读出记录
%>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<table width=95% border=1 align=center>
<tr>
<td width="2%" height="17"><img src="images/dot.gif" width="6" height="6" border="0"></td>
<td width="3%" height="17"><img src="images/arrow.gif" width="5" height="5"></td>
<td width="443" height="17"><% =rs("Detail") %><br><% =rs("Title") %></td>
<td width="74" height="17"><% =rs("Date") %></td>

</tr> </table>
<%
rs.MoveNext
Next
%>
<%
if page<>1 then%>
<a Href="dangtai5.asp?Page=<% = 1%>">首页</a>
<a Href="dangtai5.asp?ToPage=<% =Page -1 %>">上一页</a>
<%end if %>
<%
if page<>rs.pagecount then %>
<a Href="dangtai5.asp?ToPage=<% =Page + 1%>">下一页</a>
<a Href="dangtai5.asp?ToPage=<% = rs.PageCount%>">尾页</a>

<%
end if %>

</body>
<%
rs.close
Set rs = Nothing
conn.close
set conn=nothing
%>
</body>
</html>

DeltaCat 2003-11-20
  • 打赏
  • 举报
 回复
你的代码都改过了？

应该没问题了
datongshijie 2003-11-20
  • 打赏
  • 举报
 回复
哎！！为什么还不出下一页：（
datongshijie 2003-11-20
  • 打赏
  • 举报
 回复
其他地方还改吗？
DeltaCat 2003-11-20
  • 打赏
  • 举报
 回复
不好意思，上面的 response.end 改成 Page=1
datongshijie 2003-11-20
  • 打赏
  • 举报
 回复
不行啊！！为什么
DeltaCat 2003-11-20
  • 打赏
  • 举报
 回复
rs.Open sql, conn, 1,1,1

rs.PageSize = 3 '每页显示记录数

if Not IsEmpty(Request("Page")) then '如果PAGE已经初始化...

Page = CInt(Request("Page")) '接收PAGE并化为数字型赋给PAGE变量

if Page > rs.PageCount then '如果接收的页数大于总页数
Page = rs.PageCount '设置当前显示页等于最后页
elseif Page <= 0 then '如果page小于等于0
page = 1
end if
else
response.end
end if
rs.absolutepage = page
%>
<% for .....
datongshijie 2003-11-20
  • 打赏
  • 举报
 回复

zht_ok：

把把的页数判断换一下

是不是这段


if Page > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页


elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
Page = rs.AbsolutePage


DeltaCat 2003-11-20
  • 打赏
  • 举报
 回复
rs.Open sql, conn, 1,1,1
datongshijie 2003-11-20
  • 打赏
  • 举报
 回复
还是报错！！！
datongshijie 2003-11-20
  • 打赏
  • 举报
 回复
if Page > rs.PageCount then '如果接收的页数大于总页数
rs.AbsolutePage = rs.PageCount '设置当前显示页等于最后页


elseif Page <= 0 then '如果page小于等于0
Page = 1 '设置PAGE等于第一页
else
rs.AbsolutePage = Page '如果大于零,显示当前页等于接收的页数
end if
End if
Page = rs.AbsolutePage
glwdpy 2003-11-20
  • 打赏
  • 举报
 回复
将代码中的topage换成page就OK了
<a Href="dangtai5.asp?Page=<% = 1%>">首页</a>
<a Href="dangtai5.asp?Page=<% =Page -1 %>">上一页</a>
<%end if %>
<%
if page<>rs.pagecount then %>
<a Href="dangtai5.asp?Page=<% =Page + 1%>">下一页</a>
<a Href="dangtai5.asp?Page=<% = rs.PageCount%>">尾页</a>
datongshijie 2003-11-20
  • 打赏
  • 举报
 回复
为什么！！：（
jarodzhao 2003-11-20
  • 打赏
  • 举报
 回复
把你的页数判断换一下

if page-rs.pagecount>0 then
page=rs.pagecount
elseif page="" or page<1 then
page=1
end if

rs.absolutepage=page
datongshijie 2003-11-20
  • 打赏
  • 举报
 回复
怎么没人理！
WORD 分页符问题-插入奇数页分页符，之前的变为下一页分页符
WORD 分页符问题-插入奇数页分页符，之前的变为下一页分页符问题解决办法 问题 论文排版时要求每张首页为右页，页码从1开始，所以每节就是从奇数页开始，所以有些章节最后插入下一节奇数页。 但是插入的过程发现，这一章末尾插入“下一节奇数页”，上一章插入的就变成了“下一节分页符” 解决办法 在下一章标题的位置，点击“布局”->点击"页面设置"右下角标->点击"布局"栏，节的起始位置应该是奇数页，而不是新建页。 问题解决。 图示： 鼠标点击这儿： 改下节的起始位置就好了 ...
关于分页标签，上一页和下一页不可点击。
前几天遇到了分页问题。 在第一页的时候，上一页依然是一个可点击的状态。 于是开始想解决办法 页面中，上下页都套用了bootstrap中分页的“disabled” 的class，这个class具体为一个小小的禁止标志。翻页的时候，在页面中间时，上一页和下一页的disabled是取不到的，在首尾页，则取到disabled。 大体思路如下： 在ul里面设置一个id， 通过js加载页面时候取得上
bootstrap-paginator分页插件点击下一页跳页问题
bootstrap-paginator是一款基于bootstrap的jQuery分页插件。 目前项目中使用了这一分页插件，但是在使用过程中却发现了一个不大不小的坑。 当分页显示超过三页的情况下，若当前是第一页，点击下一页会发现，内容显示的明明是第二页的内容，但是页数显示却是第三页。也就是说，点击下一页，结果跳页了。 经过多方尝试，最终发现是因为在使用AJAX调用后台方法的时候使用了同步请求，即a...
（首页上一页下一页尾页 + 下拉框跳转）分页功能
说在前头（本人用的是bootstrap +jQuery 和 struts2 +  MVC）不影响分页功能 制作一个分页功能： 效果如下： 由上图可知，此功能只适合页数不是特别多的情况下，页数多的时候，每次都要求得总记录数，太慢了。 【一】：1、总记录数，2、总页数，3、每页记录数，4、当前页 【二】：首页，上一页，下一页，尾页 【三】：直接跳转 一、java后台分页model
php 查询数据点下一页,分页条件查询点击下一页后变成全部数据?
一个页面有table表格, 里面有很多数据, 有搜索框, 当点击搜索的时候, 可以进行筛选, 但是点击下一页的时候, 数据变成全部的数据, 分页也跟着变了以下是点击搜索的时候筛选的数据3.当点击下一页的时候数据变成全部数据jsexport default {data() {return {botanyData: [],activeName2: "first",query: {pageNum: 1,...
ASP

28,406

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章