<!--#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, exec1, rs, page, recordcount
dim rs1, pagecount, strpageList
dim topNum, sqlCol
dim ids
dim arr
rem strpagelist是分页显示的字符串
set rs=server.createobject("adodb.recordset")

if theUser.master then
	exec="select privateNum from GBconst"
else
	exec="select GBprivateNum from [user] where username='"& theUser.name &"' "
end if
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">
</head>

<body>
<!--#include file="head.asp"-->
<form name="admin" method="post" action="admin_post_do.asp" style="margin:0px">

<% 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

if theUser.master then
	exec="select reid from ly where rt=0 and isprivate=-1 order by reid 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 "& sqlCol &" where a.reid in ("& ids &") order by 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 "& sqlCol &" where a.reid in ("& ids &") order by a.reid desc"
		
	end if
else
	exec="select reid from ly where rt=0 and isprivate=1 and bl=1 and name='"& theUser.name &"' order by reid 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 "& 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 "& sqlCol &" where a.reid in ("& ids &") order by a.reid desc"
		
	end if
end if

if style=1 then %>
<!--#include file=list1.asp-->
<%else %>
<!--#include file=list2.asp-->
<%end if%>

<%=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></select> <input type=submit value="确定" class=input2>&nbsp;
</td></tr></table>
<%
end if 
%>

</form>
<!--#include file="searchBar.inc"-->
<!--#include file="foot.asp"-->

</body>
</html>
