<% dim exec, exec1, rs, page, recordcount dim rs1, pagecount, strpageList dim topNum,maxid, sqlCol dim arr,i rem strpagelist是分页显示的字符串 exec="select top 1 topicNum-privateNum from GBconst" set rs=conn.execute(exec) RecordCount=rs(0) page=encodestr(Request.querystring("page")) pageCount=getPageCount(pagecount,recordCount,rcPerPage) page=getPage(page,pageCount) %>

<% strPageList=pageList() response.write (strPageList) sqlCol=" id, title, nei, t, rt, name, url, email, qq, pic, yd, hf, jh, bl, retime, istop, ip, male, face, comefrom, islock, icq, msn, reid " ' 0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 if page<=1 then exec="select top "& rcPerpage & sqlCol &" from ly where rt=0 and isPrivate=0 order by istop desc,reid desc" else exec="select count(*) from ly where istop=1 and rt=0 and isPrivate=0" set rs=conn.execute(exec) topNum=rs(0) exec="select count(*) from ly where istop=1 and rt=0 and isPrivate=0 and reid1 and rt=0 and isPrivate=0 order by reid desc) " set rs=conn.execute(exec) topNum=rs(0) exec="select top 1 reid from ly where reid in(select top "&(rcPerPage*(page-1)-topNum)&" reid from ly where rt=0 and isPrivate=0 order by reid desc) order by reid" set rs=conn.execute(exec) maxid=rs(0) exec="select top "& rcPerpage & sqlCol &" from ly where rt=0 and istop<>1 and isPrivate=0 and reid<"& maxid &" order by reid desc" end if if style=1 then %> <%else %> <%end if response.write strPageList if theUser.master then %>

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

<% end if %>