asp 存储过程分页代码

　　<!--#include file="conn.asp"-->

　　<!--#include file="Page.asp"-->

　　<%

　　Set My = New Page

　　With My

　　.SetConnstr=Connstr '数据库链接字符串

　　.SetStrTable="users" '表名

　　.SetStrText="id,username,type,names" '查询的字段

　　.SetStrIndex="id" '主键

　　rsArray=.GetRs() '返回数据，类型为数组

　　End With

　　%>

　　<table>

　　<%

　　if IsArray(rsArray) then

　　For i = 0 To UBound(rsArray, 2)

　　%>

　　<tr>

　　<td><%= rsArray(0, i) %></td>

　　<td><%= rsArray(1, i) %></td>

　　<td><%= rsArray(2, i) %></td>

　　</tr>

　　<%

　　next

　　end if

　　%>

　　<tr>

　　<td colspan="4">共<%= My.GetTotalNum %>条 每页<%= My.GetiPageSize %>条 共<%= My.GetTotalPage %>页 页码:<%= My.GetFenYeJmp(false) %></td>

　　</tr>

　　</table>

　　'*******************************************************

　　'Page 分页类

　　'特点：采用 not in 分页输出方法,需配合 sp_Page 存储过程使用，速度比较快

　　'输入参数 connstr:数据库链接字符串 StrTable:要查询的表 StrText:要查询的字段 StrIndex:索引字段

　　'可选参数:(iPageSize:每页记录数量 StrWhere:条件语句 StrOrder:排序字段 StrSc:排序方法 ActionStr:From提交的查询参数)

　　'输出参数 rsArray:返回的记录集数组 GetTotalNum:返回的总记录数 GetiPage:当前页码 GetTotalPage:总页数 GetiPageSize:每页显示条数

　　'输出方法 GetFenYe():分页 GetFenYeJmp(inForm):带跳转的分页

　　'作者：六月雨 QQ:44569457 整理时间:2008年9月27日

　　'*******************************************************

　　Class Page

　　Private connstr '数据库链接字符串

　　Private iPage '当前页码

　　Private iPageSize '每页记录数量

　　Private StrTable '要查询的表

　　Private StrText '要查询的字段

　　Private StrWhere '条件语句

　　Private StrIndex '索引字段

　　Private StrOrder '排序字段

　　Private StrSc '排序方法

　　Private ActionStr '翻页链接字符

　　Private Rs_dbs '记录集名称

　　Private cmd 'cmd对象名称

　　Private rsArray '返回的记录集数组

　　Private TotalNum '返回的总记录数

　　Private Sub Class_Initialize() '初始化类

　　iPageSize=10

　　iPage=trim(Request("iPage"))

　　ActionStr=""

　　StrWhere=""

　　StrOrder=""

　　StrSc=""

　　If (not IsNumeric(iPage)) Then

　　iPage=1

　　Else

　　If iPage<1 then iPage=1

　　If iPage>5000000 then iPage=1

　　End If

　　End Sub

　　Private Sub Class_Terminate() '释放类

　　set Rs_dbs=nothing

　　End Sub

　　Public Property Let SetConnstr(svalue) '取得：数据库链接字符串

　　connstr=Lcase(svalue)

　　End Property

　　Public Property Let SetiPageSize(svalue) '取得：每页记录数量

　　iPageSize=clng(svalue)

　　End Property

　　Public Property Let SetStrTable(svalue) '取得：SQL表名

　　StrTable=Lcase(svalue)

　　End Property

　　Public Property Let SetStrText(svalue) '取得：SQL查询的字段

　　StrText=Lcase(svalue)

　　End Property

　　Public Property Let SetStrWhere(svalue) '取得：SQL条件字段

　　StrWhere=Lcase(svalue)

　　End Property

　　Public Property Let SetStrIndex(svalue) '取得：索引字段

　　StrIndex=Lcase(svalue)

　　End Property

　　Public Property Let SetStrOrder(svalue) '取得：排序字段

　　StrOrder=Lcase(svalue)

　　End Property

　　Public Property Let SetStrSc(svalue) '取得：排序方法

　　StrSc=Lcase(svalue)

　　End Property

　　Public Property Let SetActionStr(svalue) '取得：翻页链接字符

　　ActionStr=Lcase(svalue)

　　End Property

　　Private Function MadeOrderBy() '方法：组合Order By 语句

　　dim TempStrOrder,TempStrSc,t

　　if StrOrder<>"" and StrSc<>"" then

　　TempStrOrder=split(StrOrder,",")

　　TempStrSc=split(StrSc,",")

　　if ubound(TempStrOrder)=ubound(TempStrSc) then

　　for t=0 to ubound(TempStrOrder)

　　if t=0 then

　　MadeOrderBy=TempStrOrder(t)&" "&TempStrSc(t)

　　else

　　MadeOrderBy=MadeOrderBy&","&TempStrOrder(t)&" "&TempStrSc(t)

　　end if

　　next

　　end if

　　end if

　　End Function

　　Private Sub OpenRs() '方法：获得记录集

　　Set Rs_dbs=Server.CreateObject("ADODB.RECORDSET")

　　Set cmd = Server.CreateObject("ADODB.Command")

　　with cmd

　　.ActiveConnection = connstr '数据库连接字串

　　.CommandText = "sp_Page" '指定存储过程名

　　.CommandType = 4 '表明这是一个存储过程

　　.Prepared = true '要求将SQL命令先行编译

　　.Parameters.append .CreateParameter("@iPage",3,1,4,iPage) '指定页数

　　.Parameters.append .CreateParameter("@iPageSize",3,1,4,iPageSize) '每页记录数

　　.Parameters.append .CreateParameter("@StrTable",200,1,200,StrTable) '分页时要查询的表名

　　.Parameters.append .CreateParameter("@StrText",200,1,1000,StrText) '字段

　　.Parameters.append .CreateParameter("@StrWhere",200,1,1000,StrWhere) '查询条件where 中的条件语句

　　.Parameters.append .CreateParameter("@StrIndex",200,1,30,StrIndex) '索引值

　　.Parameters.append .CreateParameter("@StrOrder",200,1,100,MadeOrderBy()) '排序的字段

　　.Parameters.Append .CreateParameter("@StrTotals",3,2,10) '总页数output

　　Set Rs_dbs = .Execute

　　end with

　　End Sub

　　Public Property Get GetRs() '输出：记录集(数组方式)

　　call OpenRs()

　　If not (Rs_dbs.eof and Rs_dbs.bof ) then

　　GetRs = Rs_dbs.GetRows()

　　End If

　　Rs_dbs.close

　　TotalNum = cmd(7)

　　set cmd = nothing

　　End Property

　　Public Property Get GetTotalNum '输出：总记录数

　　GetTotalNum=TotalNum

　　End Property

　　Public Property Get GetTotalPage '输出：总页数

　　If (TotalNum mod iPageSize)<>0 Then

　　GetTotalPage=(TotalNum\iPageSize)+1

　　Else

　　GetTotalPage=(TotalNum\iPageSize)

　　End If

　　End Property

　　Public Property Get GetiPageSize '输出：每页显示条数

　　GetiPageSize=iPageSize

　　End Property

　　Public Property Get GetiPage '输出：当前页码

　　GetiPage=iPage

　　End Property

　　Private Function GetQueryUrl() '方法：获得当前URL

　　dim UrlFile,Query,Querys,i

　　UrlFile= Request.Servervariables("URL")

　　Query= Request.Servervariables("QUERY_STRING")

　　Querys=split(Query,"&")

　　For i=0 to ubound(Querys)

　　if trim(Querys(i))<>"" then

　　If trim(Querys(i))=replace(trim(Querys(i)),"iPage=","") then

　　GetQueryUrl=GetQueryUrl&Querys(i)&"&"

　　End If

　　End If

　　Next

　　if ActionStr="" then

　　GetQueryUrl=UrlFile&"?"&GetQueryUrl

　　else

　　GetQueryUrl=UrlFile&"?"&ActionStr&"&"&GetQueryUrl

　　end if

　　End Function

　　Public Property Get GetFenYe() '输出：分页

　　If (iPage>=1) and (clng(iPage)<=clng(GetTotalPage)) then

　　dim x,y,m,n,i,ActionUrL

　　ActionUrL=GetQueryUrl()

　　If iPage="" then iPage=1

　　iPage=Clng(iPage)

　　If TotalNum<>0 then

　　x=TotalNum\iPageSize

　　y=TotalNum mod iPageSize

　　If y<>0 then x=x+1 '总页数

　　if iPage>5 then

　　If (iPage+5)<=x then

　　n=iPage-4

　　m=iPage+5

　　Else

　　n=iPage-4

　　m=x

　　End If

　　Else

　　n=1

　　m=10

　　End If

　　If x<=10 then

　　If x<>1 then

　　if iPage<>1 then

　　Response.Write" <a href="&ActionUrL&"iPage="&(iPage-1)&">上一页</a> "

　　end if

　　for i=1 to x

　　if iPage=i then

　　Response.Write(i)

　　Else

　　Response.Write" <a href="&ActionUrL&"iPage="&i&">["&i&"]</a> "

　　End If

　　next

　　if iPage<>x then

　　Response.Write" <a href="&ActionUrL&"iPage="&(iPage+1)&">下一页</a> "

　　end if

　　End If

　　Else

　　If iPage>5 then

　　Response.Write" <a href="&ActionUrL&"iPage=1>[首页]</a> "

　　End If

　　If iPage<>1 then

　　Response.Write" <a href="&ActionUrL&"iPage="&(iPage-1)&">上一页</a> "

　　end if

　　for i=n to m

　　if iPage>x then Exit For

　　if iPage=i then

　　Response.Write(i)

　　Else

　　Response.Write" <a href="&ActionUrL&"iPage="&i&">["&i&"]</a> "

　　End If

　　next

　　if iPage<>x then

　　Response.Write" <a href="&ActionUrL&"iPage="&(iPage+1)&">下一页</a> "

　　End If

　　if (iPage+5)<x then

　　Response.Write" <a href="&ActionUrL&"iPage="&x&">[尾页]</a> "

　　End If

　　End If

　　End If

　　End If

　　End Property

　　Public Property Get GetFenYeJmp(inForm) '输出：带跳转的分页

　　if inForm then

　　response.Write(GetFenYe()&" <input name='iPage' type='text' value="&iPage&" id='iPage' size='3'> ")

　　response.Write("<input type='submit' name='Submit' value='转'>")

　　else

　　response.Write("<form name='Jmp' method='post' action="&GetQueryUrl()&">")

　　response.Write(GetFenYe()&" <input name='iPage' type='text' value="&iPage&" id='iPage' size='3'>")

　　response.Write("<input type='submit' name='Submit' value='转'>")

　　response.Write("</form>")

　　end if

　　End Property

　　End Class

　　begin

　　set @Sql='select top '+str(@iPageSize)+' '+@StrText+' from '+@StrTable+' where '+@StrIndex+' not in (select top '+str(@iPageSize*(@iPaCREATE PROCEDURE [dbo].[sp_Page]

　　@iPage int=1, --当前页码

　　@iPageSize int=10,--每页条数

　　@StrTable varchar(200),--查询的表

　　@StrText varchar(1000),--查询的字段

　　@StrWhere varchar(1000),--条件

　　@StrIndex varchar(30),--索引

　　@StrOrder varchar(100)='',--排序字段

　　@StrTotals int output --返回总条数

　　AS

　　--定义变量

　　declare @SqlCount nvarchar(2000)

　　declare @Sql nvarchar(2000)

　　declare @TempOrder nvarchar(1000)

　　if @StrOrder<>""

　　begin

　　set @TempOrder=' order by '+@StrOrder

　　end

　　else

　　begin

　　set @TempOrder=''

　　end

　　--组合sql语句

　　if @iPage=1

　　begin

　　set @Sql='select top '+str(@iPageSize)+' '+@StrText+' from '+@StrTable+' where 1=1 '+@StrWhere+@TempOrder

　　end

　　else

　　ge-1))+' '+@StrIndex+' from '+@StrTable+' where 1=1 '+@StrWhere+@TempOrder+') '+@StrWhere+@TempOrder

　　end

　　set @SqlCount='select @StrTotals=isnull(count(*),10000) from '+@StrTable+' where 1=1 '+@StrWhere

　　--查询总记录数量

　　exec sp_executesql @SqlCount,N'@StrTotals int output',@StrTotals output

　　--执行sql语句返回

　　exec (@Sql)

　　GO