<!--#include file="../main.asp" -->
<!--#include file="../IsLogin.asp" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML 
xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>管理中心-这里是所有管理的入口</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK 
href="images/global.css" type=text/css rel=stylesheet><LINK 
href="images/main.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.218" name=GENERATOR></HEAD>
<BODY id=main background="../images/bj.gif">
<%
dim m_UserID
m_UserID = Request.Cookies("aspxnet")("CurUserID")

%>
<%
page=request("page")
if page="" then page=1

if request("action")="del" then
id=request("id")

conn.execute("delete From message_club Where id="&ID&" and user_id="&m_UserID&"")

Response.Redirect "book_club.asp"

end if%>
<DIV id=wrapper>
<!--#include file="top.asp"-->
<DIV class=row>
<!--#include file="left.asp"-->
<DIV class=right_side>
<DIV class=col id=bulletin>
<DIV class=col_head>
<H3><IMG height=16 alt=a hspace=3 src="images/ico_dots.gif" 
width=20 align=left vspace=3>添加主题分类</H3>
<SPAN class=float_right><STRONG><a href="club_add.asp"></a><a href="book_club.asp">管理留言</a></STRONG></SPAN><SPAN class=float_right>------</SPAN><SPAN class=float_right><STRONG><a href="book_add.asp">添加主题</a><a href="club_exit.asp"></a></STRONG></SPAN></DIV>
<DIV class=col_body><P><table width="98%" border="0" cellspacing="1" cellpadding="0" align="center">
      <tr>
        <td colspan="5" height="4"></td>
      </tr> 
      <tr align="center" bgcolor="#adb6bd">
        <td width="9%" height="20" bgcolor="#B5DFDE">编号</td>
        <td width="16%" align="left" bgcolor="#B5DFDE">发布者 </td>
        <td width="60%" bgcolor="#B5DFDE">标题</td>
        <td width="15%" bgcolor="#B5DFDE">删除</td>
      </tr>
<%
sql="select * from message_club where  user_id="&session("goid")&" and key1=6 order by id desc"
set rs=server.createobject("adodb.recordset")                     
rs.open sql,conn,1,1                     
if rs.eof and rs.bof then                     
	response.write "暂无内容"
else  
'分页的实现 
listnum=20
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum%>
      <%i=0
nn=request("page")
if nn="" then
n=0
else
nn=nn-1
n=listnum*nn
end if%>
     
      <%do while not rs.eof and i<listnum
n=n+1
%>
      <tr align="center">
        <td height="20" bgcolor="#DEF3E1"><%=n%></td>
        <td align="left" bgcolor="#DEF3E1"><%=rs("username")%></td>
        <td align="left" bgcolor="#DEF3E1"><a href="../new_club_view.asp?id=<%=rs("id")%>&club=<%=rs("club")%>" target="_blank"><%=rs("lr")%></a></td>
        <td bgcolor="#DEF3E1"><a href="book_club.asp?page=<%=request("page")%>&amp;id=<%=rs("id")%>&amp;action=del">删除</a></td>
      </tr><tr>
  <td height="1" colspan="4" bgcolor="#CCCCCC"></td>
  </tr>
                          <tr>
                <td height="5" colspan="4" align="left"></td>
              </tr>
      <%
rs.movenext 
i=i+1 
j=j-1
loop%></table>
<br><%filename="book_club.asp"%>共 <%=Rs.pagecount%> 页
          <% if page=1 then %>
                <%else%>
                <a href="<%=filename%>">|&lt;&lt;</a><a href="<%=filename%>?page=<%=page-1%>">&lt;&lt;</a> <a href="<%=filename%>?page=<%=page-1%>">[<%=page-1%>]</a>
                <%end if%>
                <% if Rs.pagecount=1 then %>
                <%else%>
          [<%=page%>]
          <%end if%>
          <% if Rs.pagecount-page <> 0 then %>
          <a href="<%=filename%>?page=<%=page+1%>">[<%=page+1%>]</a><a href="<%=filename%>?page=<%=page+1%>">&gt;&gt;</a><a href="<%=filename%>?page=<%=Rs.pagecount%>">&gt;&gt;|</a>
          <%end if%>
        <%end if%></P>
 

</DIV></DIV>
</DIV><DIV class=right_side></DIV>
</DIV>
<!--#include file="bottom.asp"-->

</DIV></BODY></HTML>
