在Web开发中，数据量较大时，通常需要对数据进行分页显示，以提高页面加载速度和用户体验，本文将介绍如何在ASP中使用数字分页代码实现数据的分页显示。

获取总记录数

在开始分页之前，我们需要知道总共有多少条记录，以便计算总页数，可以使用以下代码获取总记录数：

<%' 连接数据库
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("your_database_file.mdb")
' 查询总记录数
sql = "SELECT COUNT(*) AS total_records FROM your_table"
Set rs = conn.Execute(sql)
total_records = rs("total_records")
' 关闭连接
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>

计算总页数

根据每页显示的记录数（例如10条），我们可以计算出总页数，使用以下代码：

<%page_size = 10 ' 每页显示的记录数
total_pages = Fix((total_records + page_size - 1) / page_size) ' 计算总页数%>

生成分页链接

接下来，我们需要生成分页链接，可以使用以下代码：

<%For i = 1 To total_pages
    If i = current_page Then
        Response.Write("<span class='current'>" & i & "</span>")
    Else
        Response.Write("<a href='your_page.asp?page=" & i & "'>" & i & "</a>")
    End If
Next%>

这段代码会生成一个包含所有页码的链接列表，当前页使用标签包裹，其他页使用标签生成链接。

<%' 计算当前页的起始记录数
start_record = (current_page - 1) * page_size
' 查询当前页的数据
sql = "SELECT * FROM your_table LIMIT " & start_record & ", " & page_size
Set rs = conn.Execute(sql)
' 显示数据
Do While Not rs.EOF
    Response.Write("<div>" & rs("column_name") & "</div>")
    rs.MoveNext
Loop
' 关闭连接
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
%>