party_2.asp

广东交友源程序

		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 > 
                  <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 > 
                  <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 > 
                  <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 > 
                  <td valign="center" align="middle" > 
                    <input type="submit" value="解除报名" name="submit8">
                  </td>
                </tr>
              </form>
              <%end if%>
              <%end if%>
              <tr> 
                <td valign="center" align="middle" >　</td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
        <tr> 
          <td> <img src="../../image/love_image/images/wangyoujuhui_left_07.gif" width="393" height="25" alt=""></td>
        </tr>
        <tr> 
          <td background="../../image/love_image/images/wangyoujuhui_left_08.gif" width="393" height="128" valign="top"> 
            <table   bordercolorlight="#cccccc" bordercolordark="#FFFFFF"  cellspacing="1" cellpadding="1" width="95%" border="1"  align="center" >
              <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="#E4E4E4"> 
                <td align="middle" colspan="5" height="25"> 
                  <table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
                    <tr> 
                      <td width="224"><font color="#333333">最新报名名单</font><font color="#666666"> 
                        &nbsp; <img height="10" src="../../image/love_image/pic.gif" width="15" align="absBottom"><font color="#333333">表示有照片 
                        </font></font><font color="#333333"><br>
                        </font></td>
                      <td width="137"><font color="#333333">（共计</font><font color="#666666"><font color="#FF6600" face="Arial, Helvetica, sans-serif"><%=rs5.RecordCount%></font><font color="#333333">人）</font> 
                        </font></td>
                    </tr>
                  </table>
                </td>
              </tr>
              <tr  class=my_party bgcolor="#F3F3F3"> 
                <td align="middle" height="23">编号</td>
                <td align="middle" height="23">用户名</td>
                <td align="middle" height="23">性别</td>
                <td align="middle" height="23">年龄</td>
                <td align="middle" height="23">昵称</td>
              </tr>
              <%while not(rs5.EOF)			
          %>
              <tr bgcolor="#F3F3F3"> 
                <td align="middle" height="23" class="en"><%=rows%>.</td>
                <td align="middle" height="23" class="en"> 
                  <%if rs5("photo")>0 then%>
                  <font color="#666666"><img height="10" src="../../image/love_image/pic.gif" width="15" align="absBottom"></font>
                  <%else
         %>
                  &nbsp; 
                  <%end if%>
                  <%=rs5("user_name")%> </td>
                <td align="middle" height="23"><%=rs5("sex")%></td>
                <td align="middle" height="23" class="en"><%=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>
        </tr>
        <tr> 
          <td> <img src="../../image/love_image/images/wangyoujuhui_left_09.gif" width="393" height="12" alt=""></td>
        </tr>
      </table>
    </td>
    <td valign="top"> 
      <table id="Table_01" width="385" height="572" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td> <img src="../../image/love_image/images/wangyoujuhui_right_01.gif" width="384" height="298" alt=""></td>
        </tr>
        <tr> 
          <td> <img src="../../image/love_image/images/wangyoujuhui_right_02.gif" width="384" height="49" alt=""></td>
        </tr>
        <tr> 
          <td background="../../image/love_image/images/wangyoujuhui_right_03.gif" width="384" height="101" valign="top">
		  
		  <form name="Discuss" action="party_add_discuss.asp" method="post" onsubmit="return(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 align="middle" bgcolor="#FFFFFF"> 
                    <textarea name="discuss_content" rows="7" cols="50" wrap="physical" class="ainput"></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 align="middle" bgcolor="#FFFFFF">　</td>
                </tr>
                </tbody> 
              </table>
            </form>
      
		  
		  
		   
          </td>
        </tr>
        <tr> 
          <td> <img src="../../image/love_image/images/wangyoujuhui_right_04.gif" width="384" height="41" alt=""></td>
        </tr>
        <tr> 
          <td background="../../image/love_image/images/wangyoujuhui_right_05.gif" width="384" height="69"> 
            <table cellspacing="0" cellpadding="0" width=90% align="center" border="0">
              <tbody> 
              <tr > 
                <td width=360> 
                  <%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">
                  <p style="line-height: 150%" class="en">姓名：<font color="#d2691e"><a href="../show_user.asp?user_name=<%=rs8("user_name")%>" target="_blank"><font class="en"><%=rs8("user_name")%></font></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"><font color="#FF0000"><b><br>
                    查看详细讨论</b></font></a> 
                </td>
              </tr>
              </tbody> 
            </table>
          </td>
        </tr>
        <tr> 
          <td> <img src="../../image/love_image/images/wangyoujuhui_right_06.gif" width="384" height="14" alt=""></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
<table cellSpacing="0" cellPadding="0" width="100%"  border="0">
  <tr class=my_party height="2" > 
    <td ></td>
  </tr>
</table>
</center>
</div> 

</td>
<!--左边部分结束-->

</tr></tbody></table>
<!--#include file="../../copyright.asp" --></body>
</html>