【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