asp sqlserver 分页方法(不用存储过程)
2008-02-23 05:31:25来源:互联网 阅读 ()
我的一个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" ' ### 设置默认排序方向
'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)
' ---------------------------------------------------------------------
这就是全部代码,感兴趣的朋友,可以研究一下,或者将他封装起来,加上分页导航等方法。总之,希望此代码能对大家有用。
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash