📄 party.asp
字号:
<!--#include file="config.asp" -->
<!--#include file="ad.asp" -->
<%
dim id
id=trim(request("id"))
if len(id)=0 then response.redirect "ok.asp?ok=carderror0" end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from party where 编号="& id,conn,1,1
if rs.eof or rs.bof then response.redirect "ok.asp?ok=carderror" end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name=keywords content="<%=sitekeywords%>">
<meta name="description" content="<%=sitedescription%>">
<title><%=rs("名称")%> -- 聚会 ------ <%=sitename%></title>
<link href="style.css" rel="stylesheet" type="text/css">
<style>
<!--
.cardSelected1 {
BORDER-RIGHT: 1px solid #b1b0b0; BORDER-TOP: 4px solid #ffa55b; BACKGROUND: #ff7300; BORDER-LEFT: 1px solid #b1b0b0; COLOR: #FFFFFF; BORDER-BOTTOM: 1px solid #cc3300; HEIGHT: 25px; font-size:10pt; font-weight:bold
}
.cardNormal1 {
BORDER-RIGHT: 1px solid #b1b0b0; BORDER-TOP: 1px solid #b1b0b0; BACKGROUND: #f1f1f1 url('images/card_bg.gif'); BORDER-LEFT: 1px solid #b1b0b0; PADDING-TOP: 4px; BORDER-BOTTOM: 1px solid #cc3300; font-size:10pt; color:#003300; font-weight:bold
}
.boardMain {
BORDER-RIGHT: #b1b0b0 1px solid; BORDER-TOP: #cc3300 1px solid; PADDING-BOTTOM: 5px; BORDER-LEFT: #b1b0b0 1px solid; LINE-HEIGHT: 150%; PADDING-TOP: 5px; BORDER-BOTTOM: #b1b0b0 1px solid; HEIGHT: 100px; BACKGROUND-COLOR: #f1f1f1
}
-->
</style>
</head>
<body leftmargin="5" topmargin="5" oncontextmenu="self.event.returnValue=false" >
<noscript><iframe src="*.htm"></iframe></noscript>
<div align="<%=sitealign%>">
<TABLE cellSpacing=0 cellPadding=0 width="500" border=0 style="border-collapse: collapse" height="30">
<TR align=middle>
<TD class=cardSelected1 noWrap width=200><IMG height=15 src="images/card_contact.gif" width=23 align=absMiddle border=0>聚会编号 <%=rs("编号")%></TD>
<TD class=cardNormal1 width=300 align="right" style="font-size: 11pt; font-weight: bold">
<% set rslb=server.CreateObject("adodb.recordset")
rslb.open "select * from city where 区号='" & rs("城市")&"'",conn,1,1
response.write ( rslb("省份") & " " & rslb("城市") &"市 " )
rslb.close
set rslb=nothing
%>
</TD>
</TR>
</TABLE>
<TABLE class=boardMain cellSpacing=0 cellPadding=5 width="500" border=0 style="border-collapse: collapse">
<TR>
<TD height=40 style="font-size: 12pt; font-weight: bold; color:#FF6600" width="300"> <%=rs("名称")%></TD>
<TD height=40 width="260" valign="bottom" align="right">
<%set rstl=server.CreateObject("adodb.recordset")
rstl.open "select * from partybook where 聚会编号=" & rs("编号"),conn,1,1
response.write ("留言<font style='color:blue; font-weight: bold'>" &rstl.recordcount& "</font>人")
rstl.close
rstl.open "select * from partybook where 是否参加聚会=-1 and 聚会编号=" & rs("编号"),conn,1,1
response.write (" | 参加<font style='color:red; font-weight: bold'>" &rstl.recordcount& "</font>人")
rstl.close
set rstl=nothing%>
</TD></TR>
<TR>
<TD colSpan=2 width="480" align="center">
<TABLE cellSpacing=0 cellPadding=4 width="460" border=0 style="border-collapse: collapse">
<TR>
<TD width="80">发 起 人：</TD>
<TD width="380"><%=rs("发起人")%></TD></TR>
<TR>
<TD>联系方式：</TD>
<TD><%=rs("联系方式")%></TD></TR>
<TR>
<TD>聚会地点：</TD>
<TD><%=rs("地点")%></TD></TR>
<TR>
<TD>时 间：</TD>
<TD><%=rs("时间")%></TD></TR>
<TR>
<TD>费 用：</TD>
<TD><%=rs("费用")%></TD></TR>
<TR>
<TD>主 题：</TD>
<TD><%=rs("主题")%></TD></TR>
<TR>
<TD>设 想：</TD>
<TD><%=rs("设想")%></TD></TR>
</TABLE>
</TD>
</TR>
</TABLE>
<table border="0" cellpadding="0" cellspacing="0" width="500" height="5">
<tr><td></td></tr>
</table>
<table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" width="500" background="images/party_bottombg.gif" height="40">
<tr>
<td width="30" align="center"> </td>
<td width="300" style="color: #FFFFFF">登记日期：<%=rs("登记时间")%></td>
<td width="170" style="color: #FFFFFF" align="center">
<a target="_blank" href="partyabout.htm">
<font color="#FFFFFF">聚会注意及相关问题</font></a></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="500" height="5">
<tr><td></td></tr>
</table>
<TABLE cellSpacing=0 cellPadding=0 width=500 border=0 style="border-collapse: collapse">
<TR>
<TD width=6 height=9 background=images/paycenter_11.gif ></TD>
<TD width=482 background=images/paycenter_12.gif></TD>
<TD width=12 background=images/paycenter_13.gif></TD>
</TR>
<TR>
<TD background=images/paycenter_22.gif></TD>
<TD vAlign=top align="center"><!--广告468*60--><%call ad_1()%></TD>
<TD background=images/paycenter_23.gif></TD></TR>
<TR>
<TD width=6 height=12 background=images/paycenter_31.gif></TD>
<TD background=images/paycenter_32.gif></TD>
<TD width=12 background=images/paycenter_33.gif></TD>
</TR>
</TABLE>
<table border="0" cellpadding="0" cellspacing="0" width="500" height="5">
<tr><td></td></tr>
</table>
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="500">
<tr>
<td bgcolor="#DCDCDC" height="5" colspan="3"></td>
</tr>
<tr>
<td background="images/party_taolun_bg.gif" height="30" style="font-size: 10pt; font-weight: bold" width="160"> 网友评论</td>
<td background="images/party_taolun_bg.gif" height="30" width="240" align="center"></td>
<td background="images/party_taolun_bg.gif" height="30" width="100" align="center"><a href="partybook_add.asp?id=<%=rs("编号")%>">
<img border="0" src="images/liuyan.gif"></a></td>
</tr>
<tr>
<td height="5" colspan="3"></td>
</tr>
</table>
<%
set rstl=server.CreateObject("adodb.recordset")
rstl.open "select * from partybook where 聚会编号=" & rs("编号") & " order by 编号 desc",conn,1,1
while not rstl.eof%>
<table border="2" cellpadding="5" cellspacing="0" style="border-collapse: collapse; padding-left:5" width="500" background="images/party_taolun_bg.gif" bordercolor="#FFFFFF">
<tr>
<td width="100" style="color: #006600; font-weight: bold"><%=rstl("参加者姓名")%> </td>
<td width="400" valign="top" height="50"><%=rstl("发表内容")%> </td>
</tr>
<tr>
<td style="color: #006600; font-weight: bold"><%if rstl("是否参加聚会")=-1 then%><font color="#FF0000">我要参加</font><%else%><font color="#0000FF">只是问问</font><%end if%></td>
<td align="right" style="color: #808080"><%=rstl("参加者联系方式")%> | <%=rstl("发表时间")%></td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" width="500" height="3">
<tr><td></td></tr>
</table>
<%
rstl.movenext
wend
rstl.close
set rstl=nothing%>
<table border="0" cellpadding="0" cellspacing="0" width="500">
<tr><td align="center" height="10"></td></tr>
<tr><td align="center" height="40"><form>
<input type='button' value=' 关 闭 ' onclick='window.close()'></form></td></tr>
<tr><td align="center" height="10"></td></tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="500">
<tr>
<td align="right" width="490" height="40">管理选项：<a href="party.asp?id=<%=id%>">聚会查看</a> |
<a href="edit_party.asp?id=<%=id%>">聚会管理</a> |
<a href="edit_partybook.asp?id=<%=id%>">聚会评论管理</a> |
<a href="edit_login.asp">管理登陆</a> |
<a href="edit_logout.asp">退出登录</a></td>
<td width="10"> </td>
</tr>
</table>
</div>
<%
rs.close
set rs=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -