sqlserver2000分页存储过程(原创)

刚刚用了博客园,感觉这里的气氛真的很好,发布这几天写的一个分页存储过程,请dudu多多关照,请各位大牛指正.
功能：海量优化，支持任何字段排序，可支持随机取数据，导出所有数据功能，用了id（整型）比较方法
问题:
1.这里面运用到了临时表变量和临时表，在使用这个的时候也没感觉用临时表变量快，不知道是什么原因，请各位大虾分析一下.
2.尾页数据优化，折半式的方式，不过只用了一次折半，多次的话好像行不通，不知道是不是其它好方法，
3.数据量小的时候采用临时表，当超过@RSCOUNT所指定数时采用临时表
4.这里面临时表和临时表变量的使用是在不是主键排序时采用的，因为非主键排序时通常是可能存在重复
5.如果表中用guid的话好像很麻烦，在想是不是不用id比较的方法采用in的方法，目前guid这个还没考虑进去
6.可由用户定制是否返回记录总数(当非主键排序时一定需要这个返回值的)
7.考虑到注入这问题的话,我想一般是在程序里面的自动去掉一些特殊的字符的,这里面就没考虑这个是不是可以注入的,请大家看一看是不是可以注入的

以下是代码：

------------------------------------------------------------------------------------------------------------------------
-- Function: 返回记录集
-- Date Created: 2007年7月14日
-- Created By:   sjf shijf1984@gmail.com http://netcorner.cnblogs.com/
--last update:2007.11.16
--declare @intReturn int
--exec USP_Pagination 'test','*','id',10,99998,0,'id','',0,1,@intReturn output
------------------------------------------------------------------------------------------------------------------------
-- 获取指定页的数据
CREATE PROCEDURE USP_Pagination
@tblName varchar(255), -- 表名
@strGetFields varchar(500) = '*', -- 需要返回的列
@fldName varchar(255)='', -- 排序的字段名
@PageSize int = 10, -- 页显示记录数
@PageIndex int = 1, -- 页码
@OrderType bit = 0, -- 设置排序类型, 非 0 值则降序
@tblPk varchar(100)='id',--表的主键字段(可省略)
@strWhere varchar(1000) = '',-- 查询条件 (注意: 不要加 where)
@intRand int=0,--是否需要随机显示数据,只适合第一页的情况，0表示不需要
@intReturnState int=1,--是否需要返回值,1为需要
@Result int output  --返回页数值
AS
set nocount on
if(@PageIndex<1) return
declare @strSQL nvarchar(4000) -- 主语句
declare @strCount varchar(4000) --统计
declare @strTmp varchar(100) -- 临时变量
declare @strTmp1 varchar(100) --临时
declare @strOrder varchar(200) -- 排序类型
declare @strOrder1 varchar(200) --排序折半处理
declare @RSCOUNT int --多少条记录时用临时表变量
set @RSCOUNT=100000 --临时表可能需要开销 4*4*100000 byte
declare @RSFOOTER int --记录尾部超过时处理开关
set @RSFOOTER=1000
set @strCount=""
declare @strWhere1 varchar(1000) --条件多个连接情况使用
set @strWhere1=""
if @strWhere != ''
begin
 set @strWhere1=" and ("+@strWhere+")"
 set @strWhere=" where "+@strWhere+" "
end
if @intReturnState=1
 set @strCount="select @intTotal=count(*) from  " +@tblName+@strWhere+"; "
if @OrderType != 0 --排序类型
begin
 set @strTmp = "<(select min"
 set @strTmp1 = "<=(select max"
 set @strOrder = " order by " + @fldName +" desc"
 set @strOrder1 = " order by " + @fldName +" asc"
  --如果@OrderType不是0，就执行降序，这句很重要！
end
else
begin
 set @strTmp = ">(select max"
 set @strTmp1 = ">=(select min"
 set @strOrder = " order by " + @fldName +" asc"
 set @strOrder1 = " order by " + @fldName +" desc"
end
if @PageIndex = 1  --第一页的处理,如果是第一页就执行以上代码，这样会加快执行速度
begin
 declare @top nvarchar(100)
 if(@PageSize<1)
  set @top=" "
 else
  set @top=" top " + str(@PageSize) +" "
 if(@intRand=0) --是否需要随便产生
  set @strSQL = "select " + @top +@strGetFields+ " from " + @tblName + @strWhere + " " + @strOrder
 else
 begin
  set @strSQL="select " + @top + @strGetFields+ " from " + @tblName + @strWhere + " order by newid()"
 end
 set @strSQL=@strCount+@strSQL
end
else --其它页的处理
begin
 if @fldName!=@tblPk --非主键排序创建临时表或临时表变量
 begin
  declare @strTmptbl char(10);
  set @strTmptbl="temptable"
  if(@PageSize*@PageIndex>@RSCOUNT) --记录数大于@RSCOUNT时采用临时表处理否则就用表变量
  begin
   set @strTmptbl="#temptable"
   set @strSQL="select top "+str(@PageSize*@PageIndex)+" newid = cast("+@tblPk+" AS int),tempid = IDENTITY (int, 1, 1) INTO "+@strTmptbl+" FROM "+ @tblName + @strWhere + @strOrder +";"
  end
  else
  begin
   set @strTmptbl="@tmpTable"
   set @strSQL="DECLARE "+@strTmptbl+" TABLE([newid] [int] NOT NULL,[tempid] [int] IDENTITY (1, 1) NOT NULL); "+
   "INSERT into "+@strTmptbl+"([newid]) select  top "+str(@PageSize*@PageIndex)+" "+@tblPk+" FROM "+ @tblName + @strWhere + @strOrder +";"
  end
  set @strSQL=@strCount
  +@strSQL+"select top "+str(@PageSize)+" "+@strGetFields+" from "+@tblName+" where [" +@tblPk+"]  in(SELECT  [newid] FROM "+@strTmptbl+" WHERE (tempid >"+str(@PageSize*(@PageIndex-1))+")) "
 end
 else
 begin
  if(@strCount!="")
   set @strCount=@strCount
   +"declare @t int; "
   +" set @t="+str(@PageSize*(@PageIndex-1))+";"
   +" if(@t>@intTotal/2 and @intTotal>"+str(@RSFOOTER)+")"
   +" begin "
   +"set @t=@intTotal-@t; "
   +"if(@t<1) "
   +"begin "
   +"set @intTotal=0; "
   +"return; "
   +"end "
   +" exec('select top " + str(@PageSize)+" "+@strGetFields+"  from "+@tblName+" where ["+@fldName+"] "+@strTmp1+"(["+@fldName+"]) from (select top '+@t+' "+@fldName+" from "+@tblName+" "+replace(@strWhere,"'","''")+@strOrder1+") as t1)"+replace(@strWhere1,"'","''")+" "+@strOrder+"');"
   +" end "
   +" else "
  set @strSQL =@strCount
  +"select top " + str(@PageSize) +" "+@strGetFields+ " from ["
  + @tblName + "] where [" + @fldName + "]" + @strTmp + "(["
  + @fldName + "]) from (select top " + str((@PageIndex-1)*@PageSize) + " ["
  + @fldName + "] from [" + @tblName + "]  " + @strWhere + " "
  + @strOrder + ") as tblTmp)  "+@strWhere1+@strOrder
 end
end
print @strSQL
if @intReturnState=1
 exec  sp_executesql @strSQL,N'@intTotal int output',@Result output
else
 exec (@strSQL)
GO