nbsp;                 <tr>
                          <td>
<!--（4）用循环显示本页记录-->

    <% For i = 1 To rs.pagesize %>
                      <!-- 你的记录显示代码//-->
    <%
        rs.MoveNext
        If rs.EOF Then
            Exit For
            rs.close
            conn.close
        End If
    next
    %>

                          </td>
                        </tr>
                      </table>


</body>
</html>



<二> 分页控制代码：

navigator_init.inc

<%
    theCurrentPageNum    = clng(request("pn"))

    ' 用页面名字来唯一确定当前页面使用的 rs
    ' 由于不同目录下面可以有相同名字的文件，因此使用带完整路径的文件名
    theCurrentRS        = "rs" & theScript

    If theCurrentPageNum = 0 Then

        Set conn = Server.CreateObject("ADODB.Connection")
        conn.open myconnstr
        set rs = server.createobject("adodb.recordset")    
        rs.open uSQL,conn,1,3

        if rs.recordcount > 0 then
            rs.PageSize            = thePageSize
            rs.AbsolutePage        = 1
            theCurrentPageNum    = 1
 &nb

上一页  [1] [2] [3] [4] [5] 下一页

在google里搜索更多我写的通用分页源代码，简单到你只需要写一条 sql 语句就可以了，超级 cool！

	Web www.51ec.org

上一篇信息学院： 应几个同事百般要求,为他们写了这个体育彩票的随机数生成程序,用到cookie.

下一篇信息学院： 超酷的通用分页显示控制 （四） 统一记录显示…