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

导读：
　　 asp+sqlserver 分页方法（不用存储过程）
　　我的一个ASP + sqlserver的分页程序：这个程序的特点就是指将当前页的纪录掉到页面上来。性能不错，而且不用存储过程，由于代码没有封装，所以很零散，要用到你的程序中，需要先简单读读。然后注意需要自己设置的地方的意思。有些是可以省略的。有些参数传递也是可以省略的。powered by 25175.net
　　代码如下：
　　'' 塞北的雪 分页利器(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" ' ### 设置默认排序方向
　　'www.knowsky.com
　　tOrder=" order by " &tOrderField &" " &tOrderDirection &" " '生成排序字符串
　　'定义参数
　　tPageSize=find_rs_count ' ### 设置页大小
　　tTableName="view_select1" ' ### 设置与查询的表格或视图
　　tFieldList=" * " ' ### 欲查询的字段列表
　　tPageField="item_code" ' ### 设置一个主键或唯一索引的字段 ，用于分页计算
　　'页数处理
　　tCURPage=Request("page") '获得当前页（参数传递 **）
　　tTotalCount=Request("t_count") '获得总页数（参数传递 **）
　　if(tCURPage="") then tCURPage=1
　　if(cint(tCURPage)=0) then tCURPage=1
　　if(tPageCount="") then tPageCount =1
　　if(cint(tPageCount)=0) then tPageCount=1
　　' 构造查询条件，根据具体的程序，肯定不一样。但是最后的条件必须是“ where ??? ”
　　tOption=" issue_flag='Y'" ' ### 设置条件
　　if f_c<>"" then tOPtion= tOPtion &f_c ' ### 设置条件
　　if trim(tOption)="" then
　　tOption = " where 1=1 " '如果没有条件，就自己加一个。
　　else
　　tOption= " where " &tOPtion
　　end if
　　
　　
　　'构造查询字符串，这个分页程序的核心，此查询串是我们只下载当前页所需的记录
　　if(tCURPage>1) then
　　conStr="select top " &tPageSize &" " &tFieldList &" from " &tTableName & tOption
　　conStr =conStr &" and " &tPageField &" not in(select top " &tPageSize*(tCURPage-1) &" " &tPageField &" from " &tTableName & tOption &" " &tOrder &") " &tOrder
　　else
　　conStr="select top " &tPageSize &" " &tFieldList &" from " &tTableName &tOption &" " &tOrder
　　end if
　　
　　
　　'执行主查询，获得相应记录集
　　Call ConnDataBase() ' ### 建立数据库连接
　　rs.cursorlocation=3
　　rs.open conStr,conn,3,1 '执行查询
　　r_count= rs.recordcount
　　'当还没有查询过总记录数时 并且 总的记录数超过了页大小时 ，查询当前条件下的总的记录数
　　if(r_count>=tPageSize or tCURPage>1) and tTotalCount=0 then
　　set rr=conn.execute("select count(*) from " &tTableName &" " &tOption)
　　tTotalCount=rr(0)
　　rr.close()
　　set rr=nothing
　　end if
　　if(cint(tTotalCount)=0) then tTotalCount=r_count '如果总记录为0，将当前差得的记录集的记录数设置为总记录数，说明当前的总记录数小于页大小
　　
　　'利用页大小和总记录数 计算页数
　　if(cint(tTotalCount)>cint(tPageSize)) then
　　tPageCount=cint((cint(tTotalCount) / cint(tPageSize)))
　　if(cint(tTotalCount) mod cint(tPageSize))>0 then
　　tPageCount =tPageCount +1
　　end if
　　end if
　　
　　tCURPage=cint(tCURPage)
　　tPageCount=cint(tPageCount)
　　' ---------------------------------------------------------------------
　　这就是全部代码，感兴趣的朋友，可以研究一下，或者将他封装起来，加上分页导航等方法。总之，希望此代码能对大家有用。

本文转自
http://www.25175.com/200609/25175/25175_html/2007-11/2305.html