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>