asp 简单分页代码

Recordset的创建与分页显示

一、初始化Recordset与设置SQL查询

在服务器端，我们首先创建一个Recordset对象来处理数据库查询结果。这是一个基于ADODB的Recordset对象，用于存储查询结果集。通过设置SQL查询语句，我们可以从数据库中获取所需的数据。

```asp

<%

Dim rs

Set rs = Server.CreateObject("adodb.recordset")

rs.Open Source:=exce, ActiveConnection:=conn, CursorType:=1, LockType:=1

%>

```

二、分页属性设置

为了进行分页显示，我们需要设置Recordset的PageSize属性，它决定了每页显示的记录数。我们要获取总页数以便于导航。用户可以通过请求参数来指定要查看的页码。

```asp

<%

rs.PageSize = 3 '设置每页显示的记录数

pageCount = rs.PageCount '获取总页数

page = Int(Request("page")) '获取请求的页码，默认为第一页

If page <= 0 Then page = 1

If Request("page") = "" Then page = 1

rs.AbsolutePage = page '设置当前页码为Recordset的当前位置

%>

```

三、分页显示内容

接下来，我们在HTML中展示查询结果。如果Recordset处于记录集的起始和结束位置（即没有记录或已达到记录集尾），则显示提示信息；否则，遍历并显示每条记录。我们生成导航链接以便用户可以跳转到不同的页面。

```asp

<%

If rs.BOF And rs.EOF Then

Response.Write("无数据")

Else

For i = 1 To rs.PageSize

Response.Write(rs("name"))

Response.Write("

rs.MoveNext

Next

End If

%>

```

四、生成分页导航链接

根据当前页码和总页数，生成分页导航链接。用户可以通过点击链接来跳转到不同的页面查看数据。代码中的逻辑根据不同的页码情况生成不同的导航链接。此处省略了部分细节以简化展示。完整的导航代码需要根据实际需求进行调整和完善。下面是简化版的导航链接生成代码：