ASP分页代码

分页代码

<%rs.pagesize = 20                    //每页显示多少条信息page = request.querystring("page")  //接收当前的页面值if page ="" then page = 1           //判断页面值为空，那么就转到第一页if isnumeric(page) then             //判断不是数字，转到第一页if clng(page)<1 then page =1        //判断小于第一页，转到第一页if clng(page) > rs.pagecount then page = rs.pagecount   //数值大于最大页数就到最后页elsepage = 1end if                              if not rs.eof then                  //判断有数据rs.absolutepage = page              //数据记录从当前页面值开始end iffor i = 1 to rs.pagesize            //开始循环当前页的数据if rs.eof then exit for             '编号j = (page-1)*20+i                   //页面表格的编号%>XXXXXXXXXXXXXXX                     //循环的内容<%rs.movenext                         //指针下移一个记录next                                %>