<%@ Language=VBScript %>
<%if Session("weight")<>5 then 
Response.Redirect "error.asp?cause=4"
 end if
%>
<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>

<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<LINK 
href="css/default.css" rel=stylesheet>
<%
    
	set rs=server.CreateObject ("ADODB.recordset")
  sql="select * from party where weight=1 and is_history=0"
   rs.Open sql,conn1,3,2
	if rs.RecordCount<>0 then
		sys_party_name=rs("party_name")
		sys_party_content=rs("party_content")
		sys_id=rs("id")
     end if
	
%>
<TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
  <TBODY>
  <TR >
    <TD  align=left ><font size=5 color=#ff9933> 系统发起聚会管理 </font></TD>
   </TR> 
</TBODY>    
 </table>   
    
    
    
 
  <BR><BR>
 <TABLE cellSpacing=0 cellPadding=0 width=100% align=center border=0>
  <TBODY>
  <TR> 
  
    <TD>
      <P align=center><B><FONT color=#ff9933>现有系统发起聚会列表</FONT></B></P>
      <TABLE cellSpacing=1 width="100%" align=center class=color_1 >
        <TBODY >
        <TR bgColor=#FFE28C>
          
          <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>
          <TD align=middle  height=23><STRONG>变成历史聚会</STRONG></TD>
          <TD align=middle  height=23><STRONG>聚会删除</STRONG></TD>
          </TR>
  <%while not rs.EOF
     
  %> 
        
        <TR align=middle bgColor=#FFFBE7>
         
          <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>
          <TD><A href="party_history_change.asp?id=<%=rs("id")%>&flag=1" >变成历史聚会</A></TD>
          <TD><A href="manager_del_party.asp?id=<%=rs("id")%>&flag=1" >聚会删除</A></TD>
          </TR>
    <%
    rows=rows+1
    rs.MoveNext
    wend%>    
        </TBODY></TABLE></TD></TR></TBODY></TABLE>
<HR width="100%" SIZE=1>
<p><a href="system_party_preshow.asp" target=_blank><font size=4>[显示效果查看]</a>
<a href="party_add_party.asp">[新建聚会]</a>


</font></p>
<BR>
<HR width="100%" SIZE=1>
<table cellSpacing="0" cellPadding="0" width="100%" align="center" border="0">
  <tbody>
  
  <tr>
    <td>
    <FORM action="add_public_note.asp" method=POST id=form1 name=form1>
    <table border="0" cellspacing="0" height="45">
         <INPUT type="hidden" id=text1 name=object value=1>
          <tr>
            <td height="25"  align=center><b><font size=4 color=#ff9933>聚会公告:</font></b></td>
           </tr>
          <tr>
          <td valign="top">
            <textarea  class=input2 rows="8" name="public_note" cols="44" wrap="hard"></textarea></td>
          </tr>
         
        <tr>
            <td height="30"  valign="middle">
              <p align=center><input  class=input2 type="submit" value="提交" name="B1">&nbsp;&nbsp;<input  class=input2 type="reset" value="重写" name="B2"></td>
        </tr>
        </table>
   </FORM> 
    </td>
 <%set rs=server.CreateObject ("ADODB.recordset")
    
   sql="select * from public_note where object=1 order by time desc"
   rs.Open sql,conn1,3
  if rs.RecordCount<>0 then
	
	public_note=rs("public_note")
	
	
  end if
 %>   
    <td>
          <table cellSpacing="0" cellPadding="0"  border="0">
              <tbody>
              <tr>
                <td><img height="23" src="images/klatch_board_top.gif" width="218"></td></tr>
              <tr>
                <td background="images/klatch_board_mid.gif">
                  <table cellSpacing="0" cellPadding="0" width="90%" align="center" border="0">
                    <tbody>
                    <tr>
                      <td>  <DIV STYLE="position:absolute; width:200px; height:200px;overflow:hidden">
                     <p> <%=public_note%> </p></DIV></td></tr>
                    <tr>
                      <td vAlign="top" height="150">
                        <br><br></td></tr></tbody></table></td></tr>
                  <tr background="../images/klatch_board_mid.gif">
                <td><img height="12" src="images/klatch_board_bot.gif" width="218">
                </td></tr>
                </tbody></table>
             
   </td>
   </tr></tbody></table>


</BODY>
</HTML>
