如何在Classic ASP中创建的表中为结果添加分页？

<%
' 连接数据库并执行查询语句
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "数据库连接字符串"
Set rs = conn.Execute("SELECT * FROM 表名")

' 每页显示的记录数和当前页码
pageSize = 10
currentPage = Request.QueryString("page")

' 计算总记录数和总页数
totalCount = rs.RecordCount
totalPages = Ceil(totalCount / pageSize)

' 计算需要跳过的记录数
skipCount = (currentPage - 1) * pageSize

' 使用LIMIT关键字限制查询结果的范围
sql = "SELECT * FROM 表名 LIMIT " & skipCount & ", " & pageSize
Set rs = conn.Execute(sql)

' 遍历结果集，将结果显示在表格中
%>
<table>
  <tr>
    <th>列1</th>
    <th>列2</th>
    <!-- 其他列 -->
  </tr>
  <% While Not rs.EOF %>
  <tr>
    <td><%= rs("列1") %></td>
    <td><%= rs("列2") %></td>
    <!-- 其他列 -->
  </tr>
  <% rs.MoveNext() Wend %>
</table>

<%
' 创建分页导航栏
For i = 1 To totalPages
  If i = currentPage Then
    Response.Write("<strong>" & i & "</strong> ")
  Else
    Response.Write("<a href=""?page=" & i & """>" & i & "</a> ")
  End If
Next

' 关闭数据库连接
rs.Close
conn.Close
%>