📄 manage.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="chkmanage.asp"-->
<!--#include file="inc/const1.asp"-->
<!--#include file="inc/const2.asp"-->
<!--#include file="inc/char.asp"-->
<%
Response.Buffer =True
Response.ExpiresAbsolute =Now() - 1
Response.Expires=0
Response.CacheControl="no-cache"
%>
<html>
<head>
<title>留言删除修改--<%=lybtitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="css.asp"-->
<base target="_self">
<script>
function deletes()//
{
return window.confirm( "你是否真的要删除吗？ ");
}
</script>
</head>
<body topmargin="1" bgcolor="<%=bodybgcolor%>" alink=<%=alink%> vlink=<%=vlink%> link=<%=link%> >
<!--#include file="menu.asp"-->
<%
sql="select * from guest order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<p align=center>还 没 有 任 何 留 言</p>"
else
'分页的实现
Rs.pagesize=listnum
page=Request("page")
if (page-Rs.pagecount) > 0 then
page=Rs.pagecount
elseif page = "" or page < 1 then
page = 1
end if
Rs.absolutepage=page
'编号的实现
j=rs.recordcount
j=j-(page-1)*listnum
i=0
do while not rs.eof and i<listnum
%>
<hr noshade width="650" size="1" color="#C0C0C0">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="<%=bordercolor%>" width="650" height="76" align="center">
<tr>
<td width="527" height="13" bgcolor="<%=infobg%>" >
<p align="left"> <b>留言人:</b><%=rs("guestname")%> <b>时间:</b><%=rs("guestdate")%>
<b>IP:</b><%=rs("ip")%> <a href="admin_lockip.asp?banip=<%=rs("ip")%>&do=lock">封杀此IP</a> <a href="admin_lockip.asp?banip=<%=rs("ip")%>&do=unlock">解锁此IP</a></td>
<td width="117" height="13" bgcolor="#EEF2F7">
<p align="center"><font color="#FF0000">
<a href="admin_editly.asp?id=<%=rs("id")%>">
<font color="#FF0000">编辑</font></a></font>|<a href="dele.asp?action=admin&id=<%=rs("id")%>"><font color="#FF0000" onclick= "return deletes()">删除</font></a>|<a href="reply.asp?id=<%=rs("id")%>" ><font color="#FF0000">回复</font></a></td>
</tr>
<tr>
<td width="644" height="53" colspan="2" valign="top" style="word-break: break-all; font-size: 10pt" bgcolor="<%=tablebgcolor%>" ><br>
<br>
<p style="padding-left:4px;MARGIN-TOP:2px;MARGIN-BOTTOM:2px;MARGIN-LEFT:2px;MARGIN-RIGHT:2px;word-wrap: break-word"> <%
if len(rs("guestcontent"))>520 then
response.write ubbcode(left(rs("guestcontent"),520))
else
response.write ubbcode(rs("guestcontent"))
end if
%>
</p>
<br>可能来自：<%=rs("comefrom")%>
<p> </td>
</tr><%if rs("guestreply")<>"" then %>
<tr>
<td width="528" height="6" bgcolor="<%=infobg%>" valign="top"><b> 回 复:</b></td>
<td width="116" height="6" bgcolor="#EEF2F7" valign="top" style="word-break: break-all; font-size: 10pt">
<p align="center"><font color="#FF0000">
<a href="reply.asp?id=<%=rs("id")%>">
<font color="#FF0000">编辑回复</font></a></font></td>
</tr>
<tr>
<td width="644" height="42" colspan="2" bgcolor="#EEF2F7" valign="top" style="word-break:break-all"> <p style="padding-left:4px;MARGIN-TOP:2px;MARGIN-BOTTOM:2px;MARGIN-LEFT:2px;MARGIN-RIGHT:2px"> <%=ubbcode(rs("guestreply"))%></p> </td>
</tr><%end if%>
</table>
<div align="center">
<%
rs.movenext
i=i+1
j=j-1
loop
%>
<table align=center cellpadding="0" bgcolor="<%=tablebgcolor%>" cellspacing="0" width="650" height="17">
<tr>
<td width="100%" style="padding: 6">
总计留言<%=Rs.recordcount%>条 共有<%=page%>/<%=Rs.pagecount%>页 跳到第
<% for go=1 to Rs.pagecount
%>
<a href=manage.asp?page=<%=go%>><%=go%></a>
<%next%>页 <% if page=1 then %> <%else%><a href=manage.asp?page=<%=page-1%>>上一页</a> <%end if%><% if Rs.pagecount-page <> 0 then %><a href=manage.asp?page=<%=page+1%>>下一页</a> <%else%> <%end if%> </td>
</tr>
</table>
<%end if%>
<hr noshade width="650" size="1" color="#C0C0C0">
<!--#include file="menu.asp"-->
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -