asp 存储过程分页代码第1/2页

<!--#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>