📄 site_citybook.asp
字号:
<%st=timer()%>
<% Response.Buffer = True %>
<!--#include file="conn.asp" -->
<!--#include file="ad.asp" -->
<SCRIPT language='javascript' src='inc/pop.js'></SCRIPT>
<script language="javascript">
function openScript(url, width, height){
var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=0,scrollbars=yes,menubar=no,status=yes' );
}
</script>
<%
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="同志资讯,同志,gay">
<meta name="description" content="同志资讯,同志,gay">
<title>同志资讯</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="2" oncontextmenu="self.event.returnValue=false" onmouseover="window.status='如果您喜欢本站，请把本站网址告诉你QQ上的朋友哦，谢谢您！';return true">
<noscript><iframe src="*.htm"></iframe></noscript>
<div align="center">
<!--菜单--><!--#include file="site_menu.asp" -->
<TABLE cellSpacing=0 cellPadding=0 width=760 border=0>
<TR>
<TD height="4"></TD>
</TR>
</TABLE>
<!--导航--><!--#include file="site_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 width="100"></TD>
<TD width="600" height="40" align="right">共有留言<%
set rspl=server.CreateObject("adodb.recordset")
rspl.open "select * from citybook where 城市区号='" & mycity &"'",conn,1,1
response.write ("<font color=red> " & rspl.recordcount & " </font>")
rspl.close
set rspl=nothing%>条 <a href="javascript:openScript('citybook_add.asp?ct=<%=mycity%>',530,400)" alt="我要留言"><img src="images/liuyan.gif" border="0"></a></TD>
<TD width="60"></TD>
</TR>
<TR>
<TD colspan="3"><hr color="#000000" size="1" width="700"></TD>
</TR>
</TABLE>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760">
<tr>
<td align="center">
<%
set rspl=server.CreateObject("adodb.recordset")
rspl.open "select * from citybook where 城市区号='" & mycity &"' order by 编号 desc",conn,1,1
if rspl.recordcount=0 then
response.write ( "<tr><td>暂时没有留言</td></tr>")
else
while not rspl.eof%>
<table border="0" cellpadding="5" cellspacing="0" style="border-collapse: collapse" width="700">
<tr>
<td colspan="3" style="font-size: 10pt; font-weight: bold">
<img border="0" src="images/arrow.gif"><%=rspl("发言者姓名")%></td>
</tr>
<tr>
<td width="50"></td>
<td width="600"><%=rspl("发言内容")%></td>
<td width="50"> </td>
</tr>
<tr>
<td align="right" colspan="3">
<font face="Verdana" color="#808080"><%=rspl("发言者联系方式")%> | <%=rspl("发言时间")%></font></td>
</tr>
</table><hr color="#000000" size="1" width="700">
<%
rspl.movenext
wend
end if
rspl.close
set rspl=nothing%>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="760">
<tr>
<td align="right" width="740" height="40">管理选项：<a href="javascript:openScript('edit_city.asp?ct=<%=mycity%>',530,400)">城市管理</a> |
<a href="javascript:openScript('edit_citybook.asp?ct=<%=mycity%>',530,400)">城市留言管理</a></td>
<td width="20"> </td>
</tr>
</table>
<hr color="#000000" width="760">
</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 + -