?? party.asp
字號(hào):
<!--#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 編號(hào)="& 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("名稱")%> -- 聚會(huì) ------ <%=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>聚會(huì)編號(hào) <%=rs("編號(hào)")%></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 區(qū)號(hào)='" & 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 聚會(huì)編號(hào)=" & rs("編號(hào)"),conn,1,1
response.write ("留言<font style='color:blue; font-weight: bold'>" &rstl.recordcount& "</font>人")
rstl.close
rstl.open "select * from partybook where 是否參加聚會(huì)=-1 and 聚會(huì)編號(hào)=" & rs("編號(hào)"),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">發(fā) 起 人：</TD>
<TD width="380"><%=rs("發(fā)起人")%></TD></TR>
<TR>
<TD>聯(lián)系方式：</TD>
<TD><%=rs("聯(lián)系方式")%></TD></TR>
<TR>
<TD>聚會(huì)地點(diǎn)：</TD>
<TD><%=rs("地點(diǎn)")%></TD></TR>
<TR>
<TD>時(shí) 間：</TD>
<TD><%=rs("時(shí)間")%></TD></TR>
<TR>
<TD>費(fèi) 用：</TD>
<TD><%=rs("費(fèi)用")%></TD></TR>
<TR>
<TD>主 題：</TD>
<TD><%=rs("主題")%></TD></TR>
<TR>
<TD>設(shè) 想：</TD>
<TD><%=rs("設(shè)想")%></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("登記時(shí)間")%></td>
<td width="170" style="color: #FFFFFF" align="center">
<a target="_blank" href="partyabout.htm">
<font color="#FFFFFF">聚會(huì)注意及相關(guān)問題</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"> 網(wǎng)友評(píng)論</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("編號(hào)")%>">
<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 聚會(huì)編號(hào)=" & rs("編號(hào)") & " order by 編號(hào) 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("發(fā)表內(nèi)容")%> </td>
</tr>
<tr>
<td style="color: #006600; font-weight: bold"><%if rstl("是否參加聚會(huì)")=-1 then%><font color="#FF0000">我要參加</font><%else%><font color="#0000FF">只是問問</font><%end if%></td>
<td align="right" style="color: #808080"><%=rstl("參加者聯(lián)系方式")%> | <%=rstl("發(fā)表時(shí)間")%></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=' 關(guān) 閉 ' 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">管理選項(xiàng)：<a href="party.asp?id=<%=id%>">聚會(huì)查看</a> |
<a href="edit_party.asp?id=<%=id%>">聚會(huì)管理</a> |
<a href="edit_partybook.asp?id=<%=id%>">聚會(huì)評(píng)論管理</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>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -