if err.number<>0 then '錯誤處理 response.write "數據庫操作失敗：" & err.description err.clear else if not (rs.eof and rs.bof) then '檢測記錄集是否為空 totalrec = RS.RecordCount 'totalrec：總記錄條數 if rs.recordcount mod msg_per_page = 0 then '計算總頁數,recordcount:數據的總記錄數 n = rs.recordcount/msg_per_page 'n:總頁數 else n = rs.recordcount/msg_per_page+1 end if
currentpage = request("page") 'currentpage:當前頁 If currentpage <> "" then currentpage = cint(currentpage) if currentpage < 1 then currentpage = 1 end if if err.number <> 0 then err.clear currentpage = 1 end if else currentpage = 1 End if if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then currentPage=1 end if rs.absolutepage = currentpage 'absolutepage：設置指針指向某頁開頭 rowcount = rs.pagesize 'pagesize：設置每一頁的數據記錄數
dim i dim k %> <tr align="center" valign="middle"> <td width="50%">ID</td> <td width="50%">name</td> </tr> <%do while not rs.eof and rowcount > 0%> <tr align="center" valign="middle"> <td width="25%"><%=rs("id")%></td> <td width="25%"><%=rs("testname")%></td> </tr> <% rowcount=rowcount-1 rs.MoveNext loop end if end if rs.close set rs=nothing %>
