asp 存儲(chǔ)過程分頁代碼第1/2頁

!--#include file="conn.asp"-->
!--#include file="Page.asp"-->
%
Set My = New Page
With My
.SetConnstr=Connstr '數(shù)據(jù)庫鏈接字符串
.SetStrTable="users" '表名
.SetStrText="id,username,type,names" '查詢的字段
.SetStrIndex="id" '主鍵
rsArray=.GetRs() '返回?cái)?shù)據(jù)，類型為數(shù)組
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>