asp单主键高效通用分页存储过程
作者：nz.perfectaction 来源：nz.perfectaction博客 发布时间：2009-02-23 19:21:00
Create PROC P_viewPage
/*
nzperfect [no_mIss] 高效通用分页存储过程(双向检索) 2007.5.7 QQ:34813284
敬告：适用于单一主键或存在唯一值列的表或视图
ps:Sql语句为8000字节,调用时请注意传入参数及sql总长度不要超过指定范围
*/
@TableName VARCHAR(200), --表名
@FieldList VARCHAR(2000), --显示列名，如果是全部字段则为*
@PrimaryKey VARCHAR(100), --单一主键或唯一值键
@Where VARCHAR(2000), --查询条件 不含'where'字符，如id>10 and len(userid)>9
@Order VARCHAR(1000), --排序 不含'order by'字符，如id asc,userid desc，必须指定asc或desc
--注意当@SortType=3时生效，记住一定要在最后加上主键，否则会让你比较郁闷
@SortType INT, --排序规则 1:正序asc 2:倒序desc 3:多列排序方法
@RecorderCount INT, --记录总数 0:会返回总记录
@PageSize INT, --每页输出的记录数
@PageIndex INT, --当前页数
@TotalCount INT OUTPUT , --记返回总记录
@TotalPageCount INT OUTPUT --返回总页数
AS
SET NOCOUNT ON
IF ISNULL(@TotalCount,'') = '' SET @TotalCount = 0
SET @Order = RTRIM(LTRIM(@Order))
SET @PrimaryKey = RTRIM(LTRIM(@PrimaryKey))
SET @FieldList = REPLACE(RTRIM(LTRIM(@FieldList)),' ','')
WHILE CHARINDEX(', ',@Order) > 0 or CHARINDEX(' ,',@Order) > 0
BEGIN
SET @Order = REPLACE(@Order,', ',',')
SET @Order = REPLACE(@Order,' ,',',')
END
IF ISNULL(@TableName,'') = '' or ISNULL(@FieldList,'') = ''
or ISNULL(@PrimaryKey,'') = ''
or @SortType < 1 or @SortType >3
or @RecorderCount < 0 or @PageSize < 0 or @PageIndex < 0
BEGIN
PRINT('ERR_00')
RETURN
END
IF @SortType = 3
BEGIN
IF (UPPER(RIGHT(@Order,4))!=' ASC' AND UPPER(RIGHT(@Order,5))!=' DESC')
BEGIN PRINT('ERR_02') RETURN END
END
DECLARE @new_where1 VARCHAR(1000)
DECLARE @new_where2 VARCHAR(1000)
DECLARE @new_order1 VARCHAR(1000)
DECLARE @new_order2 VARCHAR(1000)
DECLARE @new_order3 VARCHAR(1000)
DECLARE @Sql VARCHAR(8000)
DECLARE @SqlCount NVARCHAR(4000)
IF ISNULL(@where,'') = ''
BEGIN
SET @new_where1 = ' '
SET @new_where2 = ' Where '
END
ELSE
BEGIN
SET @new_where1 = ' Where ' + @where
SET @new_where2 = ' Where ' + @where + ' AND '
END
IF ISNULL(@order,'') = '' or @SortType = 1 or @SortType = 2
BEGIN
IF @SortType = 1
BEGIN
SET @new_order1 = ' orDER BY ' + @PrimaryKey + ' ASC'
SET @new_order2 = ' orDER BY ' + @PrimaryKey + ' DESC'
END
IF @SortType = 2
BEGIN
SET @new_order1 = ' orDER BY ' + @PrimaryKey + ' DESC'
SET @new_order2 = ' orDER BY ' + @PrimaryKey + ' ASC'
END
END
ELSE
BEGIN
SET @new_order1 = ' orDER BY ' + @Order
END
IF @SortType = 3 AND CHARINDEX(','+@PrimaryKey+' ',','+@Order)>0
BEGIN
SET @new_order1 = ' orDER BY ' + @Order
SET @new_order2 = @Order + ','
SET @new_order2 = REPLACE(REPLACE(@new_order2,'ASC,','{ASC},'),'DESC,','{DESC},')
SET @new_order2 = REPLACE(REPLACE(@new_order2,'{ASC},','DESC,'),'{DESC},','ASC,')
SET @new_order2 = ' orDER BY ' + SUBSTRING(@new_order2,1,LEN(@new_order2)-1)
IF @FieldList <> '*'
BEGIN
SET @new_order3 = REPLACE(REPLACE(@Order + ',','ASC,',','),'DESC,',',')
SET @FieldList = ',' + @FieldList
WHILE CHARINDEX(',',@new_order3)>0
BEGIN
IF CHARINDEX(SUBSTRING(','+@new_order3,1,CHARINDEX(',',@new_order3)),','+@FieldList+',')>0
BEGIN
SET @FieldList =
@FieldList + ',' + SUBSTRING(@new_order3,1,CHARINDEX(',',@new_order3))
END
SET @new_order3 =
SUBSTRING(@new_order3,CHARINDEX(',',@new_order3)+1,LEN(@new_order3))
END
SET @FieldList = SUBSTRING(@FieldList,2,LEN(@FieldList))
END
END
SET @SqlCount = 'Select @TotalCount=COUNT(*),@TotalPageCount=CEILING((COUNT(*)+0.0)/'
+ CAST(@PageSize AS VARCHAR)+') FROM (Select * FROM ' + @TableName + @new_where1+') AS T'
IF @RecorderCount = 0
BEGIN
EXEC SP_EXECUTESQL @SqlCount,N'@TotalCount INT OUTPUT,@TotalPageCount INT OUTPUT',
@TotalCount OUTPUT,@TotalPageCount OUTPUT
END
ELSE
BEGIN
Select @TotalCount = @RecorderCount
END
IF @PageIndex > CEILING((@TotalCount+0.0)/@PageSize)
BEGIN
SET @PageIndex = CEILING((@TotalCount+0.0)/@PageSize)
END
IF @PageIndex = 1 or @PageIndex >= CEILING((@TotalCount+0.0)/@PageSize)
BEGIN
IF @PageIndex = 1 --返回第一页数据
BEGIN
SET @Sql = 'Select * FROM (Select TOP ' + STR(@PageSize) + ' ' + @FieldList + ' FROM '
+ @TableName + @new_where1 + @new_order1 +') AS TMP ' + @new_order1
END
IF @PageIndex >= CEILING((@TotalCount+0.0)/@PageSize) --返回最后一页数据
BEGIN
SET @Sql = 'Select TOP ' + STR(@PageSize) + ' ' + @FieldList + ' FROM ('
+ 'Select TOP ' + STR(ABS(@PageSize*@PageIndex-@TotalCount-@PageSize))
+ ' ' + @FieldList + ' FROM '
+ @TableName + @new_where1 + @new_order2 + ' ) AS TMP '
+ @new_order1
END
END
ELSE
BEGIN
IF @SortType = 1 --仅主键正序排序
BEGIN
IF @PageIndex <= CEILING((@TotalCount+0.0)/@PageSize)/2 --正向检索
BEGIN
SET @Sql = 'Select TOP ' + STR(@PageSize) + ' ' + @FieldList + ' FROM '
+ @TableName + @new_where2 + @PrimaryKey + ' > '
+ '(Select MAX(' + @PrimaryKey + ') FROM (Select TOP '
+ STR(@PageSize*(@PageIndex-1)) + ' ' + @PrimaryKey
+ ' FROM ' + @TableName
+ @new_where1 + @new_order1 +' ) AS TMP) '+ @new_order1
END
ELSE --反向检索
BEGIN
SET @Sql = 'Select TOP ' + STR(@PageSize) + ' ' + @FieldList + ' FROM ('
+ 'Select TOP ' + STR(@PageSize) + ' '
+ @FieldList + ' FROM '
+ @TableName + @new_where2 + @PrimaryKey + ' < '
+ '(Select MIN(' + @PrimaryKey + ') FROM (Select TOP '
+ STR(@TotalCount-@PageSize*@PageIndex) + ' ' + @PrimaryKey
+ ' FROM ' + @TableName
+ @new_where1 + @new_order2 +' ) AS TMP) '+ @new_order2
+ ' ) AS TMP ' + @new_order1
END
END
IF @SortType = 2 --仅主键反序排序
BEGIN
IF @PageIndex <= CEILING((@TotalCount+0.0)/@PageSize)/2 --正向检索
BEGIN
SET @Sql = 'Select TOP ' + STR(@PageSize) + ' ' + @FieldList + ' FROM '
+ @TableName + @new_where2 + @PrimaryKey + ' < '
+ '(Select MIN(' + @PrimaryKey + ') FROM (Select TOP '
+ STR(@PageSize*(@PageIndex-1)) + ' ' + @PrimaryKey
+' FROM '+ @TableName
+ @new_where1 + @new_order1 + ') AS TMP) '+ @new_order1
END
ELSE --反向检索
BEGIN
SET @Sql = 'Select TOP ' + STR(@PageSize) + ' ' + @FieldList + ' FROM ('
+ 'Select TOP ' + STR(@PageSize) + ' '
+ @FieldList + ' FROM '
+ @TableName + @new_where2 + @PrimaryKey + ' > '
+ '(Select MAX(' + @PrimaryKey + ') FROM (Select TOP '
+ STR(@TotalCount-@PageSize*@PageIndex) + ' ' + @PrimaryKey
+ ' FROM ' + @TableName
+ @new_where1 + @new_order2 +' ) AS TMP) '+ @new_order2
+ ' ) AS TMP ' + @new_order1
END
END
IF @SortType = 3 --多列排序，必须包含主键，且放置最后，否则不处理
BEGIN
IF CHARINDEX(',' + @PrimaryKey + ' ',',' + @Order) = 0
BEGIN PRINT('ERR_02') RETURN END
IF @PageIndex <= CEILING((@TotalCount+0.0)/@PageSize)/2 --正向检索
BEGIN
SET @Sql = 'Select TOP ' + STR(@PageSize) + ' ' + @FieldList + ' FROM ( '
+ 'Select TOP ' + STR(@PageSize) + ' ' + @FieldList + ' FROM ( '
+ ' Select TOP ' + STR(@PageSize*@PageIndex) + ' ' + @FieldList
+ ' FROM ' + @TableName + @new_where1 + @new_order1 + ' ) AS TMP '
+ @new_order2 + ' ) AS TMP ' + @new_order1
END
ELSE --反向检索
BEGIN
SET @Sql = 'Select TOP ' + STR(@PageSize) + ' ' + @FieldList + ' FROM ( '
+ 'Select TOP ' + STR(@PageSize) + ' ' + @FieldList + ' FROM ( '
+ ' Select TOP ' + STR(@TotalCount-@PageSize *@PageIndex+@PageSize) + ' ' + @FieldList
+ ' FROM ' + @TableName + @new_where1 + @new_order2 + ' ) AS TMP '
+ @new_order1 + ' ) AS TMP ' + @new_order1
END
END
END
PRINT(@SQL)
EXEC(@Sql)
----------------------------------------------------------------------------------------------
----------------------------------------------------------------------------------------------
sql测试:
--测试数据
--select count(*) from T_TEST
Create TABLE T_TEST(ID INT IDENTITY(1,1) PRIMARY KEY,CLASS_A VARCHAR(50),CLASS_B VARCHAR(50),ADD_DT DATETIME)
DECLARE @I INT
Select @I = 1
WHILE @I < = 999998
BEGIN
Insert INTO T_TEST(CLASS_A,CLASS_B,ADD_DT)
Select CASE @I％2 WHEN 0 THEN 'CLASS_A' + CAST(@I AS VARCHAR) ELSE CAST(@I AS VARCHAR) END,
CASE @I％5 WHEN 0 THEN 'CLASS_B' + CAST(@I AS VARCHAR) ELSE CAST(@I AS VARCHAR) END, GETDATE()
Select @I = @I + 1
END
Create INDEX _INDEX ON T_TEST(add_dt,id)
使用： 以多列排序为例
第一页查询，
第一页取出总记录和总页数，以后就不要从数据库里取了
DECLARE @T1 DATETIME,@T2 DATETIME
DECLARE @A INT,@B INT
Select @T1 = GETDATE()
EXEC P_viewPage 'T_TEST','ID,ADD_DT','id','','add_dt asc,id asc',3,0,10,1,@A out,@B out
Select @T2 = GETDATE()
Select CAST(DATEDIFF(ms,@T1,@T2) AS VARCHAR)+'ms'
Select @A,@B
其它页(如第1161页)：
DECLARE @T1 DATETIME,@T2 DATETIME
DECLARE @A INT,@B INT
Select @T1 = GETDATE()
EXEC P_viewPage 'T_TEST','ID,ADD_DT','id','','add_dt asc,id asc',3,999998,10,1161,null,null
Select @T2 = GETDATE()
Select CAST(DATEDIFF(ms,@T1,@T2) AS VARCHAR)+'ms'
--Select @A,@B
--------------------------------------------------------------------------------------------------
asp调用简单例子:
<％ Option Explicit％>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<style>
body{
font-family: "宋体";
font-size: 9pt;
text-decoration: none;
line-height: 150％;
margin: 0px;
background-color: #A8C2F9;
}
a:link { color: #000000; text-decoration: none}
a:visited { color: #000000; text-decoration: none}
a:hover { color: #3333ff; text-decoration: none}
</style>
</head>
<body>
<％
Dim strDbConn , Conn
strDBConn = "Provider=SQLOLEDB.1;Password=xxxxxxxxxx;Persist Security Info=True; " & _
"User ID=sa;Initial Catalog=DB_xxx;Data Source=RDG_NZ"
Set Conn = Server.CreateObject("ADODB.Connection")
Dim startime
startime=timer()
Function PageView(pagecount,pagesize,page,recordercount)
'pagecount 总页数
'pagesize 每页显示数量
'page 当前是第几页
'recordercount 总记录数量
'get方式传值： pagecount:总页数 recordercount:总记录数量
pagecount = Clng(pagecount)
pagesize = Clng(pagesize)
page = Clng(page)
recordercount = Clng(recordercount)
Dim query, a, x, temp ,action
action = "http://" & Request.ServerVariables("HTTP_HOST") _
& Request.ServerVariables("SCRIPT_NAME")
query = Split(Request.ServerVariables("QUERY_STRING"), "&")
For Each x In query
a = Split(x, "=")
If StrComp(a(0), "page", vbTextCompare) <> 0 and _
StrComp(a(0), "pagecount", vbTextCompare) <> 0 _
and StrComp(a(0), "recordercount", vbTextCompare) <> 0 Then
temp = temp & a(0) & "=" & a(1) & "&"
End If
Next
PageView = "<form method=get onsubmit=""document.location = '" _
& action & "?" & temp & "Page='+this.page.value;return false;"">"
If page<=1 then
PageView = PageView & "[首页] [上一页] "
Else
PageView = PageView & "[<a href=" & action & "?" & temp & "Page=1>首页</a>] "
PageView = PageView & "[<a href=" & action & "?" & temp & "Page=" & (Page-1) & _
"&pagecount="& pagecount &"&recordercount="& recordercount &">上一页</a>] "
End If
If page>=pagecount then
PageView = PageView & "[下一页] [尾页] "
Else
 , ; PageView = PageView & "[<a href=" & action & "?" & temp & "Page=" & (Page+1) & _
"&pagecount="& pagecount &"&recordercount="& recordercount &">下一页</a>] "
PageView = PageView & "[<a href=" & action & "?" & temp & "Page="& pagecount & _
"&pagecount="& pagecount &"&recordercount="& recordercount &">尾页</a>] "
End If
PageView = PageView & "[页次:<font color=red>" & page & "</font>/" & pageCount
PageView = PageView & "] [共" & recordercount & "条 <font color=red>"& pagesize & _
"</font>条/页]"
PageView = PageView & " 转到" & "<input name=page size=4 value=" & page & _
">" & "页<input type=submit value=go></form>"
End Function
Dim TableName '表名
Dim FieldList '显示列名，如果是全部字段则为*
Dim PrimaryKey '单一主键或唯一值键
Dim Where '查询条件 不含'where'字符，如id>10 and len(userid)>9
Dim order '排 序 不含'order by'字符，如id asc,userid desc，必须指定asc或desc
'注意当Dim SortType=3时生效，记住一定要在最后加上主键，否则会让你比较郁闷
Dim SortType '排序规则 1:正序asc 2:倒序desc 3:多列排序方法
Dim RecorderCount '记录总数 0:会返回总记录
Dim PageSize '每页输出的记录数
Dim PageIndex '当前页数
Dim TotalCount '记返回总记录
Dim TotalPageCount '记返回总页数
TableName = "T_TEST"
FieldList = "*"
PrimaryKey = "id"
Where = "id>"& request("id")
order = "id asc"
SortType = "1"
If Request("recordercount")="" Then
RecorderCount = "0"
Else
RecorderCount = Request("recordercount")
End If
PageSize = "10"
If Request("page")="" Then
PageIndex = "1"
Else
PageIndex = Request("page")
End If
TotalCount = RecorderCount
If Request("pagecount")="" Then
TotalPageCount = "1"
Else
TotalPageCount = Request("pagecount")
End If
Dim Cmd ,rs
Set Cmd = Server.CreateObject("ADODB.Command")
Set Rs = Server.CreateObject("ADODB.Recordset")
Conn.Open strDBConn
With Cmd
.CommandText = "P_viewPage"
.CommandType = 4
.CommandTimeout = 0
.ActiveConnection = Conn
.Parameters.Append .CreateParameter("@TableName",200,1,200,TableName)
.Parameters.Append .CreateParameter("@FieldList",200,1,2000,FieldList)
.Parameters.Append .CreateParameter("@PrimaryKey",200,1,100,PrimaryKey)
.Parameters.Append .CreateParameter("@Where",200,1,2000,Where)
.Parameters.Append .CreateParameter("@Order",200,1,1000,Order)
.Parameters.Append .CreateParameter("@SortType",3,1,,SortType)
.Parameters.Append .CreateParameter("@RecorderCount",3,1,,RecorderCount)
.Parameters.Append .CreateParameter("@PageSize",3,1,,PageSize)
.Parameters.Append .CreateParameter("@PageIndex",3,1,,PageIndex)
.Parameters.Append .CreateParameter("@TotalCount",3,3,,TotalCount)
.Parameters.Append .CreateParameter("@TotalPageCount",3,3,,TotalPageCount)
Set rs = .Execute
If Not rs.Eof Then
while not rs.Eof
Rem 输出你的记录集内容
Response.Write rs(0) & " || " & rs(1) & "<br>"
rs.MoveNext
wend
End If
rs.Close
TotalCount = .Parameters("@TotalCount")
TotalPageCount = .Parameters("@TotalPageCount")
End With
Set Rs = Nothing
Set Cmd = Nothing
Conn.Close
Set Conn = Nothing
Response.write PageView(TotalPageCount,pagesize,PageIndex,TotalCount)
Dim endtime
endtime=timer()
％>
<br>页面执行时间：<％=FormatNumber((endtime-startime)*1000,3)％>毫秒
</body>
</html>
0
投稿猜你喜欢
- 从BbsXp提出来的生肖函数Zodiac(birthday)。使用方法：birthday为把要判断的出生时间，如2008-3-24 20:0
- 在进行CSS网页布局开发时，您肯定遇到过形形色色的布局问题，虽然有大量的教程提供帮助，但最后可能被搞得焦头烂额。本文的目的是让您的设计过程更
- 问题： 1.购物车中的数据是否应该存储在数据库中？ 我特别想知道在真正的项目中，那些真正的软件工程师是如何考虑这个问题的。在Google上一
- 看那个自由落体div有感。这个没落体，画个圆。(ie only)<html><head><style>v
- 一个小代码 类似资源管理器效果 支持鼠标拖拽 没写些细节东西 JavaScript语言:
- 用途：图片经常使用onload来改变宽度，但这样会出现图片的闪烁，这个简单的类就是用来解决这个问题的。函数loadImage，用来加载图片，
- 关于本文：本着互联网共享主义精神，特写此文献给建站新手，授人以鱼，不如授人以渔，本文所讲的只是方法和原理，希望大家看完此文，能够从中得到些帮
- 我页面上有控制了只能输入数字的控件，禁止了输入法切换的，但是搜狗的云输入却控制不了，有没有办法在页面里面禁止它运行啊？发现这玩意儿真的很讨厌
今天把博客的日历脚本又改了一改，就帖上了，以后找起来方便一点，同时也给需要的人带来方便，本来还想加点功能再帖上来，不过我看还是没必要了，帖的- 在设计网页时，经常遇到某些页面需限权访问的情况。比如，一个公司的某些产品只让某一或某些供应商或客户浏览。那么，我们如何实现这一功能呢？本文，
- 以下列出了两种数据库的方法：ASP+Access20001.要获取的ID值字段属性必须设为：自动编号(我们假设字段名为recordID)2.
- ASP中RegExp是什么 '名字字符检验Public Function CheckName(Str) &nbs
- 内容摘要：“ASP”(Active Server Pages)作为一种典型的服务器端网页设计技术，被广泛地应用在网上银行
- 使用在Safari和WebKit中可用的CSS高级特性，你可以为你的网站和网络应用带来一个新的级别的令人兴奋的东西。WebKit是Safar
- 最好的方法： 先说一下基本的东西： <％@ codepage=65001％>UTF-8 <％@&nbs
- 一、css样式表滤镜的构成 滤镜作为样式表大家庭中的一员，它跟其他样式表元素的定义和应用方式当然是一样的，能够直接定义在HTML标识的<
- 这是官方对SubFolders的介绍：返回由指定文件夹中所有子文件夹（包括隐藏文件夹和系统文件夹）组成的 Folders 集合。object
- 这次讨论一下关于select元素的一个问题，其实很早以前我就碰到过关于select元素的问题，这次做网站又被问到同样的问题，就是：一般div
- Dreamweaver（以下简称DW）提供了一种称为“Behavior”（行为）的机制，帮助你构建页面
- 数据库（database）MySQL 是最流行的开源数据库系统，可运行于几乎所有的操作系统平台。在《MySQL 安装》一文中详解介绍了安装步
