葉子ASP分頁類Bug兩種修復方法

葉子ASP分頁類是效率十分好一個分頁類，但在最後的0.12版中還存在微小的bug，本文作者提供了兩種修復方法供大家參考。
葉子分頁類v1.2中(下載地址:http://www.aspbc.com/code/showcode.ASP?id=183)，190行： 1 '此處是為了修正Access記錄多並且最後一頁只有一條記錄則報Eof的bug，壞處就是最後一頁會顯示2條=___= 2 If iPageIndex > 1 And iPageIndex = iPageCount And (iRecordCount ModiPageSize = 1) Then 3 Rs.AbsolutePosition = (iPageIndex - 1) * iPageSize 4 Else 5 Rs.AbsolutePosition = (iPageIndex - 1) * iPageSize + 1 6 End If(鼠標移到代碼上去，在代碼的頂部會出現四個圖標，第一個是查看源代碼，第二個是復制代碼，第三個是打印代碼，第四個是幫助)

方法一：使用靜態游標(即oConn,1,1改為oConn,3,1) 1 Set Rs = Server.CreateObject ("Adodb.RecordSet") 2 Rs.Open "SELECT " & sFIEld & " FROM " & sTable & " " & sCondition & " " & sOrderBy,oConn,3,1,&H0001 3 '此處是為了修正Access記錄多並且最後一頁只有一條記錄則報Eof的bug，壞處就是最後一頁會顯示2條 4 Rs.AbsolutePosition = (iPageIndex - 1) * iPageSize + 1(鼠標移到代碼上去，在代碼的頂部會出現四個圖標，第一個是查看源代碼，第二個是復制代碼，第三個是打印代碼，第四個是幫助)

方法二： 1 Set Rs = Server.CreateObject ("Adodb.RecordSet") 2 Rs.Open "SELECT " & sFIEld & " FROM " & sTable & " " & sCondition & " " & sOrderBy,oConn,1,1,&H0001 3 '此處是為了修正Access記錄多並且最後一頁只有一條記錄則報Eof的bug，壞處就是最後一頁會顯示2條=___= 4 If iPageIndex >1 and iPageIndex = iPageCount Then 5     Rs.Move (iPageIndex-1) * Clng(iPageSize) 6 End If 7 Rs.AbsolutePosition = (iPageIndex - 1) * iPageSize + 1(鼠標移到代碼上去，在代碼的頂部會出現四個圖標，第一個是查看源代碼，第二個是復制代碼，第三個是打印代碼，第四個是幫助)

上面的兩種方法，選擇任何一種都可以