<%@ Language=VBScript %>
<%if Session("weight")<>5 then 
Response.Redirect "error.asp?cause=4"
 end if
%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<LINK 
href="css/default.css" rel=stylesheet>
</HEAD>
<BODY bgcolor=#FFFBE7>
<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<%
    rows=1
	set rs=server.CreateObject ("ADODB.recordset")
  sql="select * from party where is_history="&Request("is_history")
   rs.Open sql,conn1,3,2
	if rs.RecordCount<>0 then
		province=rs("province")
	end if
	
%>
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
  <TBODY>
  <TR >
    <TD  align=left > <font size=4  color=#ff9933>网友聚会管理 </font></TD>
   </TR> <TR>
    <TD > <a href="party_manage.asp?is_history=0"><font size=4 >最新聚会列表</font></a><font size="4"> <----->
    <a href="party_manage.asp?is_history=1">历史聚会列表</a></font> </TD></TR>
</TBODY>    
 </table>   
    
    
    
  <%if request("is_history")=0 then
		temp="最新"
	else 
		temp="历史"
	end if
  %>
  <BR><BR>
 <TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
  <TBODY>
  <TR> 
  
    <TD>
      <P align=center><B><FONT color=#ff9933><%=temp%>聚会列表</FONT></B></P>
      <TABLE cellSpacing=1 width="100%" align=center bgColor=#FFCC33>
        <TBODY> 
        <TR bgcolor="#FFE28C" > 
          <TD align=middle width=30 height=23>&nbsp;</TD>
          <TD align=middle height=23><STRONG>聚会主题</STRONG></TD>
          <TD align=middle height=23><STRONG>发起人</STRONG></TD>
          <TD align=middle height=23><STRONG>聚会地点</STRONG></TD>
          
          <TD align=middle height=23><STRONG>聚会时间</STRONG></TD>
    <%if Request("is_history")=0 then%>      
          <TD align=middle height=23><STRONG>变成历史聚会</STRONG></TD>
    <%end if%>      
          <TD align=middle height=23><STRONG>聚会删除</STRONG></TD>
          </TR>
  <%while not rs.EOF
     
  %> 
        
        <TR align=middle bgColor=#FFFBE7>
          <TD height=23><%=rows%></TD>
          <TD><A 
            href="party_show.asp?id=<%=rs("id")%>" target=_blank
            ><%=rs("party_name")%></A></TD>
          <TD height=23><%=rs("initiate_people")%></TD>
          <TD><%=rs("address")%> </TD>
          <TD><%=rs("party_time")%></TD>
          <%if Request("is_history")=0 then%>     
           <TD><A href="party_history_change.asp?id=<%=rs("id")%>&is_history=<%=Request("is_history")%>&flag=2" >变成历史聚会</A></TD>
          <%end if%> 
          <TD><A href="manager_del_party.asp?id=<%=rs("id")%>&is_history=<%=Request("is_history")%>" >聚会删除</A></TD>
          </TR>
    <%
    rows=rows+1
    rs.MoveNext
    wend%>    
        </TBODY></TABLE></TD></TR></TBODY></TABLE>
<HR width="100%" SIZE=1>



</BODY>
</HTML>
