<!--#include file="../Include/Conn.asp" -->
<!--#include file="../Include/const.asp" -->
<!--#include file="../Include/char.asp" -->
<%
f_id=clng(request("id"))
if f_id="" or IsNumeric(f_id)=false then
 Call Msgbox("对不起，ID号错误！",1)
 Response.end
 end if
 m_ID = Session("CurUserID")
 m_username= Session("CurUserName")
set rs_a=server.createobject("adodb.recordset")
sql_a="select * from t_club where F_id="&f_id
rs_a.open sql_a,conn,1,3

if rs_a.eof then
 Call Msgbox("对不起，该俱乐部已经不存在！",1)
 Response.end
end if


%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs_a("f_name")%> - 黄冈信息港,会员俱乐部</title>
<link href="../Files/Style.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
<SCRIPT language=JavaScript>
<!--
function check() 	
{
        if (document.write.content.value == "")  {
               alert("请输入留言内容");
			   document.write.content.focus();
               return false;
        }
        if (document.write.content.value.length >255)  {
               alert("留言内容字数不得超过255个字符");
			   document.write.content.focus();
               return false;
        }
		else {
		       return true;}
			}
//-->
</SCRIPT>
<style type="text/css"></style>
</head>

<body onLoad="MM_preloadImages('images/hy_b_1b.gif','images/hy_b_3b.gif')">
<!--#include file="../Include/Top.asp" -->
<!--#include file="../Include/member_Top.asp" -->
<!--#include file="club_top.asp" -->
<table width="780" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td width="600" align="center" valign="top"><table width="600" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><img src="images/xxclub_01.gif" width="600" height="154"></td>
      </tr>
    </table>
      <table width="580" border="0" cellpadding="0" cellspacing="5" bgcolor="f4f4f4">
        <tr>
          <td bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
            <tr>
                <td width="100" align="center"><a href="<%=rs_a("f_photo")%>" target="_blank"><img src="<%=rs_a("f_photo")%>" width="80" height="80" border="0"></a></td>
              <td width="81%"><table width="100%"  border="0" cellspacing="3" cellpadding="0">
                <tr>
                  <td width="68" align="left" class="p1">名　　称：</td>
                      <td colspan="4" align="left"><strong><%=rs_a("f_name")%></strong>
                        </td>
                  </tr>
                <tr>
                  <td height="1" colspan="5" align="left" background="images/line.gif"></td>
                </tr>
                <tr>
                  <td align="left" class="p1">创 始 人：</td>
                  <td align="left"><a href="club_member.asp?username=<%=rs_a("f_username")%>" target="_blank"><%=rs_a("f_username")%></a></td>
                  <td align="left"><span class="p1">现任主席：</span></td>
                  <td width="156" align="left"><a href="club_member.asp?username=<%=rs_a("f_manage_username")%>" target="_blank"><%=rs_a("f_manage_username")%></a></td>
                </tr>
                <tr>
                  <td height="1" colspan="5" align="left" background="images/line.gif"></td>
                </tr>
                <tr>
                  <td width="68" align="left" class="p1">创立时间：</td>
                  <td width="146" align="left"><%=rs_a("f_regtime")%></td>
                  <td width="76" align="left" class="p1">所在城市：</td>
                  <td colspan="2" align="left"><%=rs_a("f_area")%></td>
                </tr>
                <tr>
                  <td height="1" colspan="5" align="left" background="images/line.gif"></td>
                </tr>
                <tr>
                  <td height="25" colspan="5" align="left">名气度：<%=rs_a("f_hit")%>　　成员数：<%=rs_a("f_usercount")%>　　活动数：<%=rs_a("f_clubactive")%>　　留言数：<%=rs_a("f_clubbook")%>　　照片数：<%=rs_a("f_clubphoto")%></td>
                  </tr>
              </table></td>
            </tr>
          </table></td>
        </tr>
      </table>
      <br>
	  <%
					dim PerPage
					set rs_c=server.createobject("adodb.recordset")
					sql_c="select * from t_club_member where f_ischeck=1 and f_club_id="&rs_a("f_id")&" order by f_identity desc,f_regtime"
					rs_c.open sql_c,conn,1,1
					'flag="尚未处理"
                    PerPage=15
				
                   '假如没有数据时
                 ' If rs_c.eof and rs_c.bof then
                  ' response.write "<p align='center'><font color='#ff0000'>还没任何新闻</font></p>"
                 ' response.end
                 ' End if
					'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
                    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					
				%>
      本子俱乐部总共有 <FONT 
      color=#ff0000><B><%=Cstr(rs_c.RecordCount)%></B></FONT> 位成员, 共 <FONT color=#ff0000><B><%=Cstr(rs_c.pagecount)%></B></FONT> 
      页，每页 <FONT color=#ff0000><B><%=PerPage%></B></FONT> 位 <BR> 
      <TABLE cellSpacing=1 cellPadding=0 width=580 bgColor=#f2f2f2 border=0>
        <TBODY>
          <TR align=center bgColor=#f2f2f2> 
            <TD width=80 height=25><strong>身份</strong></TD>
            <TD width=61 height=25 bgcolor="f2f2f2"><strong>会员名</strong></TD>
            <TD width=61 bgcolor="f2f2f2"><strong>好友</strong></TD>
            <TD width=70 height=25 bgcolor="f2f2f2"><strong>短信</strong></TD>
            <TD width=30 bgcolor="f2f2f2"><strong>性别</strong></TD>
            <TD width=40 height=25 bgcolor="f2f2f2"><strong>年龄</strong></TD>
            <TD width=50 height=25 bgcolor="f2f2f2"><strong>学历</strong></TD>
            <TD width=99 height=25 bgcolor="f2f2f2"><strong>加入时间</strong></TD>
          </TR>
          <%
if not rs_c.eof then
i=0
do while not rs_c.eof
%>
          <TR align=middle bgColor=#ffffff> 
            <TD height=25><%=rs_c("f_identity")%></TD>
            <TD height=25 align="left"><A 
            href="club_member.asp?username=<%=rs_c("f_username")%>" 
            target=_blank><U><%=rs_c("f_username")%></U></A> </TD>
            <TD height=25 align="center"><a onclick="return confirm('您确定要将“<%=rs_c("f_username")%>”加为好友吗？他将有可能看到您的个人隐私。')" href="addfriend.asp?username=<%=rs_c("f_username")%>&flag=1">加入</a></TD>
            <TD height=25 align="center"><a href="message_send.asp?re_username=<%=rs_c("f_username")%>"><img src="Images/message.gif" width="55" height="19" border="0"></a></TD>
            <TD height=25 align="center"><%=rs_c("f_sex")%></TD>
            <TD height=25 align="center"><%=rs_c("f_age")%></TD>
            <TD height=25 align="center"><%=rs_c("f_edu")%></TD>
            <TD height=25 align="center"><%=(rs_c("f_regtime"))%></TD>
          </TR>
          <%
i=i+1
if i >= Perpage then exit do
rs_c.movenext
loop
end if
%>
          <TR align=middle bgColor=f2f2f2> 
            <TD height=25 colSpan=8> <% If currentpage > 1 Then  %> &nbsp;<a href='club_usersub.asp?id=<%=rs_a("f_id")%>&page=<%=cstr(1)%>'><SPAN style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">9</SPAN></a> 
              &nbsp;<a href='club_usersub.asp?id=<%=rs_a("f_id")%>&page=<%=Cstr(currentpage-1)%>'><SPAN style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">7</SPAN></a> 
              &nbsp; <% Else  %> &nbsp;<SPAN style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">9</SPAN> 
              &nbsp;<SPAN style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">7</SPAN> 
              <% 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_usersub.asp?id=<%=rs_a("f_id")%>&page=<%=n%>'><FONT color=#ff0000><B><%=n%></B></FONT></a> <%
			  next
			 %> <% If currentpage < Rs_c.PageCount Then %> &nbsp;<a href='club_usersub.asp?id=<%=rs_a("f_id")%>&page=<%=Cstr(currentPage+1)%>'><SPAN  style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">8</SPAN></a> 
              &nbsp;<a href='club_usersub.asp?id=<%=rs_a("f_id")%>&page=<%=Cstr(Rs_c.PageCount)%>'><SPAN  style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">:</SPAN></a> 
              <% else %> &nbsp;<SPAN  style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">8</SPAN> 
              &nbsp;<SPAN  style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">:</SPAN> 
              <% end if %> </TD>
          </TR>
        </TBODY>
      </TABLE> 
      
      <br>
    </td>
    <td valign="top" bgcolor="f4f4f4"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><img src="images/xxclub_02.gif" width="180" height="79"></td>
      </tr>
      <tr>
          <td style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; LINE-HEIGHT: 140%; PADDING-TOP: 10px" height="100"> 
            <MARQUEE onmouseover=this.stop(); onmouseout=this.start(); 
            scrollAmount=1 scrollDelay=50 direction=up width=160 
            height=140>
			<%
			set rs_g=server.createobject("adodb.recordset")
			sql_g="select f_username,f_content,f_regtime from t_club_board where f_club_id="&rs_a("f_id")&" order by f_regtime desc"
			rs_g.open sql_g,conn
			if not rs_g.eof then
			do while not rs_g.eof			
			%>
			<B>时间：</B><%=rs_g("f_regtime")%><BR><B>发布者：</B><A 
            href="club_member.asp?username=<%=rs_g("f_username")%>"><U><%=rs_g("f_username")%></U></A><BR>
            <%=rs_g("f_content")%><BR>
            <FONT color=#666666>--------------------------</FONT>
			<%
			rs_g.movenext
			loop
			end if
			rs_g.close
			set rs_g=nothing
			%>
			</MARQUEE>
		</td>
      </tr>
      <tr>
        <td height="70" align="center"><a href="club_addmember.asp?id=<%=rs_a("f_id")%>" onclick="return confirm('您确定要加入这个子俱乐部吗？')" ><img src="images/xxclub_login.gif" width="136" height="62" border="0"></a></td>
      </tr>
    </table>
      <!--#include file="club_manage.asp" --></td>
  </tr>
</table>
<!--#include file="../Include/Bottom.asp" -->
</body>
</html>
<%
rs_a.close
rs_c.close
set rs_c=nothing
set rs_a=nothing
%>
