分頁顯示之超級提速版_經驗交流

大家知道，asp本身提供分頁功能，但是，如果數據量很大的時候，分頁顯示起來，每換一頁都要等N長時間，那是人們最討厭的事情。那為什么每換一頁都要這么長時間呢？其實，事實上每換一個頁面，后臺就從數據庫中檢索一次數據，這樣一來數據量大了，自然速度緩慢。這當中我們可以看出它做了很多次重復的工作。數據的檢索只要一次就夠了，因為數據沒被操作過，無論檢索幾次結果都是一樣的。我們的目標就是要把這當中的重復檢索次數減少到最少，1次或者2次。方法就是：把檢索好的數據保存起來（比如你可以在登錄成功后就在后臺檢索你要的數據，把檢索出來的存為數組放入session，然后再跳轉到要顯示數據的頁面），當然這里可以用session變量來保存（好像用cookie無法保存），不過我知道它的極限是多少，如果數據量大到使session變量溢出的話，那我也無計可施了。廢話少說了，下面說明下怎么個保存數據法？
首先要從數據庫讀取數據，建議使用存儲過程讀取
Set cmd = Server.CreateObject("ADODB.Command")
With cmd
.ActiveConnection=conn
.CommandType=&H0004 '存儲過程
.CommandText="guestbookpro"
End With
Dim resultRS, resultArray
Set resultRS = cmd.Execute(, Null)
If Not resultRS.EOF Then
resultArray = resultRS.GetRows()
End If
Set resultRS = Nothing
Set cmd = Nothing
session("arr")=resultArray
哈哈，數據已經讀出，接下來就該對數據進行分頁顯示了。
page----當前頁
frompage----頁面開始記錄位置
topage-----頁面結束紀錄位置
pagesize----每頁顯示的記錄條數
n---記錄總數
yushu-----最后一頁的記錄數
resultArray=session("arr")
n=UBound(resultArray,2)+1
pagesize=5
'response.write "alert('"&n&"')"
'response.write ""
yushu=n mod pagesize
if yushu=0 then
totalpage=fix(n/pagesize)
else
totalpage=fix(n/pagesize)+1
End If
If request("page")="" Then
page=1
Else
page=Int(request("page"))
End if
If page>totalpage Then
page=1
End If
If page<=0 Then
page=totalpage
End If
frompage=(page-1)*pagesize
topage=frompage+pagesize-1
if yushu=0 then

frompage=(page-1)*pagesize
topage=frompage+pagesize-1
else

frompage=(page-1)*pagesize
topage=frompage+pagesize-1
If page=totalpage Then
frompage=(page-1)*pagesize
topage=frompage+yushu-1
End if
end If
有什么地方說的不對，請多多指教
演示地址：http://fishbone31.w3.zccn.net
我這個網站因為上一頁下一頁刷新的都是整頁，而非讀取數據頁[body.asp]，所以速度不是很理想。
賬號密碼均為test

聲明：本網頁內容旨在傳播知識，若有侵權等問題請及時與本網聯系，我們將在第一時間刪除處理。TEL:177 7030 7066 E-MAIL:11247931@qq.com