📄 admin_zxbook.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="TurnPage.asp" -->
<!--#include file="admin_check.asp" -->
<%
call manager(session("grade"),session("adminname"),2)
Dim RowCount
RowCount = 500 '每页显示的记录条数
set rs=server.CreateObject("adodb.recordset")
xdel=trim(request("xdel"))
'删除某留言
if xdel="del" then
rs.open "delete from xinxibook where 编号=" &trim(request("id")) ,conn,3,3
response.redirect "admin_zxbook.asp"
end if
rs.open "select * from xinxi order by 编号 desc",conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理 - 资讯评论管理</title>
<link href="admin.css" rel="stylesheet" type="text/css">
</head>
<body>
<div align="center">
<table width="960" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse">
<tr>
<td width="160" valign="top"> <!--#include file="admin_left.asp" --></td>
<td width="800" align="center" valign="top">
<table width="800" border="0" cellpadding="3" cellspacing="0" bgcolor="#DFEAF2" style="border-collapse: collapse">
<tr bgcolor="#333333">
<td height="20" bgcolor="#FFFFFF">选择</td>
</tr>
<tr bgcolor="#333333">
<td height="25" bgcolor="#FFFFFF"><% Call TurnPage(Rs,RowCount)%></td>
</tr>
</table>
<table width="800" border="0" cellpadding="3" cellspacing="1" bgcolor="#DFEAF2">
<tr bgcolor="#0099FF" height="30">
<td width="60" align="center"><font color="#FFFFFF">资讯</font></td>
<td width="40" align="center"><font color="#FFFFFF">留言数</font></td>
<td width="700" align="center"><font color="#FFFFFF">留言</font></td>
</tr>
<%
If Not rs.eof then
Do while Not rs.eof and RowCount>0
set rspl=server.CreateObject("adodb.recordset")
rspl.open "select * from xinxibook where 资讯编号=" & rs("编号")& " order by 编号 desc",conn,1,1
if rspl.recordcount>0 then
%>
<tr bgcolor="#FFFFFF" height="30" onMouseOver='this.style.backgroundColor="#CAE5E8"' onMouseOut='this.style.backgroundColor=""'>
<td align="center"><a href="admin_zxedit.asp?id=<%=rs("编号")%>"><%=rs("名称")%></a></td>
<td align="center" style="color: red; font-weight: bold"><%=rspl.recordcount%></td>
<td>
<%Do while not rspl.eof
response.write ("<font color=#FF0000>·</font><a href='#'>" &rspl("发言内容")& "<br><font color=#999999>" &rspl("发言者姓名")&" | "&rspl("发言者联系方式")&" | "&rspl("发言时间")&"</font></a> <a style='color: #FF0000' href='?xdel=del&id="& rspl("编号")&"'>【删除】</a><br>")
rspl.movenext
Loop
%>
</td>
</tr>
<% rspl.close
set rspl=nothing
end if
RowCount = RowCount - 1
rs.MoveNext
Loop
end if%>
</table>
</td>
</tr>
</table>
</div>
<% rs.close:conn.close
set rs=nothing:set conn=nothing
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -