<%@ Language=VBScript %>
<html>
<head>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<LINK 
href="css/default.css" rel=stylesheet>
</head>
<body>
<object runat="server" id="conn1" progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<% 
	set rs=server.CreateObject ("ADODB.recordset")
   sql="select * from party where id="&Request("id")
    rs.Open sql,conn1,3,2
    if rs.RecordCount<>0 then
	id=rs("id")
	party_time=rs("party_time")
	party_name=rs("party_name")
	if rs("party_type")=2 then
		party_type="旅游聚会"
	else
		party_type="地区聚会或其它"
	end if
	address=rs("address")
	if rs("max_num")<>0 then
		max_num=rs("max_num")&"人"
	else
		max_num="人数不限"
	end if
	province=rs("province")
	contact=rs("contact")
	
	aa_expenses=rs("aa_expenses")
	other_expenses=rs("other_expenses")
	
	party_content=rs("party_content")
	
	initiate_people=rs("initiate_people")
	end if

%>
<script language="JavaScript">
function checkform()
{
	
	if(Discuss.discuss_content.value.length<1){
		alert("对不起留言不能为空！");
		
		return false;
	}
	
	return true;
}
</script>
<br>
<table cellSpacing="0" cellPadding="0" width="780" align="center" border="0">
  <tbody>
  <tr>
    <td>　首页 -&gt;网友聚会 -&gt; 聚会详细资料</td></tr></tbody></table>
<table width="780" align="center">
  <tbody>
 
  <tr>
    <td align="right" colSpan="2">聚会发起人管理： [<a href="party_update_party.asp?id=<%=id%>">聚会修改</a>]&nbsp; [聚会删除]&nbsp; [<a href="party_manager_party.asp?id=<%=id%>">报名和讨论管理</a>]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      </td>
      </tr>
  
  <tr>
    <td vAlign="top" align="middle" width="50%">
      <table cellSpacing="0"  align="center" cellSpacing=0 borderColorDark=#ffffff 
            cellPadding=0 width="100%" bgColor=#eefaff borderColorLight=#808080 
            border=1>
        <tbody>
        <tr bgColor="#deefff">
          <td colSpan="2" height="25">
            <div align="center"><b><font color="#000000">活　动　计　划</font></b></div></td></tr>
        <tr>
          <td align="middle" width="21%" height="23"><b>主　　题：</b></td>
          <td width="79%" height="23"><%=party_name%></td></tr>
        <tr>
          <td align="middle" width="21%" height="23"><b>发 起 人：</b></td>
          <td width="79%" height="23"><a href="../love/show_user.asp?user_name=<%=initiate_people%>" target="_blank"><%=initiate_people%></a></td></tr>
        <tr>
          <td align="middle" width="21%" height="23"><b>聚会类型：</b></td>
          <td width="79%" height="23"><%=party_type%></td></tr>
        <tr>
          <td align="middle" width="21%" height="23"><b>聚会时间：</b></td>
          <td width="79%" height="23"><%=party_time%></td></tr>
        <tr>
          <td align="middle" width="21%" height="23"><b>聚会地点：</b></td>
          <td width="79%" height="23"><%=address%></td></tr>
        
        <tr>
          <td align="middle" width="21%" height="23"><b>所在地区：</b></td>
          <td width="79%" height="23"><%=province%></td></tr>
        <tr>
          <td align="middle" width="21%" height="23"><b>邀请人数：</b></td>
          <td width="79%" height="23"><%=max_num%> </td></tr>
        <tr>
          <td align="middle" width="21%" height="23"><b>联系方式：</b></td>
          <td width="79%" height="23"><%=contact%>&nbsp; </td></tr>
        <tr>
          <td align="middle" width="21%" height="23"><b>开销支付：</b></td>
          <td width="79%" height="23"  align=left>AA制：<%=aa_expenses%>元<BR>其他：<%=other_expenses%></td></tr>
      
        <tr>
          <td align="middle" width="21%" height="23"><b>活动内容：</b></td>
          <td width="79%" height="23"><%=party_content%></td></tr>
        
            </td></tr></tbody></table>
       <table cellSpacing="0" cellPadding="0" width="100%" align="center" border="0" >
        <tbody>
        <tr bgColor="#f5f5f5">
          <td height="25" align="center"><big><big><big><a href="../../default.asp">点击这里登陆</a></big></big></big></td></tr>
        
    <%if Session("Current_user")="__anonymous" then
       %>
       <form name="djjjj" method="post">
       <tr bgColor="#f5f5f5">
          <td height="25"> 
          <B><FONT color=#ff9933>　请在此报名：</FONT></B></td></tr>
       <tr bgColor="#f5f5f5">
          <td vAlign="center" align="middle">
         
          <input onclick="JavaScript:alert('请先登录！');" type="button" value="报 名" name="submit1">
          </form></td></tr>
     <%else%>
        <%set rs4=server.CreateObject ("ADODB.recordset")
		sql="select * from join_party where id="&Request("id")
		sql=sql&" and user_name='"&Session("Current_user")&"'"
		rs4.Open sql,conn1,3
		 %> 
		 <%if rs4.RecordCount=0 then%>
        <form name="join" method="post" action="party_join_party.asp">
        <tr bgColor="#f5f5f5">
          <td height="25" align="center"> 
          <B><FONT color=#ff9933>　<%=Session("Current_user")%> 请在此报名：</FONT></B></td></tr>
       <input type="hidden" value="<%=Request("id")%>" name="id" id="1"> 
        <input type="hidden" value="<%=initiate_people%>" name="initiate_people"> 
         <tr bgColor="#f5f5f5">
          <td vAlign="center" align="middle">
         <input type="submit" value="报 名" name="submit9">
         
          </td></tr></form>
            <%else%>
            
            <form name="del_join" method="post" action="del_party_join11.asp">
			<tr bgColor="#f5f5f5">
			<td height="25" align="center"> 
          <B><FONT color=#ff9933>　<%=Session("Current_user")%> 解除报名：</FONT></B></td></tr>
			<input type="hidden" value="<%=Request("id")%>" name="id" id="2"> 
			<input type="hidden" value="<%=initiate_people%>" name="initiate_people"> 
			<tr bgColor="#f5f5f5">
			<td vAlign="center" align="middle">
			<input type="submit" value="解除报名" name="submit8">
         
            </td></tr></form>
            <%end if%>
      <%end if%>
        <tr bgColor="#f5f5f5">
          <td vAlign="center" align="middle">&nbsp;</td></tr></tbody></table>      <table cellSpacing="1" cellPadding="0" width="100%" align="center" border="1" borderColorLight=#808080 >
        <tbody>
        <%set rs5=server.CreateObject ("ADODB.recordset")
		sql="select * from join_party where id="&Request("id")
		sql=sql&" order by time"
		rs5.Open sql,conn1,3
		rows=1
		 %> 
        <tr bgColor="#ffffff">
          <td align="middle" colSpan="5" height="25">最 新 报 名 名 单 &nbsp; <img height="15" src="images/star1.gif" width="15" align="absBottom">表示有照片 <br>（共计<%=rs5.RecordCount%>人） </td></tr>
        <tr bgColor="#deefff">
          <td align="middle" height="23"><b>编号</b></td>
          <td align="middle" height="23"><b>用户名</b></td>
          <td align="middle" height="23"><b>性别</b></td>
          <td align="middle" height="23"><b>年龄</b></td>
          <td align="middle" height="23"><b>昵称</b></td></tr>
    
    <%while not(rs5.EOF)			
          %>   
        <tr bgColor="#ffffff">
          <td align="middle" height="23"><%=rows%>.</td>
          <td align="middle" height="23">
        <%if rs5("photo")>0 then%>
          <img height="15" src="images/star1.gif" width="15" align="absBottom">
         <%else
         %>  &nbsp; <%end if%> 
            <%=rs5("user_name")%> </td>
          <td align="middle" height="23"><%=rs5("sex")%></td>
          <td align="middle" height="23"><%=rs5("age")%></td>
          <td align="middle" height="23"><A 
            href="../love/show_user.asp?user_name=<%=rs5("user_name")%>"
            target=_blank><%=rs5("nickname")%></A></td></tr>
     <%rows=rows+1
		rs5.movenext
      wend%>    
        </tbody></table>       
            
            
      </td>
    <!--左边部分结束-->
    <td vAlign="top" width="50%">
      
      
  
      <form name="Discuss" action="party_add_discuss.asp" method="post" onsubmit="checkform()">
      <input type="hidden" value="<%=Request("id")%>" name="id" id="3"> 
      <input type="hidden" value="<%=initiate_people%>" name="initiate_people">
      
      <table cellSpacing="0" cellPadding="0" width="90%" align="center" border="0">
        <tbody>
        <tr bgColor="#f5f5f5">
          <td height="25">
            <div align="center"><B><FONT color=#ff9933>请在此发表你的意见：</FONT></B></div></td></tr>
        <tr bgColor="#f5f5f5">
          <td vAlign="center" align="middle">
          <textarea name="discuss_content" rows="5" cols="30"></textarea> <br>
          <%if Session("Current_user")="__anonymous" then
       %>
          <input id="submit3" onclick="JavaScript:alert('请先登录！');" type="button" value="发布讨论意见" name="submit2"> 
        <%else%>
			<input id="submit4" type="submit" value="发布讨论意见" name="submit2"> 
        <%end if%>  
          </td></tr>
        <tr bgColor="#f5f5f5">
          <td vAlign="center" align="middle">&nbsp;</td></tr></tbody></table></form>
      <table cellSpacing="0" cellPadding="0" width="90%" align="center" border="0">
        <tbody>
        <tr bgColor="#deefff">
          <td align="middle" height="25"><b>聚 会 讨 论</b> </td></tr>
        <tr>
          <td>
         <%set rs8=server.CreateObject ("ADODB.recordset")
			sql="select * from party_discuss where id="&Request("id")
			sql=sql&" order by time desc"
 			rs8.Open sql,conn1,3
		  rows=1     
         while not(rs8.eof) and rows<6
			
			discuss_content=replace(rs8("discuss_content"),"~"," ",1,-1,1)
          %>   
            <hr align="left" width="100%" color="#a9a9a9" SIZE="0">
            姓名：<FONT color=#d2691e><A 
            href="../love/show_user.asp?user_name=<%=rs8("user_name")%>" 
            target=_blank><%=rs8("user_name")%></A></FONT>&nbsp;&nbsp;&nbsp;&nbsp;时间：<%=rs8("time")%>
            <br>发言：<%=discuss_content%><br>
          <%
          rows=rows+1
          rs8.movenext
         
          wend
          %>  
            
            <a href="party_discuss_list.asp?id=<%=id%>" target="_blank">&gt;&gt;&gt;查看详细讨论</a> 
		</td></tr></tbody></table>
  </td></tr></tbody></table>

</body>
</html>
