<!--#include file="../Include/Conn.asp" -->
<!--#include file="../Include/const.asp" -->
<!--#include file="../Include/char.asp" -->
<!--#include file="../sql/Neeao_SqlIn.Asp" -->
<%
f_id=clng(checkStr(request("id")))
meet_id=clng(checkStr(request("meetid")))
 if f_id="" or meet_id="" or isnumeric(f_id)=false or isnumeric(meet_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

set rs_m=server.createobject("adodb.recordset")
sql_m="select * from t_club_meet where F_id="&meet_id
rs_m.open sql_m,conn
if rs_m.eof and rs_m.bof then
 Call Msgbox("对不起，该活动已经不存在！",1)
 Response.end
end if

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs_m("f_title")%> - 黄冈信息港,会员俱乐部</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.write2.content.value == "")  {
               alert("请输入留言内容");
			   document.write2.content.focus();
               return false;
        }
        if (document.write2.content.value.length >255)  {
               alert("留言内容字数不得超过255个字符");
			   document.write2.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="/Member/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="/Member/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="/Member/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>
      <TABLE cellSpacing=0 cellPadding=0 width=580 border=0>
        <TBODY>
          <TR> 
            <TD width=290 height=35><IMG height=22 
            src="/Member/images/sub_meetname.gif" width=134></TD>
            <TD align=right width=290 height=35><IMG height=22 
            src="/Member/images/sub_meetnamelast.gif" width=73></TD>
          </TR>
          <TR> 
            <TD bgColor=#99cc00 colSpan=2 height=3></TD>
          </TR>
          <TR> 
            <TD colSpan=2 height=3></TD>
          </TR>
          <TR> 
            <TD colSpan=2 height=23><FONT color=#d55500>活动名称：</FONT><%=rs_m("f_title")%></TD>
          </TR>
          <TR> 
            <TD background=/Member/images/sub_line.gif colSpan=2 height=1></TD>
          </TR>
          <TR> 
            <TD height=23><FONT color=#d55500>发 起 人：</FONT><A 
            href="club_member.asp?username=<%=rs_m("f_username")%>" 
            target=_blank><U><%=rs_m("f_username")%></U></A></TD>
            <TD height=23><FONT color=#d55500>所在城市：</FONT><%=rs_m("f_area")%></TD>
          </TR>
          <TR> 
            <TD background=/Member/images/sub_line.gif colSpan=2 height=1></TD>
          </TR>
          <TR> 
            <TD height=23><FONT color=#d55500>活动地点：</FONT><%=rs_m("f_address")%></TD>
            <TD height=23><FONT color=#d55500>活动时间：</FONT><%=rs_m("f_time")%></TD>
          </TR>
          <TR> 
            <TD background=/Member/images/sub_line.gif colSpan=2 height=1></TD>
          </TR>
          <TR> 
            <TD height=23><FONT color=#d55500>收费方式：</FONT><%=rs_m("f_price")%></TD>
            <TD height=23><FONT 
      color=#d55500>限制人数：</FONT><%=rs_m("f_count")%>（人）</TD>
          </TR>
        </TBODY>
      </TABLE>
      <TABLE style="TABLE-LAYOUT: fixed" cellSpacing=1 cellPadding=0 width=580 
      bgColor=#cccccc border=0>
        <TBODY>
          <TR> 
            <TD 
          style="PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; WORD-BREAK: break-all; LINE-HEIGHT: 140%; PADDING-TOP: 5px" 
          vAlign=top width=580 
        bgColor=#f4f4f4><%=rs_m("f_content")%></TD>
          </TR>
        </TBODY>
      </TABLE>
      <BR> <TABLE style="TABLE-LAYOUT: fixed" cellSpacing=1 cellPadding=0 width=580 
      align=center bgColor=#d4d4d4 border=0>
        <TBODY>
          <TR> 
            <TD width=580 bgColor=#cef3ff height=25><IMG height=22 
            src="/Member/images/sub_joinname.gif" width=108 
            align=absMiddle>　　　　　　　　　　　　　　　　　　　　　　　　　　<A 
            onclick="return confirm('您确定要报名参加这个活动吗？')" 
            href="club_joinmeet.asp?id=<%=rs_a("f_id")%>&meetid=<%=rs_m("f_id")%>&type=join"><IMG height=20 
            src="/Member/images/sub_joinmeet.gif" width=68 align=absMiddle 
            border=0></A>　<A onclick="return confirm('您确定要取消这个活动的报名吗？')" 
            href="club_joinmeet.asp?id=<%=rs_a("f_id")%>&meetid=<%=rs_m("f_id")%>&type=cancel"><IMG 
            height=20 src="/Member/images/sub_canceljoin.gif" width=68 
            align=absMiddle border=0></A></TD>
          </TR>
          <TR> 
            <TD 
          style="PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; WORD-BREAK: break-all; LINE-HEIGHT: 140%; PADDING-TOP: 5px" 
          bgColor=#ffffff>
		  <%
		  set rs_c=server.createobject("adodb.recordset")
		  sql_c="select f_username from T_club_meetmember where f_club_id="&f_id&" and f_meet_id="&meet_id
		  rs_c.open sql_c,conn
		  do while not rs_c.eof
		  %>
		  <A title=报名时间：2004-12-21  href="club_member.asp?username=<%=rs_c("f_username")%>" target=_blank><U><%=rs_c("f_username")%></U></A>&nbsp;&nbsp;
		  <%
		  rs_c.movenext
		  loop
		  rs_c.close
		  set rs_c=nothing
		  %>
		  </TD>         
		  </TR>
        </TBODY>
      </TABLE>
      <BR>
	  <%
					dim PerPage
					set rs_c=server.createobject("adodb.recordset")
					sql_c="select * from t_club_meetbook where f_club_id="&rs_a("f_id")&" and f_meet_id="&rs_m("f_id")&" order by f_regtime desc"
					rs_c.open sql_c,conn,1,1
					'flag="尚未处理"
                    PerPage=10
				
                   '假如没有数据时
                 ' 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					
				%>
	   <TABLE cellSpacing=0 cellPadding=0 width=580 border=0>
        <TBODY>
          <TR> 
            <TD width=134><IMG height=23 src="/Member/images/sub_meetreview.gif" 
            width=123></TD>
            <TD align=right width=446><B><FONT color=#666666>总共有 <FONT 
            color=#ff3300><%=Cstr(rs_c.RecordCount)%></FONT> 条留言，每页 <FONT color=#ff3300><%=PerPage%></FONT> 条，共 <FONT 
            color=#ff3300><%=Cstr(rs_c.pagecount)%></FONT> 页，目前是第 <FONT color=#ff3300><%=CurrentPage%></FONT> 页</FONT></B></TD>
          </TR>
          <TR> 
            <TD bgColor=#ff6600 height=3></TD>
            <TD bgColor=#ff6600 height=3></TD>
          </TR>
        </TBODY>
      </TABLE>
      <BR> <%
if not rs_c.eof then
i=0
do while not rs_c.eof
%>
      <TABLE style="TABLE-LAYOUT: fixed" cellSpacing=1 cellPadding=0 width=580 
      bgColor=#999999 border=0>
        <TBODY>
          <TR> 
            <TD bgColor=#f4f4f4 height=23>&nbsp;<A 
            href="club_member.asp?username=<%=rs_c("f_username")%>"><U><%=rs_c("f_username")%></U></A>&nbsp;&nbsp; 
              &nbsp;<%=rs_c("f_regtime")%>&nbsp;留言道：&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<%	if m_username=rs_a("f_manage_username") then
			%>
            <a href="club_delmbook.asp?g_id=<%=rs_c("f_id")%>&meetid=<%=rs_m("f_id")%>&id=<%=rs_a("f_id")%>"><img src="Images/del.gif" width="12" height="12" border="0" alt="删除留言"></a> 
            <%
           end if
			%>
          </TD>
          </TR>
          <TR> 
            <TD 
          style="PADDING-RIGHT: 5px; PADDING-LEFT: 5px; PADDING-BOTTOM: 5px; WORD-BREAK: break-all; LINE-HEIGHT: 140%; PADDING-TOP: 5px" 
          bgColor=#ffffff><%=rs_c("f_content")%></TD>
          </TR>
        </TBODY>
      </TABLE>
<%
i=i+1
if i >= Perpage then exit do
rs_c.movenext
loop
end if
%>
      <TABLE cellSpacing=0 cellPadding=0 width=580 border=0>
        <TBODY>
          <TR> 
            <TD align=middle width=580 height=25>
              <% If currentpage > 1 Then  %>
              &nbsp;<a href='club_lookmeet.asp?id=<%=rs_a("f_id")%>&meetid=<%=meet_id%>&page=<%=cstr(1)%>'><SPAN style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">9</SPAN></a> 
              &nbsp;<a href='club_lookmeet.asp?id=<%=rs_a("f_id")%>&meetid=<%=meet_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_lookmeet.asp?id=<%=rs_a("f_id")%>&meetid=<%=meet_id%>&page=<%=n%>'><FONT color=#ff0000><B><%=n%></B></FONT></a> 
              <%
			  next
			 %>
              <% If currentpage < Rs_c.PageCount Then %>
              &nbsp;<a href='club_lookmeet.asp?id=<%=rs_a("f_id")%>&meetid=<%=meet_id%>&page=<%=Cstr(currentPage+1)%>'><SPAN  style="FONT-SIZE: 15px; COLOR: #000000; FONT-FAMILY: webdings">8</SPAN></a> 
              &nbsp;<a href='club_lookmeet.asp?id=<%=rs_a("f_id")%>&meetid=<%=meet_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>
	    <%
	  if m_username<>"" then
	  %>
      <TABLE cellSpacing=1 cellPadding=0 width=580 bgColor=e2e2e2 border=0>
        <FORM name=write2 action=club_meetwrite.asp method=post>
          <TBODY>
            <TR> 
              <TD bgColor=#f2f2f2 height=27>&nbsp;会员名：[<FONT 
            color=#ff0000><%=m_username%></FONT>]</TD>
            </TR>
            <TR align=middle bgColor=#ffffff> 
              <TD align=middle height=20><TEXTAREA style="BORDER-RIGHT: rgb(153,153,153) 1px solid; BORDER-TOP: rgb(153,153,153) 1px solid; FONT-SIZE: 12px; BORDER-LEFT: rgb(153,153,153) 1px solid; WIDTH: 575px; BORDER-BOTTOM: rgb(153,153,153) 1px solid; HEIGHT: 60px" name=content rows=5 cols=80></TEXTAREA></TD>
            </TR>
            <TR align=middle bgColor=#ffffff> 
              <TD align=center bgColor=#f2f2f2 height=25> <INPUT 
            onclick="return check();" type=image height=22 width=80 
            src="/Member/images/sub_sendbutton.gif" align=absMiddle name=image> <input name="f_id" type="hidden" id="id" value="<%=rs_a("f_id")%>">
                <input name="meetid" type="hidden" id="meetid" value="<%=rs_m("f_id")%>"> 
              </TD>
            </TR>
          <INPUT type=hidden value=31 name=id>
        </FORM>
      </TABLE>
      <% end if %>
      <br>
    </td>
    <td valign="top" bgcolor="f4f4f4"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><img src="/Member/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="/Member/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_m.close
set rs_m=nothing
rs_a.close
rs_c.close
set rs_c=nothing
set rs_a=nothing
%>
