<% set rs=server.createobject("adodb.recordset") exec="select * from [cases] where ssfl="&id&" order by id desc " rs.open exec,conn,1,1 if rs.eof then response.Write " 暂无案例！" else rs.pagesize = 20 allpage = rs.pagecount allcount = rs.recordcount '接收传过来的page页码 page=request.QueryString("page") iCount=rs.RecordCount '记录总数 iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if %> <%For i=1 To x%> <% rs.movenext next end if %>