sql server 存储过程分页

来源：作者：出处：综艺读书 2006-09-30 进入讨论组

·SQL Server SQL语句导入导出大全
·列出 SQL Server 数据库中所有的存储过程
·SQL Server SQL语句调优技巧
·SQL Server 事务日志
·从SQL SERVER 向ORACLE 8迁移的技术实现
·重建索引提高SQL Server性能
·SQL Server 数据库管理常用的SQL和T-SQL
·SQL Server 中死锁产生的原因及解决办法
·Asp.Net(C#)+Sql Server三层架构下数据存
·SQL Server 存储过程的分页方案比拼

CREATE PROCEDURE [dbo].[Select_page_data_allow_fields_cond]
@allow_fields varchar(100) =" * ",
@DefRecordNum int =20,
@PageNo int =1,
@Where varchar(500) = null
AS
declare @R_end int
declare @S_sql varchar(500)
declare @condition varchar(500)
declare @condition2 varchar(500)

--if rtrim(@Where)!=""
--if rtrim(@Where)!=""

SET @r_end=(@PageNo-1)*@DefRecordNum+1

--正则页码
IF ( CAST(@r_end AS INT)<1)
SET @r_end = 1

SET @Where=rtrim(@Where)
--if not (@Where is null )
if (@Where <>'' )
SET @S_sql="SELECT TOP "+CAST(@DefRecordNum AS CHAR(4)) +space(2)+@allow_fields+" FROM BBSReply WHERE id>=(SELECT MAX(ID) AS r_begin FROM (SELECT TOP "+CAST(@R_end AS CHAR(5))+" ID FROM BBSReply WHERE "+@Where+" ORDER BY ID) airzen) AND "+@Where+" order by id"
ELSE
SET @S_sql="SELECT TOP "+CAST(@DefRecordNum AS CHAR(4)) +space(2)+@allow_fields+" FROM BBSReply WHERE id>=(SELECT MAX(ID) AS r_begin FROM (SELECT TOP "+CAST(@R_end AS CHAR(5))+" ID FROM BBSReply ORDER BY ID) airzen) order by id"

--PRINT @S_sql
EXEC(@S_sql)
GO

---------------------------------------------------

<%
'********************************************************************
'本程序由AIRZEN 2004/5/12 更新修定。
'===================================================================
Option Explicit
'Response.Flush
Dim BeginTime,EndTime
BeginTime=Timer
Dim conn,SQLstr,Rs,DefRecordNum,CursorBegin,CursorEnd,CurPageNum,hav
DefRecordNum=20
dim R_end
'--------------获取相关参数----------
If Request("CurPageNum")<>"" Then
CurPageNum=CLng(Request("CurPageNum"))
If CurPageNum<=0 Then CurPageNum=1
Else
CurPageNum=1
End If

'----------------End-----------------
'------------显示翻页内容函数--------
Function TurnPageFS(DispRecordNum)
Dim n
While Not(Rs.Eof) And n<DispRecordNum
n=n+1
Response.Write "<tr>"&_
"<td bgcolor='efefef'>"&n&"</td>"&_
"<td bgcolor='efefef'>"&Rs(0)&"</td>"&_
"<td bgcolor='efefef'>"&Rs(1)&"</td>"&_
"<td bgcolor='efefef'>"&Rs(2)&"</td>"&_
"<td bgcolor='efefef'>"&Rs(3)&"</td>"&_
"<td bgcolor='efefef'>"&Rs(4)&"</td>"&_
"<td bgcolor='efefef'>"&Rs(5)&"</td>"&_
"</tr>"
If n=1 Then CursorBegin=Rs(0)
If n=DefRecordNum Or Rs.Eof Then CursorEnd=Rs(0)
Rs.MoveNext
Wend
End Function
'-------------连接数据库-------------
Set conn=Server.CreateObject("Adodb.Connection")
'SQLstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("mldata.mdb")
SQLstr="provider=SQLOLEDB;server=(local);database=XX;uid=XX;pwd=XX;"
conn.Open SQLstr
Dim TotalRecords,TotalPages

TotalPages=clng(request.QueryString("TotalPages"))

'//判断有无接收的页码
if TotalPages=0 or not isnumeric(TotalPages) then '//无接收页码

SQLstr="Select count(ID) As RecordSum From BBSreply WHERE userid='airzen'" '//此条件应与下面的存储过程条件保持一持
Set Rs=conn.Execute(SQLstr,0,1)
TotalRecords=Rs("RecordSum")
TotalPages=Abs(Int(TotalRecords/DefRecordNum*(-1)))
Rs.Close
Set Rs=Nothing

end if
dim allow_fields
'//允许控制选择的字段以最优化的SQL 语句执行，
'//allow_fields :允许的字段
'//DefRecordNum :每页显示的记录数目
'//CurPageNum :当前页码
allow_fields="[*]"
if TotalPages<1 then TotalPages=1
SQLstr="Select_page_data_allow_fields_cond "&allow_fields&","&DefRecordNum&","&CurPageNum&",[userid='airzen']"

'//此处的条件应与上面的保持一致
'//SQLstr="Select_page_data_allow_fields_cond "&allow_fields&","&DefRecordNum&","&CurPageNum&",[ id=1449236]"
response.write "<br>"&SQLstr
Set Rs=conn.Execute(SQLstr)

%>
<HTML>
<head>
<title>(airzen 2004/05/13 Version of Procedure)</title>
<meta http-equiv="Content-Type" content="text/HTML; charset=gb2312">
<style type="text/CSS">td,br,div,p,body {font-size:12px}</style>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="3" bgcolor="#E2F5FE">
<tr align="center">
<td colspan="2"><%Response.Write CurPageNum&"/"&TotalPages&"页总记录数："&TotalRecords%></td>
<td>首页</a> <a href=../../"?CurPageNum=<%=CurPageNum-1%>"></a></a> </td>
</tr>
</table>
<table width="100%" border="1" cellspacing="0" cellpadding="3" bgcolor="#CCCCCC">
<tr>
<td>ID</td>
<td>Title</td>
<td>FileName</td>
<td>大小</td>
<td>尺寸</td>
<td>类别</td>
</tr>
<%
TurnPageFS(DefRecordNum)
Rs.Close
Set Rs=Nothing
conn.Close
Set conn=Nothing
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="3" bgcolor="#E2F5FE">
<tr align="center">
<td colspan="2"><%Response.Write CurPageNum&"/"&TotalPages&"页总记录数："&TotalRecords%></td>
<td><a href=../../"?TotalPages=<%=TotalPages%>">首页</a></a>
<a href=../../"?TotalPages=<%=TotalPages%>&CurPageNum=<%=CurPageNum-1%>"></a></a>
<a href=../../"?TotalPages=<%=TotalPages%>&CurPageNum=<%=TotalPages%>">末页</a></td>
</tr>
</table>
<p class="unnamed1">
<%
EndTime=Timer
Response.Write "<br>程序执行时间："&(EndTime-BeginTime)*1000&"毫秒"
Response.Write " 第一条记录的ID值(CursorBegin)="&CursorBegin&" "
Response.Write "最后一条记录的ID值(CursorEnd)="&CursorEnd&"<br><br>"
%>
</p>

<p> </p>
</body>
</HTML>

本程序思路用到存储过程，

ASP页面中加入传递参数TotalPages 第一页运行时将会多做一次获取总页数的运算，在以后的页面中将会用参数传递。这样将节省一些时间。

更多内容请看SQL Server SQL Server SQL Server 数据处理专题专题，或进入讨论组讨论。

【收藏此文】【大中小】【打印】【关闭】

较早的文章：SQL Server 本机 Web 服务的使用方案

较新的文章：Sql Server 和 Access 操作数据库结构Sql语句

站内各频道最新更新文档

形形色色的台湾特产

怀念“黛玉”妹妹

·如何设置路由器
·照片合成处理软件
·RedHat6.2服务配置之Apache
·提升电脑性能的方法
·电脑无法正常启动的问题
·delphi两种方法使用xml文档
·证券行业交易平台解决方案
·三星人寿保险Sybase案例

·东软商业保险系统解决方案
·CSO向Sun平台应用移植解决..
·东软税务全面整体解决方案
·珠海国地税KILL安全系统案例
·友讯：D-Link助昆明市公安..
·江苏邮政票据打印机系统方案
·浪潮：云南国税备份系统案例
·CSS 标签属性

站内最新制作专题

·ACDSEE专题教程-下载使用
·迅雷专题教程-下载使用
·Windows XP频道
·Windows Vista频道
·Windows 2000频道
·win2003频道
·Freebsd频道
·Oracle频道

·Linux频道
·Windows频道
·邮件服务器专题
·协议大全
·数据恢复指南教程
·FreeBSD使用教程
·Linux数据库宝典
·Linux基础知识

热门关键字导读

Photoshop教程：照片处理照片制作 PS快捷键抠图
计算机故障：XP系统修复
艺术与设计：设计流媒体设计欣赏边框
计算机安全：ARP

站内频道文章精选

新闻资讯	电脑技巧
· 秘密:Vista隐蔽的动态屏保 · 腾讯开发新电子宠物--QQ熊 · 惠普否认2999元PC有价无货	· 驱逐Win系统“流氓”文件 · WinXP中获取未使用的IP地址 · 尝试format C:格式化硬盘？
操作系统	常用软件
· 在DOS下恢复回收站中的文件 · 拯救WinXP崩溃的救命稻草 · Linux系统中超级权限的应用	· 搜狗PK谷歌：谁能代言拼... · 昨日重现，一键GHOST轻松.. · 实现Web迅雷在空闲时杀毒
桌面开发	网络编程
· AVIFile函数制做AVI文件 · VC中链接动态链接库的方法 · 熊猫烧香核心源码(Delphi)	· DateDiff函数祥解 · JavaScript去除空格的三种 · js效果图片加载进度实时..
数据库	图像处理
· SQL Server数据库优化方案 · Oracle的初学者入门心得 · JSP连接Mysql数据库	· Photoshop为美女做艺术处理 · 用Freehand创建发光字特效 · 设计自己的个性QQ动态表情

百度推荐，商机无限

搜索您感兴趣的内容