 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
我的一个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) \\\' --------------------------------------------------------------------- 这就是全部代码，感爱好的朋友，可以研究一下，或者将他封装起来，加上分页导航等方式。总之，希望此代码能对大家有用。 返回类别: 教程 上一教程: 利用ASP技术实现文件直接上传功能 下一教程: 批量判定域名是否被注册程序代码 您可以阅读与"ASP+SQL SERVER分页方式(不用存储过程)"相关的教程: · ASP+SQL SERVER 分页方式(不用存储过程) · ASP + ORACLE 分页方式 (不用存储过程) · ASP+ORACLE分页方式(不用存储过程) · 利用SQL SERVER存储过程实现ASP用户身份验证 · ASP 用存储过程实现数据分页 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
