笨朱先行

一个可以灵活调用的SQL分页储存过程
已经测试成功，但是至于分页页面显示，处理那些需要单独的来处理

/*  调用:   EXEC z_clsPage 'SELECT  * FROM 表名', 页号, 返回记录数, '主键', '排序字段'   z_clsPage 'SELECT  * FROM all_Categories',2,10,'[ID]','[ID]' */ CREATE PROCEDURE dbo.z_clsPage (  @SQL nVARCHAR(4000),  @Page int,  @RecsPerPage int,  @ID VARCHAR(255),  @Sort VARCHAR(255) ) AS DECLARE @Str nVARCHAR(4000) SET @Str='SELECT   TOP '+CAST(@RecsPerPage AS VARCHAR(20))+' * FROM ('+@SQL+') T WHERE T.'+@ID+' NOT IN  (SELECT   TOP '+CAST((@RecsPerPage*(@Page-1)) AS VARCHAR(20))+' '+@ID+' FROM ('+@SQL+') T9 ORDER BY '+@Sort+') ORDER BY '+@Sort PRINT @Str EXEC sp_ExecuteSql @Str GO

下面两个自用的函数，套用这个分页类
Public Function ShowPage(CountNum,L_pageSize,p) '显示分页页码的函数 '笨朱先行（http://www.f6n.net）原创，转载请注明出处 '参数说明CountNum，为总页数，L_pageSize为每页显示多少条，p为当前的页码   dim page    '有多少页   dim pageSelect   dim p_i,pageUrl   pageUrl=GetUrl("p=")'调用获取URL地址的函数，过滤掉页码参数   'response.Write(GetUrl("p="))   if not(right(pageUrl,1)="&") then pageUrl=pageUrl&"?"   if CountNum<=L_pageSize then page=1 else page=int(CountNum/L_pageSize)+1   if p>page then p=page   ShowPage="<div class=""ShowPage"">页次 "&p&"/"&page&"  每页："&L_pageSize&"篇  共有："&CountNum&"篇  "   pageSelect=""   for p_i=1 to page     if p_i=p then       pageSelect=pageSelect&"<option value="""&pageUrl&"p="&p_i&""" selected=""selected"">第"&p_i&"页</option>"     else       pageSelect=pageSelect&"<option value="""&pageUrl&"p="&p_i&""">第"&p_i&"页</option>"     end if   next   if page<2 then     ShowPage=ShowPage&"首页 上一页 下一页 末页  <select name=""goto"" onchange=""javascript:window.location.href=this.options[this.selectedIndex].value"">"&pageSelect&"</select>"   elseif p<2 then     ShowPage=ShowPage&"首页 上一页 "     ShowPage=ShowPage&"<a href="""&pageUrl&"p="&p+1&""">下一页</a> <a href="""&pageUrl&"p="&page&""">末页</a>  "     ShowPage=ShowPage&"<select name=""goto"" onchange=""javascript:window.location.href=this.options[this.selectedIndex].value"">"&pageSelect&"</select>"   elseif p>=page then     ShowPage=ShowPage&"<a href="""&pageUrl&"p=1"">首页</a> <a href="""&pageUrl&"p="&p-1&""">上一页</a> "     ShowPage=ShowPage&"下一页 末页  "     ShowPage=ShowPage&"<select name=""goto"" onchange=""javascript:window.location.href=this.options[this.selectedIndex].value"">"&pageSelect&"</select>"   else     ShowPage=ShowPage&"<a href="""&pageUrl&"p=1"">首页</a> <a href="""&pageUrl&"p="&p-1&""">上一页</a> "     ShowPage=ShowPage&"<a href="""&pageUrl&"p="&p+1&""">下一页</a> <a href="""&pageUrl&"p="&page&""">末页</a>  "     ShowPage=ShowPage&"<select name=""goto"" onchange=""javascript:window.location.href=this.options[this.selectedIndex].value"">"&pageSelect&"</select>"   end if   ShowPage=ShowPage&"</div>" end Function Private Function GetUrl(page)   'page,不能再次出现的参数   Dim ScriptAddress, M_ItemUrl, M_item   ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME")) '取得当前地址    M_ItemUrl = ""    If (Request.QueryString <> "") Then      ScriptAddress = ScriptAddress & "?"      For Each M_item In Request.QueryString        If InStr(page,M_Item)=0 Then          M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&"")) & "&"        End If      Next    end if    GetUrl = ScriptAddress & M_ItemUrl  End Function 

然后自定义配置出来每页显示的数量，通过select count(*) from 来获取总数，计算出总共的分页数量出来。
另外，在页码处理上面，要注意 ，方式显示混乱，下面这几个语句，简单的对网页地址上传递的页码进行处理。如果总数小于每页的数量，那么页码只有1，无论什么时候都显示1，如果接受到的页码P大于计算出来的总页数，那么最多页码值就是最大的那个页数。
    if CountNum<=L_pageSize then       p=1     elseif p>(int(CountNum/L_pageSize)+1) then       p=int(CountNum/L_pageSize)+1     end if
在这个简单处理后开始调用储存过程列表内容。
最后在合适的地方显示页码信息！

另外前几天在卓越网上订购了《精通SQL-结构化查询语言详解》，准备在这方面继续深入学习！