我写的通用分页源代码，简单到你只需要写一条 sql 语句就可以了

2022-07-15 80酷酷网 80kuku.com

分页|语句|源代码这个分页代码使用很简单，只有4个步骤：
（1）构造 SQL 查询语句、设置数据库连接字符串、设置每页记录显示数目
（2）插入分页控制代码 <b>navigator_init.inc</b> 文件
（3）在页面的适当地方（即你想显示“上页、下页”的地方），插入分页导航代码 <b>navigator.inc</b>
（4）用循环显示本页记录

<一> 需要分页的 ASP 文件

sample.asp

<%
    ' 取得当前 ASP 页面的完整路径，重要技巧
    theScript    = Request.ServerVariables("SCRIPT_NAME")

    ' （1）构造 SQL 语句

    myconnstr    = "driver={SQL Server};server=yourserver;uid=sa;pwd=;database=yourdatabase"
    thePageSize    = 20    ' 每页显示的记录数

    uSQL        = "select * from yourtablename "

    ' （2）插入分页控制代码
%>


<html>
<head>
<title>test</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../default.css" type="text/css">
</head>

                      

                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td>


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

                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td>


    <% 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")