SQL Server 2000的分页存储过程的改写

　　今天我们要和大家一起讨论的是在实际操作中  。由于工作需要我们要自己对一个SQL Server 2000的分页存储过程进行改写的实际操作流程，以及对其优点与缺点的介绍，下面就是正文的主要内容描述  。

　　优点如下，简单，直接sql语句输入，高效，效率很高测试过了，不过最好是主键排序，还有少用视图   。

　　缺点也有，不支持复杂的sql语句，不能多字段排序，sql语句必须小于4000字符

　　/*

　　经测试，在 14483461 条记录中查询第 100000 页，每页 10 条记录按升序和降序第一次时间均为 0.47 秒，第二次时间均为 0.43 秒，测试语法如下：

　　exec GetRecordFromPage news,newsid,10,100000

　　news 为 表名, newsid 为关键字段, 使用时请先对 newsid 建立索引  。

　　*/

　　/*

　　函数名称: GetRecordFromPage

　　SQL Server 2000之函数功能: 获取指定页的数据

　　参数说明: @tblName 包含数据的表名

　　@fldName 关键字段名

　　@PageSize 每页记录数

　　@PageIndex 要获取的页码

　　@OrderType 排序类型, 0 - 升序, 1 - 降序

　　@strWhere 查询条件 (注意: 不要加 where)

　　*/

　　CREATE PROCEDURE GetRecordFromPage1

　　@SQL varchar(8000), -- SQL语句

　　@PageSize int = 10, -- 页尺寸

　　@PageIndex int = 1, -- 页码

　　--@strOut varchar(6000) output 输出处理完成的SQL语句

　　@RecordCount int = 0 output -- 输出总记录数

　　AS

　　declare @strSQL varchar(8000) -- 最后获取的SQL语句

　　declare @strTmp varchar(8000) -- 临时变量

　　declare @strOrder varchar(500) -- 排序类型

　　declare @tblName varchar(255) -- 表名

　　declare @fldName varchar(255) -- 字段名

　　declare @strWhere varchar(8000) -- 查询条件 (注意: 不要加 where)

　　declare @tmpOrder varchar(255) -- 排序字符串临时变量

　　declare @strFilds varchar(8000) -- 需要显示的列

　　declare @intFilds int -- 显示的列所在位置

　　declare @intOrder int -- 排序字符串位置

　　declare @intSQL int -- SQL语句长度

　　declare @intWhere int -- where字符串位置

　　declare @intTable int -- 表名称位置

　　declare @strRsSql nvarchar(4000) -- 统计总记录数sql语句

set @intOrder=CharIndex(order by,@SQL)  
set @intSQL=Len(@SQL)  
set @intFilds=CharIndex(select,@SQL)  
set @strFilds=SubString(@SQL,@intFilds+7,@intSQL-@intFilds-1)  
set @strFilds=SubString(@strFilds,1,CharIndex(from,@strFilds)-1)  
set @tblName=SubString(@SQL,CharIndex(from,@SQL)+5,@intSQL-CharIndex(from,@SQL)+5)  
set @intTable=CharIndex( ,@tblName)  
if @intTable>0  
begin  
set @tblName=SubString(@tblName,1,@intTable-1)  
end  
set @intWhere=CharIndex(where ,@SQL)  
if @intWhere>0  
begin  
if @intOrder>0  
begin  
set @strWhere=SubString(@SQL,@intWhere+6,@intOrder-@intWhere-7)  
end  
else  
begin  
set @strWhere=SubString(@SQL,@intWhere+6,@intSQL-@intWhere-5)  
end  
end  
else  
begin  
set @strWhere= 
end  
if @intOrder>0  
begin  
set @strOrder= +SubString(@SQL,@intOrder,@intSQL-@intOrder+1)  
set @tmpOrder=SubString(@strOrder,11,Len(@strOrder)-10)  
if CharIndex( ,@tmpOrder)>0  
begin  
set @fldName=SubString(@tmpOrder,1,CharIndex( ,@tmpOrder)-1)  
end  
else  
begin  
set @fldName=@tmpOrder  
end  
if CharIndex(desc,@SQL)>0  
begin  
set @strTmp=<(select min 
end  
else  
begin  
set @strTmp=>(select max 
end  
end  
else  
begin  
set @fldName=ID 
set @strTmp = >(select max 
set @strOrder =  order by [ + @fldName +] asc  
end  
set @strSQL = select top  + LTrim(str(@PageSize)) +  +@strFilds+ from [  
+ @tblName + ] where [ + @fldName + ] + @strTmp + ([  
+ @fldName + ]) from (select top  + LTrim(str((@PageIndex-1)*@PageSize)) +  [  
+ @fldName + ] from [ + @tblName + ] + @strOrder + ) as tblTmp)  
+ @strOrder  
if @strWhere !=   
set @strSQL = select top  + LTrim(str(@PageSize)) +  +@strFilds+ from [  
+ @tblName + ] where [ + @fldName + ] + @strTmp + ([ + @fldName + ]) from 
　　
(select top  + LTrim(str((@PageIndex-1)*@PageSize)) +  [  
+ @fldName + ] from [ + @tblName + ] where  + @strWhere +    
+ @strOrder + ) as tblTmp) and  + @strWhere +   + @strOrder  
if @PageIndex = 1 
begin  
set @strTmp =  
if @strWhere !=   
set @strTmp =  where ( + @strWhere + )  
set @strSQL = select top  + LTrim(str(@PageSize)) +  +@strFilds+ from [  
+ @tblName + ] + @strTmp +   + @strOrder  
end  
exec (@strSQL)  

　　统计总记录数

if @strWhere!=  
begin  
set @strRsSql=select @RecordCount=count(+@fldName+) from [+@tblName  
+] where (+@strWhere+)  
end  
else  
begin  
set @strRsSql=select @RecordCount=count(+@fldName+) from [+@tblName  
+]  
end  
EXEC sp_executesql @strRsSql,N@RecordCount int out,@RecordCount out   

　　统计结束

--set @strOut=@strSQL  
GO 

　　上述的相关内容就是对自己改写的一个SQL Server 2000的分页存储过程的描述，希望会给你带来一些帮助在此方面  。