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

大家知道，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(Array
Set resultRS = cmRS.Execute(Array
Set resultRS >resultArray = resultRS.GetRows()
End If
Set resultRS = Nothing
Set cmd = Nothing
session("arr")=result>就該對資料進行分頁顯示了。 。
page----目前頁
frompage----頁面開始記錄位置
topage-----頁面結束紀錄位置
pagesize----每頁顯示的記錄列數
n---總記錄數
yushu-----最後一頁的記錄數
resultArray=session("arr")
n=UBound(resultArray,2)+1
pagesize=5
'response.write "
alert('"&n&"')" 'response.write "
" yushuh=n mod pagesize
"
yushuh=n mod size
0 then
totalpage=fix(n/pagesize)
else
totalpage=fix(n/pagesize)+1
End If
If request("page")="" Then
End If
If request("page")="" Then
page=1
Else
page=Int(request("page"))
End if
If page>totalpage Then page=1
End page>totalpage Then
page=1
End If
If pagepage=totalpage
End If
frompage=(page-1)*pagesize
topage=frompage+pagesize-1
if yushuhu=0 yushuhu=0 
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