asp + sqlserver 分页方法（不用存储过程）

我的一个asp + sqlserver的分页程序：这个程序的特点就是指将当前页的纪录掉到页面上来。性能不错，而且不用存储过程，由于代码没有封装，所以很零散，要用到你的程序中，需要先简单读读。然后注意需要自己设置的地方的意思。有些是可以省略的。有些参数传递也是可以省略的。
     代码如下：
''''  塞北的雪  分页利器(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")     '记录集对象