寫的不錯(cuò)哦，我在網(wǎng)站上也是這么用的，不過(guò)沒(méi)這個(gè)好，那個(gè)表里有１百多萬(wàn)數(shù)據(jù)，查一下就出來(lái)幾萬(wàn)。只能這樣搞。

順便貼一個(gè)：學(xué)習(xí)一下：
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
一種理論上最快的Web數(shù)據(jù)庫(kù)分頁(yè)方法  

來(lái)自：新聞中心　
點(diǎn)擊：2　加入時(shí)間：2002-11-22 15:53:41  
  上篇我們談到了關(guān)于數(shù)據(jù)庫(kù)傳統(tǒng)的三種分頁(yè)方法和他們的利弊，并且提出了一種理論上最佳的分頁(yè)方法,本篇我們就來(lái)詳細(xì)說(shuō)說(shuō)這種最佳的分頁(yè)方法。 

一：構(gòu)思。 
在設(shè)計(jì)Web數(shù)據(jù)庫(kù)時(shí)，如果我們要編歷每一條紀(jì)錄，那么只有采取分頁(yè)模式才可以使Web數(shù)據(jù)庫(kù)盡快，盡好的呈現(xiàn)給終端用戶，也不會(huì)因?yàn)?秒原則而使用戶失去瀏覽該頁(yè)的興趣。但是即使采取分頁(yè)的辦法，當(dāng)出現(xiàn)多紀(jì)錄的數(shù)據(jù)庫(kù)時(shí)，也難免會(huì)使我們的用戶感到翻頁(yè)時(shí)速度太慢。就如同我的上篇文章說(shuō)的那樣，幾乎上一片文章的三種分頁(yè)方法都有一些缺陷。那么，我們?nèi)绾巫龅侥茏寯?shù)據(jù)庫(kù)每次就取我們需要的紀(jì)錄，這個(gè)很好實(shí)現(xiàn)，有游標(biāo)返回多個(gè)紀(jì)錄集就可以實(shí)現(xiàn)，但是如果讓數(shù)據(jù)庫(kù)的一端不會(huì)因?yàn)橐獎(jiǎng)偤脵z索一頁(yè)的紀(jì)錄而大耗資源就很難了。最后，經(jīng)過(guò)我的不斷改寫程序與測(cè)試，終于編寫出了我認(rèn)為理論上最快的Web數(shù)據(jù)庫(kù)分頁(yè)方法。 

二：具體實(shí)現(xiàn)的存儲(chǔ)過(guò)程。 
我們結(jié)合一個(gè)BBS問(wèn)題來(lái)談?wù)勥@種方法。如何讓一個(gè)BBS每次每頁(yè)只現(xiàn)實(shí)需要的一頁(yè)紀(jì)錄呢？而我們需要提供給數(shù)據(jù)庫(kù)有那些參數(shù)呢？可能會(huì)有以下參數(shù)。 
第一：就是我們需要的當(dāng)前的頁(yè)數(shù)。 
第二：當(dāng)前定義的每一頁(yè)的紀(jì)錄集數(shù)目。這樣你就可以根據(jù)需要在頁(yè)面程序中修改每一頁(yè)的紀(jì)錄數(shù)。當(dāng)然，如果你不考慮程序的可擴(kuò)展性，你也可以在數(shù)據(jù)庫(kù)里直接規(guī)定每一頁(yè)有N條紀(jì)錄即可。 
第三：一個(gè)輸出參數(shù)：就是從數(shù)據(jù)庫(kù)里得出當(dāng)前表中總紀(jì)錄數(shù)目的多少。（注意，他不是一個(gè)頁(yè)的紀(jì)錄數(shù)目）他相當(dāng)于ADO分頁(yè)法中的Recordcount。如果你不需要總紀(jì)錄數(shù)目可以不用返回他。 
我們來(lái)看具體存儲(chǔ)過(guò)程的代碼。。。 

CREATE PROCEDURE dbo.PRO_pageview 
( 

@tint_tableid tinyint=1, --這個(gè)是BBS的當(dāng)前版面Id，你可以不用管他。。 
@int_pagenow int=0, 
@int_pagesize int=0, 
@int_recordcount int=0 output --就是得出BBS某個(gè)版面的總貼數(shù)。。 

) 

AS 
set nocount on 

declare @int_allid int 
declare @int_beginid int,@int_endid int 
declare @int_pagebegin int, @int_pageend int 

select @int_allid=count(*) from tab_discuss where tint_level=0 and tint_tableid=@tint_tableid 
select @int_recordcount=@int_allid --得出該版面的總貼數(shù) 

declare cro_fastread cursor scroll 
for select int_id from tab_discuss where tint_level=0 and tint_tableid=@tint_tableid order by int_id desc --這里定義游標(biāo)操作，但是不用臨時(shí)紀(jì)錄集，而且游標(biāo)也不需要全部遍歷所有紀(jì)錄集。 

open cro_fastread --打開(kāi)游標(biāo) 
select @int_beginid=(@int_pagenow-1)*@int_pagesize+1 得出該頁(yè)的第一個(gè)紀(jì)錄Id 
select @int_endid = @int_beginid+@int_pagesize-1 得出該頁(yè)的最后一個(gè)紀(jì)錄的Id 

fetch absolute @int_beginid from cro_fastread into @int_pagebegin 將他的Id傳給一個(gè)變量該頁(yè)開(kāi)始的Id 
if @int_endid>@int_allid --這里要注意，如果某一頁(yè)不足固定頁(yè)數(shù)的紀(jì)錄時(shí)。如只有一頁(yè)紀(jì)錄，而且紀(jì)錄少于我們定義的數(shù)目?；蛘呤亲詈笠豁?yè)時(shí)。。。 
fetch last from cro_fastread into @int_pageend --直接將游標(biāo)絕對(duì)定位到最后一條紀(jì)錄，得出他的id號(hào)來(lái)。。。 
else 
fetch absolute @int_endid from cro_fastread into @int_pageend 

select int_id,tint_level,tint_children,var_face,var_subject,datalength(txt_content) as int_len,sint_hits,var_url,var_image,var_user,dat_time,tint_tableid,bit_kernul from tab_discuss where tint_tableid=@tint_tableid and int_rootid between @int_pageend and @int_pagebegin order by int_rootid desc,num_order desc --我們就可以利用該頁(yè)的第一個(gè)id和最后一個(gè)id得出中間的id來(lái)。。。。（注意。我們這個(gè)BBS的數(shù)性結(jié)構(gòu)用了一種很巧妙的算法，就是用一個(gè)orderNum浮點(diǎn)數(shù)即可完成排序。。。） 

--開(kāi)始清場(chǎng)。。。 
close cro_fastread 
deallocate cro_fastread 

return 

我們?cè)倏纯碅sp頁(yè)面里的程序操作。。。 

pagenow=cint(request("pagenow")) --當(dāng)前的頁(yè)面。 

if pagenow<=0 then pagenow=1 
pagesize=10 

set cmd=server.CreateObject("adodb.command") 
cmd.ActiveConnection=strconn 
cmd.CommandType=4 
cmd.CommandText="pro_pageview" 

cmd.Parameters.Append cmd.CreateParameter("tint_tableid",adInteger,adParamInput,,tint_tableid) 
cmd.Parameters.Append cmd.CreateParameter("int_pagenow",adInteger,adParamInput,,pagenow) 
cmd.Parameters.Append cmd.CreateParameter("int_pagesize",adInteger,adParamInput,,pagesize) 
cmd.Parameters.Append cmd.CreateParameter("int_recordcount",adInteger,adParamOutput) 

set rs=cmd.Execute 
if rs.eof then 
Response.Write "目前已超過(guò)了紀(jì)錄個(gè)數(shù)或紀(jì)錄集為空！" 
Response.End 
end if 

dim arrRs 
arrRs=rs.getrows '可以利用getRows將紀(jì)錄集迅速保存到一個(gè)二維的數(shù)組中來(lái)提高速度。 

recordcount=cmd.Parameters("int_recordcount") 
'注意，當(dāng)紀(jì)錄不足以剛好整除單位頁(yè)紀(jì)錄時(shí)，我們也要將其定義為一頁(yè)，如紀(jì)錄數(shù)目為2頁(yè)多一個(gè)紀(jì)錄，此時(shí)我們的頁(yè)數(shù)也要為3頁(yè)紀(jì)錄。 
if (recordcount mod pagesize)=0 then 
pagecount=recordcount\pagesize 
else 
pagecount=recordcount\pagesize+1 
end if 

<--分頁(yè)開(kāi)始 --> 
<!-- #include file="include\tablepage.asp" -->固定的分頁(yè)函數(shù)，其實(shí)無(wú)非是pagenow+1或pagenow-1,pagenow,pagecount 
<!--分頁(yè)結(jié)束--> 

<div align="left" class="pblank" > 
<% 
'---------顯示樹(shù)性結(jié)構(gòu)！------------- 
level=0 
Response.Write "<ul>" 
for i=0 to ubound(arrRs,2) 
if arrRs(1,i)>level then 
Response.Write "<ul>" 
end if 
if arrRs(1,i)<level then 
for j=arrRs(1,i) to level-1 
Response.Write "</ul>" 
next 
end if 
int_size=arrRs(5,i) 
if int_size=0 then 
str_size=" <