<% dim exec, rs, page, recordcount dim pagecount, strPageList dim ids set rs=server.createobject("adodb.recordset") exec="select bestNum from GBconst" rs.open exec,conn,1,1 RecordCount=rs(0) rs.close page=encodestr(Request.querystring("page")) pageCount=getPageCount(pageCount,recordCount,rcPerPage) page=getPage(page,pageCount) %>

<% strPageList=pageList() response.write strPageList exec="select id from ly where jh=1 order by id desc" rs.open exec,conn,1,1 if rs.eof then rs.close exec="select * from ly where id=0" elseif page<=1 then ids=rs(0) rs.movenext for i=1 to rcperpage-1 if rs.eof then exit for ids=ids&","&rs(0) rs.movenext next rs.close exec="select * from ly where id in ("& ids &") order by id desc" else rs.pagesize=rcPerpage rs.absolutepage=page ids=rs(0) rs.movenext for i=1 to rcperpage-1 if rs.eof then exit for ids=ids&","&rs(0) rs.movenext next rs.close exec="select * from ly where id in ("& ids &") order by id desc" end if rs.open exec,conn,1,1 if style=1 then %> <%else %> <%end if response.write strPageList if theUser.master then %>

全选 全不选 反选 删除精华固顶锁定

<% end if %>