ASP分页代码中有二句代码不理介，请指教

sylknb 发布于 2010-02-10 16:13， 565 次点击

<% Page = Request("Page")
        Rs.PageSize = 10
        PageSize = Rs.PageSize
        If Page="" Then Page=1
        Rs.AbsolutePage = Page
        Do While Not Rs.Eof    And PageSize>0


         PageSize = PageSize-1
            Rs.MoveNext
        Loop
%>
这里为什么要PageSize>0？
PageSize = PageSize-1 ，PageSize-1 是何意？

3 回复

yms1232010-02-10 17:46

<% Page = Request("Page")
        Rs.PageSize = 10
        PageSize = Rs.PageSize
        If Page="" Then Page=1
        Rs.AbsolutePage = Page
        Dim iPage
        For iPage=1 To PageSize


            Rs.MoveNext
            if rs.eof then exit for
        Loop
%>
推荐另一种分页循环写法比楼主那个容易懂，也就是从这一页的第一条开始循环，循环到这页最大的PageSize，eof是防止不够最大时出错。

sylknb2010-02-10 22:18

loop 好象是next吧。多谢，祝春节愉愉。

chenxihu8292010-02-13 16:55

分页有几条的，这也不明白吗