<!--#include file="../main.asp" -->
<!--#include file="../IsLogin.asp" -->
<%
if request("action")="del" then
id=request("id")
'俱乐部
conn.execute("delete From t_club Where F_id="&ID&"")
'成员
conn.execute("delete From T_club_member Where F_club_id="&ID&"")

'活动
conn.execute("delete From huodong Where club="&ID&"")

'相片
conn.execute("delete From photo_pic_club  Where F_picid="&ID&"")

'圈志
conn.execute("delete From boke_club Where club="&ID&"")

'MP3
conn.execute("delete From mp3_club Where mp3_club="&ID&"")

'主题
conn.execute("delete From message_club Where club="&ID&"")

'公告
conn.execute("delete From book_club Where book_club="&ID&"")

'主题分类
conn.execute("delete From book_sort Where club="&ID&"")

Response.Redirect "club_exit.asp"
end if%>
<!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">
<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="club_exit.asp">管理圈子</a></STRONG></SPAN><SPAN class=float_right>------</SPAN><SPAN class=float_right><STRONG><a href="club_add.asp">创建圈子</a><a href="club_exit.asp"></a></STRONG></SPAN></DIV>
<DIV class=col_body><P>
 <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr>
<%set rst=server.createobject("adodb.recordset")
sqlt="select * from T_club where F_username='"&session("goname")&"'"
rst.open sqlt,conn,1,1
n=0
do while not rst.eof
n=n+1
set rs1=server.createobject("adodb.recordset")
sql1="select * from T_club_member where F_club_id="&rst("F_id")
rs1.open sql1,conn,1,1
culb=rs1.recordcount
id=rs1("F_id")
f_name=rst("F_name")
co=trim(rst("F_co"))
%> 
<td><SPAN class=my_group><a href="../club.asp?id=<%=rst("F_id")%>" target="_blank"><%=rst("F_name")%></A>(<%if rs1("F_type")=1 then response.Write("<font color=#FF0000>成员"&culb&"个 <a href=member_edit.asp?id="&rst("f_id")&">管理</a> </font>") else response.Write("<font color=#FF0000>成员"&culb&"个</font>") end if%>)</SPAN></td>     
<%rs1.close
if n mod 2=0 then response.write("</tr><tr>")
rst.movenext
loop

rst.close%>
    </tr>
  </table></P>
 

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

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