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="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 %>
