【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] // 检索值

}

 

演示代码:

 1 Dim getData, rs, i
 2 Set paging = New paging_Class
 3 With paging
 4     ' 设置检索条件
 5     .table = "[books]"
 6     .fields = "[title],[author]"
 7     .where = "[price]>199"
 8     .order = "[price] Desc"
 9     .method = "record"
10     .pageSize = 10
11     .currentPage = 3
12     
13     ' 执行检索
14     Set getData = .Main()
15 End With
16 
17 ' 获取检索结果
18 Response.Write "执行结果: "  & getData.result
19 Response.Write "总页数: "    & getData.pageCount
20 Response.Write "总记录数: "  & getData.records
21 Response.Write "当前页数:" & getData.currentPage
22 Response.Write "总页数:"   & getData.pageCount
23 
24 ' 检索结果为record时,可循环输出记录
25 Set rs = getData.value
26 For i=1 To rs.recordCount
27     Response.Write rs("title")
28     rs.moveNext 
29 Next

 

posted @ 2018-11-30 18:59 网申 阅读(...) 评论(...) 编辑 收藏