'''' 分页利器(sql server) 不用存储过程 -------------------------
'其中注释中有 ###的需要用户设置
'其中注释中有 参数传递 ** 的 说明要通过参数 传递。
'定义变量
dim tOption '查询条件
dim tOrder '排序字符串
dim tOrderField '排序字段 可通过参数获得:order_field
dim tOrderDirection '排序方向 可通过参数获得:order_direction
dim tPageSize '页大小
dim tTotalCount '总记录数 可通过参数获得:t_count
dim tPageCount '页数
dim tCurPage '当前页号 可通过参数获得:page
dim tTableName '表或者视图名
dim tFieldAlias '行号的别名
dim tFieldList '查询的字段列表
dim tPageField '用于分页的字段
dim r_count '查得的记录数
set rs=server.createobject("adodb.recordset") '记录集对象
tOrderField=Request("order_field") '获得排序字段(参数传递 **)
tOrderDirection=Request("order_dir") '获得排序方向(参数传递 **)
if(tOrderField="") then tOrderField="item_code" ' ### 设置默认排序字段
if(tOrderDirection="") then tOrderDirection="asc" ' ### 设置默认排序方向
tOrder=" order by " & tOrderField & " " & tOrderDirection & " " '生成排序字符串
'定义参数
tPageSize=find_rs_count ' ### 设置页大小
tTableName="view_select1" ' ### 设置与查询的表格或视图
tFieldList=" * " ' ### 欲查询的字段列表
tPageField="item_code" ' ### 设置一个主键或唯一索引的字段 ,用于分页计算