asp + sqlserver 分页方法（不用存储过程）_Sql Server_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

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

作者：闵涛文章来源：闵涛的学习笔记点击数：1220 更新时间：2007/11/14 13:07:02

我的一个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") ''''记录集对象

''''排序处理
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"         '''' ### 设置一个主键或唯一索引的字段，用于分页计算

''''页数处理
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)