<% dim exec, exec1, rs, page, recordcount dim rs1, pagecount, strpageList dim topNum, sqlCol, ids dim arr rem strpagelist是分页显示的字符串 set rs=server.createobject("adodb.recordset") exec="select top 1 topicNum-privateNum 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) if style=1 then sqlCol=" a.id, a.title, a.nei, a.t, a.rt, a.name, a.url, a.email, a.qq, a.pic, a.yd, a.hf, a.jh, a.bl, a.retime, a.istop, a.ip, a.male, a.face, a.comefrom, a.islock, a.icq, a.msn, a.reid, b.name as re_name, b.title as re_title, b.pic as re_pic, b.bl as re_bl, b.nei as re_nei from ly as a left outer join ly as b on a.reid=b.id and a.id<>b.id " else sqlCol=" a.id, a.title, a.t, a.name, a.pic, a.yd, a.hf, a.jh, a.bl, a.retime, a.istop, a.islock, b.name as re_name, b.bl as re_bl from ly as a left outer join ly as b on a.reid=b.id and a.id<>b.id " end if exec="select reid from ly where rt=0 and isprivate=0 order by istop desc, reid desc" set rs=server.createobject("adodb.recordset") 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 top "& rcperpage & sqlCol &" where a.reid in ("& ids &") order by a.istop desc,a.reid 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 top "& rcperpage & sqlCol &" where a.reid in ("& ids &") order by a.istop desc, a.reid desc" end if if style=1 then %> <%else%> <%end if response.write strPageList if theUser.master then %>

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

<% end if %>