asp 預存程序分頁代碼第1/2頁

預存程序採用的是select top 加 not in的方式完成，速度也算是相當快了 我測試過了百萬級資料量一般查詢在1秒一下，貼出來大家交流下，看有沒有什麼好的建議。
簡單幾句話就可以實現分頁功能,請看代碼：
最簡單使用方法（適用於任何資料表）：
test.asp 複製代碼 代碼如下:<!--#include file="conn.asp"-->
<!--#include file="Page.asp"-->
<%
Set My = New Page
With My
.SetConnstr=Connstr '資料庫連結字串
.SetStrTable="users" '表名
.SetStrText="id,username,type,names" '查詢的欄位
.SetStrIndex="id" '主鍵
rsArray=.GetRs() '返回資料，類型為數組
End With
%>
<table>
<%
if IsArray(rsArray) then
For i = 0 To UBound(rsArray, 2)
%>
<tr>
<td><%= rsArray(0, i) %></td>
<td><%= rsArray(1, i) %></td>
<td><%= rsArray(2, i) %></td>
</tr>
<%
next
end if
%>
<tr>
<td colspan="4">共<%= My.GetTotalNum %>條 每頁<%= My.GetiPageSize %>條 共<%= My.GetTotalPage %>頁 頁碼:<%= My.GetFenYeJmp(false) %></td>
</tr>
</table>