这个循环应该怎么做?

beret 2002-01-22 11:10:24
分页程序做好啦。。现在要在每一页的每条记录前面加记录编号,记录编号根据得到的记录数由1开始进行排列。

例如:得到全部记录recordcount=21,每一页记录数pagesize为5条。我做的第一页可以得到记录编号1,2,3,4,5,但当翻页的时候,本来
编号是显示6,7,8.....的,可程序又再显示1,2,3,4,5啦,请问这个循环应该怎么写。谢谢大家。
...全文
141 11 打赏 收藏 转发到动态 举报
写回复
用AI写文章
11 条回复
切换为时间正序
请发表友善的回复…
发表回复
acsu 2002-01-22
  • 打赏
  • 举报
回复
希偌说得对呀!
(page-1)*pagesize+1开始编号就可以啦!
希偌 2002-01-22
  • 打赏
  • 举报
回复
把5改成pagesize
mickwang 2002-01-22
  • 打赏
  • 举报
回复
你可以每次显示页面的时候,取得该页面的页码数
如果是第一页则从1开始循环到5
第二页,6到10
第三页 11到15
也就是(pageno-1)*5+i 了
希偌 2002-01-22
  • 打赏
  • 举报
回复
明白了吧,给分!
希偌 2002-01-22
  • 打赏
  • 举报
回复
你自己加算了,我说一个算法!
如果page表示当前页数,那么你要求的排序就从
(page-1)*5+1开始,就是说,第一页从(1-1)*5+1=1开始,第二页从(2-1)*5+1=6开始,………………等等等!
希偌 2002-01-22
  • 打赏
  • 举报
回复
这个简单,你把你的源码给我,我直接帮你加!
beret 2002-01-22
  • 打赏
  • 举报
回复
blow_jj(纪俊),你误会我的意思了,我的意思是说我要在每一个的记录前面加多一项编号,它根据所得的记录数进行编排。就好像第一页显示5条记录,那它的编号就是1,2,3,4,5,当我翻页的时候,它就应该是显示6,7,8,9,10,以此类推。
纪俊 2002-01-22
  • 打赏
  • 举报
回复
set rs=server.createobject("adodb.recordset")
sql = "select * from scanner"
rs.open sql,conn,1,1
if rs.EOF then
Response.Write "无记录"
else
page = Request.QueryString("page")
if page = "" then page = 1
rs.PageSize = 5
rs.AbsolutePage = page
%>

<%if page > 1 then%>
<a href="?page=1">第一页</a>
<a href="?page=<%=page-1%>">前一页</a>
<%end if%>
<%if not rs.EOF then%>
<a href="?page=<%=page+1%>">下一页</a>
<a href="?page=<%=rs.PageCount%>">最后一页</a>
<%end if%>
<br>
<%
for i = 1 to 10
if rs.EOF then exit for
Response.Write rs("brand") & "<br>" '具体内容
rs.MoveNext
next
%>
<%end if%>

大体就是这样,照着改改吧
希偌 2002-01-22
  • 打赏
  • 举报
回复
也不见给分!
beret 2002-01-22
  • 打赏
  • 举报
回复
完成了。。谢谢大家
fcclig 2002-01-22
  • 打赏
  • 举报
回复
set rs=server.createobject("adodb.recordset")
sql = "select * from scanner"
rs.open sql,conn,1,1
if rs.EOF then
Response.Write "无记录"
else
page = Request.QueryString("page")
if page = "" then page = 1
rs.PageSize = 5
rs.AbsolutePage = page
%>

<%if page > 1 then%>
<a href="?page=1">第一页</a>
<a href="?page=<%=page-1%>">前一页</a>
<%end if%>
<%if not rs.EOF then%>
<a href="?page=<%=page+1%>">下一页</a>
<a href="?page=<%=rs.PageCount%>">最后一页</a>
<%end if%>
<br>
<%

for i = 1 to 10
if rs.EOF then exit for
j=(page-1)*5+i
response.write j
Response.Write rs("brand") & "<br>" '具体内容
rs.MoveNext
next
%>
<%end if%>

28,406

社区成员

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

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