<!--#include file="conn.asp"-->
<!--#include file=const.asp -->
<!--#include file="time.asp"-->
<!--#include file="ubb.asp"-->
<!--#include file="userInfo.inc"-->
<!--#include file="chkPage.inc"-->
<!--#include file="page.inc"-->
<%
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)
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=sitetitle%></title>
<META name="Author" content="木鸟">
<link rel="stylesheet" href="style/<%=skin%>.css" type="text/css">
<meta name="keywords" content="E4无忧,asp">
</head>

<body>
<!--#include file="head.asp"-->
<form name="admin" method="post" action="admin_post_do.asp" style="margin:0px">
        
<%
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 %>
<!--#include file="list3.asp"-->
<%else %>
<!--#include file="list4.asp"-->
<%end if

response.write strPageList

if theUser.master then %>
<table width=650 align=center border=0 cellpadding=0 cellspacing=0><tr align=right><td>
	<a href=### onclick=checkAll()>全选</a> <a href=### onclick=checkNone() >全不选</a> <a href=### onclick=checkRev() >反选</a>
	<select name=act class=input2><option value=del>删除</option><option value=best>精华</option><option value=top>固顶</option><option value=lock>锁定</option></select> <input type=submit value="确定" class=input2>&nbsp;
</td></tr></table>
<%
end if
%>

</form>
<!--#include file="foot.asp"-->
</body>
</html>
