⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 party_manager_party.asp

📁 广东交友源程序
💻 ASP
字号:
<html>
<head>
<title>缘分的天空</title>
<link rel="stylesheet" href="../../images/css.css" type="text/css">
<meta NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</head>
<body leftmargin="0" marginwidth="0" topmargin="0" marginheight="0">
<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
%>

<!--#include file="top.asp" -->

<table align="center"  border="0" cellPadding="10" cellSpacing="1" height="100%" width="770">
                    <tbody>
                    <tr >
                     
                      <td bgcolor="#FFF8E1" vAlign="top"  align=center>	

<br>
<table cellSpacing="0" cellPadding="0" width="95%" align="center" border="0">
  <tbody>
  <tr>
    <td> <a href="../../default.asp">首页</a> -&gt; <a href="party_index.asp">网友聚会</a> -&gt; 聚会报名和讨论管理</td><td align="left"><a href="party_2.asp?id=<%=Request("id")%>">返回上一页</a></td></tr></tbody></table>
 <BR>
 <table cellSpacing="1" cellPadding="0" width="95%" align="center" border="0" bgcolor="#ffcc33" >
        <tbody>
        <%set rs5=server.CreateObject ("ADODB.recordset")
		sql="select * from join_party where id="&Request("id")
		sql=sql&" order by time desc"
		rs5.Open sql,conn1,3
		rows=1
		 %> 
        <tr bgcolor="#FFF8E1" >
          <td align="middle" colSpan="6" height="25">最 新 报 名 名 单 &nbsp; <img height="15" src="../images/star1.gif" width="15" align="absBottom">表示有照片 <br>(共计<%=rs5.RecordCount%>人) </td></tr>
        <tr bgcolor="#FFE28C">
          <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>
          <td align="middle" height="23"><b>操作</b></td></tr>
    
    <%while not(rs5.eof)
			
          %>   
        <tr bgcolor="#FFF8E1">
          <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>
           <td width="10%" align="center"><font color="#d2691e"><a href="del_party_join.asp?id=<%=rs5("id")%>&amp;join_id=<%=rs5("join_id")%>">删除</a></font></td> 
            </tr>
     <%rows=rows+1
		rs5.movenext
      wend%>    
        </tbody></table><br>
<BR>

<%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
%>
<table bgcolor="#ffcc33" border="0" cellPadding="3" cellSpacing="1" width="95%">
          <tr bgcolor="#FFF8E1">
            <td width="522" colspan="6"><b><font color="#008000"><u>有聚会讨论<%=rs8.recordcount%>条</u></font></b></td>
          </tr>
          <tr bgcolor="#FFE28C">
            <td width="15%" align="center" style="border-bottom-style: solid">时间</td>
            <td width="15%" align="center" style="border-bottom-style: solid">姓名:</td>
            <td width="60%" align="center" style="border-bottom-style: solid">内容</td>
            <td width="10%" align="center" style="border-bottom-style: solid">操作</td>
                    <td></td>
                    <td></td>
          </tr>

<%		 
         while not(rs8.eof)
			
			discuss_content=replace(rs8("discuss_content"),"~"," ",1,-1,1)
          %>   
            <tr bgcolor="#FFF8E1">
            <td width="15%" align="center"><%=rs8("time")%></td>
             <td width="15%" align="center"><font color="#d2691e"><a href="../show_user.asp?user_name=<%=rs8("user_name")%>" target="_blank"><%=rs8("user_name")%></a></font></td>
            <td width="60%" align="center"><%=discuss_content%></td>
           <td width="10%" align="center"><font color="#d2691e"><a href="del_party_discuss.asp?id=<%=rs8("id")%>&amp;discuss_id=<%=rs8("discuss_id")%>">删除</a></font></td>
                    <td></td>
                    <td></td>
          </tr>   
          <%
          rs8.movenext
         wend
          %>  
 </tbody></table>
 <BR><BR>
 
  </td></tr></tbody></table>
<!--#include file="../../copyright.asp" -->
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -