開啟數據庫部份……省略
將所有的資料集結到一個陣列變數中
sum = rs.recordcount ’錄資料查詢後的總筆數
field = Rs.fields.Count ’錄查詢後資料的總欄位數
redim theData(sum) ’告一陣列變數記錄每筆資料
redim thefield(field) ’告一陣列變數記錄每一欄位的記錄
’出所有查詢的資料並寫入變數中
for j = 0 to sum -1
for i = 0 to field-1 ’得所有欄位資料
thefield(i) = rs.fields(i).value
next
theData(j)=thefield ’所有欄位資料寫入一筆記錄中
rs.movenext ’取下一筆數據
next
設定分頁
PageSize = 10 ’定每頁最大筆數
ingPage = 0 ’定起始頁 (頁碼是由0開始的,而流覽的頁碼則是從1開始)
function PageSet() 當網頁讀取結束後,就會開始執行
{
取得總頁數
PageCount = <%=PageCount%>
取得目前所要顯示的頁碼
ingPage = <%=ingPage%>
利用迴圈產生所有的頁碼,並決定顯示與否
for (i = 0; i < PageCount; i++)
{
if (i == ingPage)
{
