<% 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 是何意？

<% 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是防止不够最大时出错。

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

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