asp 存储过程分页代码第1/2页
时间：2021-03-01 13:40:30 | 栏目：ASP代码 | 点击：次
存储过程采用的是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>
简单几句话就可以实现分页功能,请看代码：
最简单使用方法（适用于任何数据表）：
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>
