📄 history_party_info.asp
字号:
<%@ 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 > </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> -> <a href="party_index.asp">网友聚会</a> -> <a href="history_party.asp">历史聚会</a> ->历史聚会详细资料</td></tr></tbody></table>
<table width="770" align="center">
<tbody>
<%if initiate_people=Session("Current_user") then
%>
<TR>
<TD align=right colSpan=2>聚会发起人管理： [聚会修改] [<A
href="party_del_party.asp?id=<%=id%>"
>聚会删除</A>] [
报名和讨论管理]
</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%> </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"> </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">最 新 报 名 名 单 <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
%> <%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"> </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> 时间：<%=rs8("time")%>
<br>发言：<%=discuss_content%><br>
<%
rows=rows+1
rs8.movenext
wend
%>
<a href="party_discuss_list.asp?id=<%=id%>" target="_blank">>>>查看详细讨论</a>
</td></tr></tbody></table>
</td></tr></tbody></table>
<p align="center"><!--#include file="../../copyright.asp" --></body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -