<%@ Language=VBScript %>
<html>
<head>
<title>缘分的天空</title>
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<link rel="stylesheet" href="../../images/css.css" type="text/css">
</head>
<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<p align="center"><SCRIPT LANGUAGE=javascript>
//<!--
	function sss(URL)
	{
		newwin=window.open('','_blank','fullscreen=0,toolbar=0,location=0,directories=0,status=0,menubar=0,scrollbars=0,resizable=0');
		if(document.all){
		newwin.moveTo(200,40 )
		newwin.resizeTo(400,400 );
		}
		newwin.location=URL
		newwin.focus();
	}

	
//-->
</SCRIPT>
<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 is_history=1 and 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") 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>
<!--#include file="top" --><table cellSpacing="0" cellPadding="0" width="770"  border="0" align="center">
 <tr class=my_party height="2" >
    <td >&nbsp;</td>
      </tr>
 </table> 
<table cellSpacing="0" cellPadding="0" width="770" align="center" border="0">
  <tbody>
  <tr class=my_party2>
    <td>　<a href="../../default.asp">首页</a> -&gt; <a href="party_index.asp">网友聚会</a> -&gt;  <a href="history_party.asp">历史聚会</a> -&gt;历史聚会详细资料</td></tr></tbody></table>
<table width="770" align="center">
  <tbody>
  <%if initiate_people=Session("Current_user") then
  
  %>
  <TR>
    <TD align=right colSpan=2>聚会发起人管理： [聚会修改]&nbsp; [<A 
      href="party_del_party.asp?id=<%=id%>" 
      >聚会删除</A>]&nbsp; [ 
      报名和讨论管理]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
      </TD>
      </TR>
  <%end if%>
  <tr>
    <td vAlign="top" align="middle" width="50%">
      <table cellSpacing="0"  align="center" cellSpacing=0 borderColorDark=#ffffff 
            cellPadding=0 width="100%"  borderColorLight=#808080 class=my_party_border
            border=1>
        <tbody class=my_party2>
        <tr class=my_party>
          <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="../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"><a href="../../default.asp">点击这里登陆</a></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"  disabled>
         
          </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"  disabled>
         
            </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 class=my_party>
          <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="../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"  disabled> 
        <%else%>
			<input id="submit4" type="submit" value="发布讨论意见" name="submit2"  disabled> 
        <%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 class=my_party>
          <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="../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>
<p align="center"><!--#include file="../../copyright.asp" --></body>
</html>
