<%order=request("order") if order="" then order="id" end if dim rs dim sql msg_per_page = msgperpage '定义每页显示记录条数 set rs = server.createobject("adodb.recordset") %> <%sql = "select * from gb order by "&order&" desc"%> <%rs.cursorlocation = 3 '使用客户端游标，可以使效率提高 rs.pagesize = msg_per_page '定义分页记录集每页显示记录数 rs.open sql,conn,0,1 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 %>

<%do while not rs.eof and rowcount>0%> <% rowcount=rowcount-1 rs.movenext loop end if end if rs.close conn.close set rs=nothing set coon=nothing %>