收藏本站腾讯微博新浪微博

经典论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

蓝色理想 最新研发动态 网站开通淘帖功能 - 蓝色理想插件 论坛内容导读一页看论坛 - 给官方提建议

论坛活动及任务 地图和邮件任务 请多用悬赏提问 热夏来袭,选一款蓝色理想的个性T恤吧!

手机上论坛,使用APP获得更好体验 急需前端攻城狮,获得内部推荐机会 论坛开通淘帖功能,收藏终于可以分类了!

搜索
查看: 1661|回复: 6

[asp] 求大神指点~~~!!!!!

[复制链接]
发表于 2014-8-25 17:52:29 | 显示全部楼层 |阅读模式
rs.recordcount 这个代表什么呢?If pages>rs.recordcount Then pages=rs.recordcount  在这里应该是代表页数的记录数,If rs.recordcount > rs.pagesize Then 在这里好像又是全部记录数。怎么理解?


               <%
                If Not (rs.eof and rs.bof) Then
        rs.pagesize=6 '定义每页显示的记录数
        pages=clng(Request("pages"))  '获得当前页数
        If pages<1 Then pages=1
If pages>rs.recordcount Then pages=rs.recordcount
        showpage rs,pages  '执行分页子程序showpage               
        Sub showpage(rs,pages)  '分页子程序showpage(rs,pages)
        rs.absolutepage=pages   '指定指针所在的当前位置
        For i=1 to rs.pagesize  '循环显示记录集中的记录
         %>
                <%
                n=n+1
                rs.movenext  '指针向下移动
         If rs.eof Then exit for
               Next
              End Sub
             %>
            <%       

If rs.recordcount > rs.pagesize Then

                if pages<>1 then
                    response.Write("&nbsp;&nbsp;<a href="&path&"?pages=1&classid="&classid&"&classname="&classname&"&action="&action&"&keyword="&keyword&">首页</a>")
                        response.Write("&nbsp;&nbsp;<a href="&path&"?pages="&(pages-1)&"&classid="&classid&"&classname="&classname&"&action="&action&"&keyword="&keyword&">上一页</a>")
                end if
                response.Write("&nbsp;&nbsp;当前 <font color='#FF0000'>"&pages&"/"&rs.pagecount&"</font> 页")
                if pages<>rs.pagecount then
                        response.Write("&nbsp;&nbsp;<a href="&path&"?pages="&(pages+1)&"&classid="&classid&"&classname="&classname&"&action="&action&"&keyword="&keyword&">下一页</a>")
                        response.Write("&nbsp;&nbsp;<a href="&path&"?pages="&rs.pagecount&"&classid="&classid&"&classname="&classname&"&action="&action&"&keyword="&keyword&">末页</a>")
                end if
                rs.close
                Set rs=Nothing
                End If
            %>
  <%End If%>
 楼主| 发表于 2014-8-25 21:03:25 | 显示全部楼层
经典的大神都去哪里啦?~~
回复 支持 反对

使用道具 举报

发表于 2014-8-25 22:50:00 | 显示全部楼层
rs.recordcount是记录总数,
If pages>rs.recordcount Then pages=rs.recordcount
如果当前请求的页数大于记录总数则页数等于记录总数
If rs.recordcount > rs.pagesize Then
如果记录总数大于每页要显示的数量则显示分页代码

大概是这个意思吧,有时候百度一下就知道了,不一定要问,并在这里干等
回复 支持 反对

使用道具 举报

 楼主| 发表于 2014-8-26 15:52:19 | 显示全部楼层
SenFe 发表于 2014-8-25 22:50
rs.recordcount是记录总数,
If pages>rs.recordcount Then pages=rs.recordcount
如果当前请求的页数大于 ...

If pages>rs.recordcount Then pages=rs.recordcount
如果当前请求的页数大于记录总数则页数等于记录总数
问题这个比较好像很有问题呢?pages>rs.recordcount/rs.pagesize then pages=rs.recordcount/rs.pagesize 才对啊
回复 支持 反对

使用道具 举报

 楼主| 发表于 2014-8-26 16:46:59 | 显示全部楼层
SenFe 发表于 2014-8-25 22:50
rs.recordcount是记录总数,
If pages>rs.recordcount Then pages=rs.recordcount
如果当前请求的页数大于 ...

用我的想法,这一段应该是这样才对

if not (rs.bof and rs.eof) then
        rs.pagesize = 6
        pages = clng(request("pages"))
        pagesInt=rs.recordcount/6
        a = int(pagesInt)
        if a<pagesInt then
           b=int(pagesInt)+1
           else
           b=a
           end if
         
        if pages<1 then pages=1
        if pages>b then pages=b
        showpages rs,pages
回复 支持 反对

使用道具 举报

 楼主| 发表于 2014-8-28 16:10:08 | 显示全部楼层
还有人有不同意见吗?
回复 支持 反对

使用道具 举报

发表于 2014-8-28 20:19:21 | 显示全部楼层
  1. <%
  2. '......
  3. Dim iPageSize, iPageCount, iPageNo
  4. iPageSize = 6
  5. iPageCount = Abs(Int(-(Rs.RecordCount / iPageSize)))
  6. iPageNo = CheckNum(Trim(Request("pages")), 1, iPageCount)

  7. If Not (rs.bof And rs.eof) Then
  8. '......
  9. End if



  10. '数字检查:检查字段,开始数字(默认数字),结束数字(为-1则不检查大小)
  11. Function CheckNum(ByVal sStr, ByVal iStartNum, ByVal iEndNum)
  12.         CheckNum = iStartNum
  13.         If IsNumeric(sStr) Then CheckNum = Clng(sStr)
  14.         If iEndNum > -1 Then
  15.                 If CheckNum < iStartNum Then CheckNum = iStartNum
  16.                 If CheckNum > iEndNum Then CheckNum = iEndNum
  17.         End If
  18. End Function
  19. %>
复制代码
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|Archiver|手机版|blueidea.com ( 湘ICP备12001430号 )  

GMT+8, 2020-10-20 19:41 , Processed in 0.077928 second(s), 6 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表