Sql Server 通用分页

/**/ /*  
过程说明：简单分页程序（要么分页，要么统计）  
编 写 人：
编写时间：
*/   
CREATE   PROCEDURE  Page  
@tblName   varchar ( 255 ),  --  表名  
@fldName   varchar ( 255 ),  --  字段名  
@PageSize   int   =   10 ,  --  页尺寸  
@PageIndex   int   =   1 ,  --  页码  
@IsCount   bit   =   0 ,  --  返回记录总数, 非 0 值则返回  
@OrderType   bit   =   0 ,  --  设置排序类型, 非 0 值则降序  
@strWhere   varchar ( 1000 )  =   ''  ,  --  查询条件 (注意: 不要加 where)  
@FieldsList   varchar ( 255 )  --  字段列表(要选出的字段)  
AS   
 
declare   @strSQL   varchar ( 1000 ),  --  主语句  
@strTmp   varchar ( 300 ),  --  临时变量  
@strOrder   varchar ( 400 )  --  排序类型  
set   @strTmp   =   ''   
set   @strOrder   =   ''   
 
-- 只统计总记录数  
if   @IsCount   !=   0   
begin   
if   @strWhere   !=   ''   
set   @strTmp   =  "  where  ("  +   @strWhere   +  ")"  
set   @strSQL   =  " select   count ( * )  as  Total  from   [ " + @tblName + " ] "  +   @strTmp   
end   
-- 不统计总记录,分页(查询表中所有记录)  
else   
begin   
-- 如果是第一页  
if   @PageIndex   =   1   
begin   
-- 排序  
if   @OrderType   !=   0   
set   @strOrder   =  "  order   by   [ " + @fldName +" ]   desc "  
else   
set   @strOrder   =  "  order   by   [ " + @fldName +" ]   asc "  
-- 条件  
if   @strWhere   !=   ''   
set   @strTmp   =  "  where  ("  +   @strWhere   +  ")"  
 
set   @strSQL   =  " select   top  "  +   str ( @PageSize )  +  " "  + @FieldsList   +  "  from   [ "  
+ @tblName + " ] "  +   @strTmp   +  " "  +   @strOrder   
end   
-- 如果不是第一页  
else   
begin   
-- 排序  
if   @OrderType   !=   0   
begin   
set   @strTmp   =  " < ( select   min "  
set   @strOrder   =  "  order   by   [ " + @fldName +" ]   desc "  
end   
else   
begin   
set   @strTmp   =  " > ( select   max "  
set   @strOrder   =  "  order   by   [ " + @fldName +" ]   asc "  
end   
set   @strSQL   =  " select   top  "  +   str ( @PageSize )  +  " "  +   @FieldsList   +  "  from   [ "  
+ @tblName + " ]   where   [ " + @fldName + " ] "  +   @strTmp   +  "( [ "  
+ @fldName + " ] )  from  ( select   top  "  +   str (( @PageIndex - 1 ) * @PageSize )  +  "  [ "  
+ @fldName + " ]   from   [ " + @tblName + " ] "  +   @strOrder   +  ")  as  tblTmp)"  
+   @strOrder   
-- 条件  
if   @strWhere   !=   ''   
set   @strSQL   =  " select   top  "  +   str ( @PageSize )  +  " "  +   @FieldsList   +  "  from   [ "  
+ @tblName + " ]   where   [ " + @fldName + " ] "  +   @strTmp   +  "( [ "  
+ @fldName + " ] )  from  ( select   top  "  +   str (( @PageIndex - 1 ) * @PageSize )  +  "  [ "  
+ @fldName + " ]   from   [ " + @tblName + " ]   where  ("  +   @strWhere   +  ") "  
+   @strOrder   +  ")  as  tblTmp)  and  ("  +   @strWhere   +  ") "  +   @strOrder   
end   
end   
exec  ( @strSQL )