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 %>
</table> <table border="0" align="center"> <tr> <td align="center" valign="middle"> <%call listPages()%> </td> </tr> </table> </body> </html> <% sub listPages() if n <= 1 then exit sub for i=0 to n/msg_per_page-1 for j=1 to msg_per_page %> <font size="2" color="#006600"> <a href="<%=request.ServerVariables("script_name")%>?page=<%=i*msg_per_page+j %>">[<% =i*msg_per_page+j %>]</a></font> <% next next EndPage = n mod msg_per_page for j=1 to EndPage %> <font size="2" color="#006600"> <a href="<%=request.ServerVariables("script_name")%>?page=<% =i*msg_per_page+j %>">[<% =i*msg_per_page+j %>]</a></font> <%next%> <font color=black face="arial" > Page:<%=currentpage%>/<%=n%>pages <%=msg_per_page%>notes/page Total:<%=totalrec%>notes</font> <%end sub%>
