原创：SQL Server的通用分页存储过程，未使用游标，速度更快！

使用SQL Server时，分页处理一直是个比较棘手的问题

 

执行一个数据检索的请求，涉及到三个环节：

 

1、请求者的本地浏览器，简称为：C

 

2、接收HTTP请求的WEB服务器，简称为：SW

 

3、接收数据请求的SQL Server服务器，简称为：SD

 

正常情况下，SQL Server服务器上会对使用频率大的Table建立合适的索引

 

这样能大幅度的提高SD本身的数据检索速度，建立索引的方法就不细说了

 

 

如果需要返回大量数据，从几百行到几万行，甚至几十万行数据

 

这时会发现响应速度越来越慢，甚至发生响应超时的错误

 

 

为了解决这种大数据量请求的问题，出现了分页机制

 

分页机制有两种：

 

1、SD执行数据检索，然后将检索结果直接发送给SW，由SW进行分页，然后将指定页的数据发送给C

 

这种分页机制在以SQL Server为数据库的应用中是很常见的

 

优点是使用简单，主要是利用ADO的PageSize和AbsolutePage两个属性，SW仅向C返回指定页数的数据，数据量减少了，响应速度有所提高

 

缺点很明显，每次请求时，都要从SD返回全部符合的数据，从数据传输、SW的处理时间上都还存在很大的浪费，虽然SW向C的返回数据进行了分页处理，但SD到SW的数据还未进行分页

 

2、SD执行数据检索，并对检索结果进行分页，然后将指定页的数据发送给SW，SW将接收到的数据直接发送给C

 

可以看到，这种方式从SD开始就进行了分页处理，将不是当前页的数据直接过滤掉，仅将剩下的数据发送给SW

 

这样在数据传输上，在SW的数据处理速度上都会有大幅度的提高

 

这种方式无法使用ADO处理，因为ADO没有办法告诉SQL Server仅返回指定行的数据，只能都返回之后再处理

 

在这点上，JDBC就强悍得多，它可以将指定的行数和SQL请求一并发送给SQL Server，这样只返回分页后的数据，JDBC的原理还不清楚，但在实际使用中，速度还是非常快的，使用JDBC的分页方法很简单，不在本文的讨论范围之内

 

如果没办法使用JDBC，最常用的方法就是存储过程了！

 

 

我在写这个分页存储之前，参考了网上的大量相关文章，可以通过关键字：SQL Server 分页 进行搜索

 

他们主要都是利用SQL中的Top方法，并且对所检索的数据结构要求有标识列，如果没有标识列，或者是联合主键，那么就会非常麻烦了。而且对应用里原有的SQL检索部分需要修改的地方较多，工作量较大。

 

因此，我在写这个存储之前就要求一定要对原有的SQL脚本最大程度的兼容

 

经过一个下午的时间，和我一个同事（绝对是高手）的共同努力下，摸索出了以下的思路：

 

1、确定存储的输入参数：

 

1）SQL脚本，该参数接收完整的、正确的SQL检索文本，可将原应用中写好的SQL脚本直接传入

2）每页的数据容量，就是一页有多少条数据

3）当前页码

 

2、确定分页机制：

 

1）执行传入的SQL脚本，并将结果生成临时表

2）修改临时表的结构，增加标识列字段

3）根据标识列字段，计算出指定页码内的记录范围，并返回

4）返回总数据条数，用于客户端进行分页显示

 

根据以上的思路，编写出以下通用的分页存储过程：

 

--// ============================ --// SQL Server通用分页存储过程 --// Author : netwild --// date : 2010/07/22 --// Email : netwild@163.com --// QQ : 52100641（网无忌） --// ============================ SET QUOTED_IDENTIFIER ON GO SET ANSI_NULLS ON GO CREATE PROC execByPage @sqlQuery varchar(2000), --//输入参数：SQL检索语句或表名 @pageSize int, --//输入参数：每页显示记录条数 @pageIndex int --//输入参数：当前页码 AS SET NOCOUNT ON SET ANSI_WARNINGS OFF declare @tmpTableName varchar(50) set @tmpTableName = '##TB1516_' + replace(cast(newid() as varchar(40)),'-','') --//生成随机临时表名称 declare @subIndex int set @subIndex = charindex('from',@sqlQuery) if (@subIndex > 0) begin --//带FROM的标准检索语句 declare @sqlQuery1 varchar(2000) declare @sqlQuery2 varchar(2000) set @sqlQuery1 = substring(@sqlQuery,1,@subIndex - 1) set @sqlQuery2 = substring(@sqlQuery,@subIndex,len(@sqlQuery)) set @sqlQuery = @sqlQuery1 + ',IDENTITY(numeric,1,1) as ID1516 into ' + @tmpTableName + ' ' + @sqlQuery2 end else --//不带FROM的表名 begin set @sqlQuery = 'select *,IDENTITY(numeric,1,1) as ID1516 into ' + @tmpTableName + ' from' + @sqlQuery end exec(@sqlQuery) --//建立并初始化临时表数据 declare @indexStart varchar(20),@indexEnd varchar(20) set @indexStart = cast((@pageIndex-1)*@pageSize+1 as varchar(20)) --//数据起始行ID set @indexEnd = cast(@pageIndex * @pageSize as varchar(20)) --//数据结束行ID exec('select * from ' + @tmpTableName + ' where ID1516 between ' + @indexStart + ' and ' + @indexEnd) --//检索该页数据 exec('select max(ID1516) as recordCount from ' + @tmpTableName) --//提取总条数 exec('drop table ' + @tmpTableName) --//删除临时表 GO SET QUOTED_IDENTIFIER OFF GO SET ANSI_NULLS ON GO

 

 

举个在ASP下使用的例子：

 

<%@codepage="65001" language="VBScript"%> <%Option Explicit%> <!--#include file="adovbs.inc"--> <!--#include file="conn.asp"--> <% response.expires = 0 response.charSet = "UTF-8" session.codepage = "65001" 'by netwild Dim cmd, sql, pageSize, pageIndex sql = "select * from userLog" 'SQL脚本 pageSize = 50 '每页显示50条数据 pageIndex = 2 '当前显示第二页 '========================================================================================== set cmd=server.createobject("adodb.command") cmd.ActiveConnection = conn cmd.commandtext="execByPage" cmd.CommandType = AdCmdStoredProc cmd.Prepared = True cmd.Parameters.append cmd.CreateParameter("@sqlQuery ",adVarChar,adParamInput,2000,sql) cmd.Parameters.append cmd.CreateParameter("@pageSize ",adInteger,adParamInput,4,pageSize) cmd.Parameters.append cmd.CreateParameter("@pageIndex ",adInteger,adParamInput,4,pageIndex) set rs=cmd.execute '========================================================================================== Do Until rs.eof response.write rs(0) & ":" & rs(1) & "<br/>" rs.movenext Loop Set rs = rs.nextRecordSet response.write "总记录数：" & rs(0) rs.close Set rs = Nothing %>