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

Response.Redirect "member_edit.asp?id="&club&""

end if
if request("action")="lr" then
id=request("id")
club=request("club")
conn.execute("update T_club_member set F_key=1 Where F_id="&ID&"")
Response.Redirect "member_edit.asp?id="&club&""
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>
</DIV>
<DIV class=col_body><P>
            <%
					dim PerPage
					set rs_c=server.createobject("adodb.recordset")
sql_c="select * from t_club where F_username='"&session("goname")&"'"
					rs_c.open sql_c,conn,1,1
                    PerPage=10
                    text="0123456789"
                    Rs_c.PageSize=PerPage
					
                    for i=1 to len(request("page"))
                    checkpage=instr(1,text,mid(request("page"),i,1))
                    if checkpage=0 then
                    exit for
                    end if
                    next

                  If checkpage<>0 then
                  If NOT IsEmpty(request("page")) Then
                  CurrentPage=Cint(request("page"))
                  If CurrentPage < 1 Then CurrentPage = 1
                  If CurrentPage > Rs_c.PageCount Then CurrentPage = Rs_c.PageCount
                  Else
                  CurrentPage= 1
                  End If
                 If not Rs_c.eof Then Rs_c.AbsolutePage = CurrentPage end if
                 Else
                 CurrentPage=1
                 End if					
				%> <table width="100%" border="0" cellspacing="0" cellpadding="0">              
              <%
if not rs_c.eof then
do while not rs_c.eof
%><tr>
                <td width="30%" height="25" align="left" bgcolor="#DEF3E1"><B><FONT 
      color=#007700><%=rs_c("f_name")%></font></b>
</td>
                <td width="18%" bgcolor="#DEF3E1">
<%set rst=server.createobject("adodb.recordset")
rst.open "select * from huodong where club="&rs_c("F_id")&"",conn,1,1
culb=rst.recordcount
%><span class="STYLE2 STYLE12">活动<font color="#FF0000"><%=rst.recordcount%></font> <%rst.close%> 个</span></td>
                <td width="11%" bgcolor="#DEF3E1"><SPAN class=float_right><STRONG><a href="huodong.asp?id=<%=rs_c("F_id")%>">管理活动</a></STRONG></span></td>
                <td width="9%" height="25" bgcolor="#DEF3E1"><SPAN class=float_right><STRONG><a href="add.asp?id=<%=rs_c("f_id")%>&name=<%=rs_c("F_name")%>">发起活动</a></STRONG></span></td>
              </tr>			<tr>
  <td height="1" colspan="4" bgcolor="#CCCCCC"></td>
  </tr>
                          <tr>
                <td height="5" colspan="4" align="left"></td>
              </tr>
            <%
rs_c.movenext
loop
end if
%></table>

    <br>              <span class="STYLE2">
                  <% If currentpage > 1 Then  %>
                  &nbsp;<a href='club.asp?keyword=<%=keyword%>&page=<%=cstr(1)%>'><SPAN style="COLOR: #000000; FONT-FAMILY: webdings">9</SPAN></a> 
                  &nbsp;<a href='club.asp?keyword=<%=keyword%>&page=<%=Cstr(currentpage-1)%>'><SPAN style="COLOR: #000000; FONT-FAMILY: webdings">7</SPAN></a> 
                  &nbsp;
                  <% Else  %>
                  &nbsp;<SPAN style="COLOR: #000000; FONT-FAMILY: webdings">9</SPAN></span> 
                  <span class="STYLE2">&nbsp;<SPAN style="COLOR: #000000; FONT-FAMILY: webdings">7</SPAN></span> 
                  <span class="STYLE2">
                  <% end if %>
                   <%
			  if rs_c.pagecount>8 then
			  n_star=currentpage
			  n_end=currentpage+7
			  else
			  n_star=1
			  n_end=rs_c.pagecount			  
			  end if
			  %>
                  <% FOR n=n_star to n_end %>
                  <% if n>rs_c.pagecount then  exit for  end if%>
                  &nbsp;<a href='club.asp?keyword=<%=keyword%>&page=<%=n%>'><FONT color=#ff0000><B><%=n%></B></FONT></a> 
                  <%
					  next
					  %>
                  <% If currentpage < Rs_c.PageCount Then %>
                  &nbsp;<a href='club.asp?keyword=<%=keyword%>&page=<%=Cstr(currentPage+1)%>'><SPAN  style="COLOR: #000000; FONT-FAMILY: webdings">8</SPAN></a> 
                  &nbsp;<a href='club.asp?keyword=<%=keyword%>&page=<%=Cstr(Rs_c.PageCount)%>'><SPAN  style="COLOR: #000000; FONT-FAMILY: webdings">:</SPAN></a> 
                  <% else %>
                  &nbsp;<SPAN  style="COLOR: #000000; FONT-FAMILY: webdings">8</SPAN></span> 
                  <span class="STYLE2">&nbsp;<SPAN  style="COLOR: #000000; FONT-FAMILY: webdings">:</SPAN></span> 
                  <span class="STYLE2">
                  <% end if %>
                  </span></P>
 

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

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