ASP分页类(支持多风格变换)

分页效果代码展示

今天我要分享一段非常漂亮的分页效果代码，这段代码采用了客户端游标技术，使得分页效率大大提高。接下来让我们一起看看这段代码是如何实现的。

一、初始化分页类

我们定义了一个分页类，用于初始化分页相关的参数。包括当前页码、每页显示的条数、总记录数、总页数等。代码如下：

```vbscript

Class Page

Private CurrPage, PageN, UrlStr, TempStr, ErrInfo, IsErr, TotalRecord, TotalPage

Public PageRs

Private TempA(11), TempB(8)

Private Sub Class_Initialize()

CurrPage = 1 '默认显示当前页为第一页

PageN = 10 '默认每页显示10条数据

UrlStr = ""

TempStr = ""

ErrInfo = "ErrInfo:"

IsErr = False

End Sub

...（省略其他部分代码）

End Class

```

二、设置分页参数和执行分页操作

接下来，我们可以通过设置分页参数和执行分页操作来获取我们需要的数据。在这个过程中，我们使用了ADODB.RecordSet对象来存储查询结果，并设置了游标位置和每页显示的记录数。代码如下：

```vbscript

Public Sub Exec(Sql, ConnObj)

On Error Resume Next

Set PageRs = Server.CreateObject("ADODB.RecordSet") '创建记录集对象

PageRs.CursorLocation = 3 '使用客户端游标，提高效率

PageRs.PageSize = PageN '设置每页显示的记录数

PageRs.Open Sql, ConnObj, 0, 1 '打开记录集，执行查询操作

...（省略错误处理部分代码）

TotalRecord = PageRs.RecordCount '获取总记录数

If TotalRecord >= 1 Then '如果有数据，开始处理分页逻辑

'...（省略分页逻辑处理部分代码）

End If

End Sub

```

图示说明：

1. 初始化阶段：创建分页类，设置初始参数。

2. 执行分页操作：通过SQL查询和数据库连接对象获取数据，创建记录集对象，并设置游标位置和每页显示的记录数。

3. 错误处理与数据获取：处理可能出现的错误，获取总记录数和每页显示的数据。

在数据的分页呈现中，我们首先计算总页数。如果总记录数能够被每页显示的记录数整除，那么总页数就是总记录数除以每页显示数。否则，总页数需要向上取整。这样的计算确保了每一页都有完整的记录展示。

当我们处理当前接收的页码时，首先要判断它是否为数字。如果是数字，我们就将其转换为长整型；如果不是，我们将其设定为第一页。我们还要确保当前页码在合理的范围内，如果小于1，就设为1；如果大于总页数，就设为总页数。这样，无论用户输入什么，我们都能提供一个明确的、合适的页码。

对于那些非数字类型的页码输入，例如点击首页、上一页、或尾页按钮时，我们不需要进行数值转换和范围检查。这些操作直接对应到特定的页码：首页是1，上一页是前一页，是后一页，尾页是总页数。当前页码的位置则显示当前所在的页数。

在处理完这些基本的页码操作后，我们需要设置页面的具体参数。每页的显示条数、文章总数等信息都需要在初始化时设定。我们还会使用循环标签来标识循环的开始和结束，以及循环内的单个标签页码。这些设置都是为了更好地展示数据和提供用户友好的操作体验。

我们调用`cambrian.render('body')`来渲染页面主体。这个函数将上述所有的设定和计算应用到实际的页面展示中，使得用户能够看到清晰、准确的数据分页展示。无论是浏览文章、查看数据还是进行其他操作，都能得到流畅、吸引人的体验。

这样的处理流程不仅确保了数据的准确展示，还为用户提供了便捷的操作方式。无论是新手还是老手，都能轻松地进行分页操作，获取所需的信息。