📄 cityparty.asp
字号:
<%st=timer()%>
<% Response.Buffer = True %>
<!--#include file="config.asp" -->
<!--#include file="ad.asp" -->
<%
dim mycity, mylb
mycity=trim(request("ct"))
if len(mycity)=0 then response.redirect "ok.asp?ok=error" end if
mylb=trim(request("lb"))
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from city where 审核=-1 and 区号='"& mycity &"'",conn,1,1
if rs.eof or rs.bof then response.redirect "ok.asp?ok=error" 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("城市")%>市（<%=rs("省份")%>） -- <%=sitename%></title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="2" oncontextmenu="self.event.returnValue=false" >
<noscript><iframe src="*.htm"></iframe></noscript>
<div align="<%=sitealign%>">
<!--#include file="title.asp" -->
<!--菜单--><!--#include file="menu.asp" -->
<TABLE cellSpacing=0 cellPadding=0 width=760 border=0>
<TR>
<TD height="4"></TD>
</TR>
</TABLE>
<!--聚会--><!--#include file="daohang.asp" -->
<TABLE cellSpacing=0 cellPadding=0 width=760 border=0>
<TR>
<TD width=38 height=27 background=images/bg2_left.gif></TD>
<TD width=689 background=images/bg2_bg.gif align=middle class=t4>聚会联谊</TD>
<TD width=33 background=images/bg2_right.gif></TD>
</TR>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=760 border=0>
<TR>
<TD height="10"></TD>
</TR>
</TABLE>
<table cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760" border="0">
<tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from party where 审核=-1 and 城市='"& mycity &"' order by 登记时间 desc",conn,1,1
i=1
while not rs.eof
%>
<td width="380" height=160 align=center vAlign=top>
<!--表格开始-->
<TABLE cellSpacing=0 cellPadding=0 width=370 border=0 height=30>
<TR>
<TD width=26 background=images/bg_con09.gif></TD>
<TD width=217 background=images/bg_con01.gif style="font-size: 10pt; font-weight: bold"><a alt='查看〖<%=rs("名称")%>〗的详细信息' href=javascript:openScript('party.asp?id=<%=rs("编号")%>',530,400)><%=rs("名称")%></a></TD>
<TD width=130 background=images/bg_con01.gif align="right"><%set rstl=server.CreateObject("adodb.recordset")
rstl.open "select * from partybook where 聚会编号=" & rs("编号"),conn,1,1
response.write ("<font style='color:blue'>留言" &rstl.recordcount& "人</font>")
rstl.close
rstl.open "select * from partybook where 是否参加聚会=-1 and 聚会编号=" & rs("编号"),conn,1,1
response.write (" | <font style='color:red'>参加" &rstl.recordcount& "人</font>")
rstl.close
set rstl=nothing%></TD>
<TD width=7 background=images/bg_con02.gif></TD>
</TR>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=370 border=0 height=109 style="border-collapse: collapse">
<TR>
<TD width=2 background=images/bg_con03.gif></TD>
<TD width=125 background=images/bg_con07.gif align="center">
<img border="1" src="images/t7.gif" width="80" height="50"><br>发起人：<%=rs("发起人")%><br><%=rs("联系方式")%><br><marquee behavior="alternate" width="60" scrollamount="2" scrolldelay="100" onmouseover="this.stop()" onmouseout="this.start()"><a href="javascript:openScript('party.asp?id=<%=rs("编号")%>',530,400)" style="text-decoration: none" title="查看〖<%=rs("名称")%>〗的详细信息"><font color="#FF0000">详</font><font color="#00CC00">细</font><font color="#FF9900">信</font><font color="#0000FF">息</font></a></marquee></TD>
<TD width=1 background=images/bg_con10.gif></TD>
<TD width=240 background=images/bg_con07.gif align="center">
<TABLE cellSpacing=0 cellPadding=0 border=0 style="border-collapse: collapse">
<TR>
<TD height=18 width="40">主题：</TD>
<TD width="185"><%if rs("主题")<>"" and len(rs("主题"))<19 then
response.write ( left(rs("主题"),18))
else
response.write ( left(rs("主题"),16) &"..." )
end if%></TD></TR>
<TR>
<TD height=18 width="40">地点：</TD>
<TD width="185"><%if rs("地点")<>"" and len(rs("地点"))<19 then
response.write ( left(rs("地点"),18))
else
response.write ( left(rs("地点"),16) &"..." )
end if%></TD></TR>
<TR>
<TD width=40 height=18>时间：</TD>
<TD width="185"><%if rs("时间")<>"" and len(rs("时间"))<19 then
response.write ( left(rs("时间"),18))
else
response.write ( left(rs("时间"),16) &"..." )
end if%></TD></TR>
<TR>
<TD height=18 width="40">费用：</TD>
<TD width="185"><%if rs("费用")<>"" and len(rs("费用"))<19 then
response.write ( left(rs("费用"),18))
else
response.write ( left(rs("费用"),16) &"..." )
end if%></TD></TR>
<TR>
<TD height=18 width="40">设想：</TD>
<TD width="185"><%if rs("设想")<>"" and len(rs("设想"))<19 then
response.write ( left(rs("设想"),18))
else
response.write ( left(rs("设想"),16) &"..." )
end if%></TD></TR>
</TABLE></TD>
<TD width=2 background=images/bg_con05.gif></TD>
</TR>
<TR>
<TD background=images/bg_con06.gif colSpan=9 height=1></TD>
</TR>
</TABLE>
<!--表格结束-->
</td>
<%
if i mod 2=0 then response.write("</tr><tr>") end if
i=i+1
rs.movenext
wend
rs.close
set rs=nothing
%>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760">
<tr>
<td><!--聚会说明--><!--#include file="partyabout.htm" --></td>
</tr>
</table>
<!--文字广告，ad.asp--> <%call ad_bottom()%>
<!--#include file="copyright.asp" -->
</div>
</body></html>
<%
et=timer()
response.write("<br><div align=center>加载网页总用时 "&int((et-st)*1000000)/1000&" ms</div><br><br>")
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -