【paging_Class 分页类】使用说明

类名：paging_Class

说明：分页类

注意：

            1) 支持百万级数据分页

            2) 支持多种类型的SQL语法，比如 Left Join 等。

            3) 自动保存查询中的错误情况，记录保存在：/Cache/Log 文件夹内

目录：

类型	名称	参数	返回	说明
属性 [必需]	[paging].table= [ 检索的数据库表]	-	-	设置检索的数据库表名
属性 [必需]	[paging].order = [ 检索数据排序方式]	-	-	设置检索排序方式
属性 [可选]	[paging].method = [xml | record]	-	-	设置检索结果值的类型，为XML字符串格式，或者是rs对象集
属性 [可选]	[paging].where = [检索数据库的条件]	-	-	设置检索数据库的条件
属性 [可选]	[paging].fields = [检索数据库字段]	-	-	设置检索数据库的字段
属性 [可选]	[paging].pageSize = [Number]	-	-	设置输出数据库记录条数
属性[可选]	[paging].currentPage=[Number]	-	-	设置输出记录的页码
方法	[paging].main()	-	[JSON]	执行查询并返回检索结果 {     result : [True | False],  // 检索结果     desc : [Empty | String], // 检索出错时的错误描述     pageCount : [Number], // 记录总页数     record : [Number], // 总记录数     currentPage : [Number], // 当前页码     value : [Empty | xmlString | rs] // 检索值 }

 

演示代码：

Dim getData, rs, i
Set paging = New paging_Class
With paging
    ' 设置检索条件
    .table = "[books]"
    .fields = "[title],[author]"
    .where = "[price]>199"
    .order = "[price] Desc"
    .method = "record"
    .pageSize = 10
    .currentPage = 3
    
    ' 执行检索
    Set getData = .Main()
End With

' 获取检索结果
Response.Write "执行结果: "  & getData.result
Response.Write "总页数: "    & getData.pageCount
Response.Write "总记录数: "  & getData.records
Response.Write "当前页数:" & getData.currentPage
Response.Write "总页数:"   & getData.pageCount

' 检索结果为record时，可循环输出记录
Set rs = getData.value
For i=1 To rs.recordCount
    Response.Write rs("title")
    rs.moveNext 
Next