?? 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 區(qū)號='"& 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='如果您喜歡本站，請把本站網(wǎng)址告訴你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>
<!--導(dǎo)航--><!--#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 城市區(qū)號='" & 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 城市區(qū)號='" & 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("發(fā)言者姓名")%></td>
</tr>
<tr>
<td width="50"></td>
<td width="600"><%=rspl("發(fā)言內(nèi)容")%></td>
<td width="50"> </td>
</tr>
<tr>
<td align="right" colspan="3">
<font face="Verdana" color="#808080"><%=rspl("發(fā)言者聯(lián)系方式")%> | <%=rspl("發(fā)言時間")%></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>加載網(wǎng)頁總用時 "&int((et-st)*1000000)/1000&" ms</div><br><br>")
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -