if err.number<>0 then '錯誤處理 response.write "數(shù)據(jù)庫操作失敗：" & err.description err.clear else if not (rs.eof and rs.bof) then '檢測記錄集是否為空 totalrec = RS.RecordCount 'totalrec：總記錄條數(shù) if rs.recordcount mod msg_per_page = 0 then '計算總頁數(shù),recordcount:數(shù)據(jù)的總記錄數(shù) n = rs.recordcount/msg_per_page 'n:總頁數(shù) else n = rs.recordcount/msg_per_page+1 end if
currentpage = request("page") 'currentpage:當(dāng)前頁 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：設(shè)置指針指向某頁開頭 rowcount = rs.pagesize 'pagesize：設(shè)置每一頁的數(shù)據(jù)記錄數(shù)
dim i dim k %> <tr align="center" valign="middle"> <td width="25%">ID1</td> <td width="25%">name1</td> <td width="25%">ID2</td> <td width="25%">name2</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> <td> <% rowcount=rowcount-1 rs.MoveNext if not rs.EOF then %> <%=rs("id")%> </td> <td width="25%"><%=rs("testname")%></td> </tr> <% rowcount=rowcount-1 rs.MoveNext else Response.Write " </td><td> </td></tr>" end if loop end if end if rs.close set rs=nothing %>
