📄 adminedit.asp
字号:
<%
if session("fishinfire") = "" then
Response.Redirect "login.asp"
Response.End
end if
%>
<!--#include file="conn.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From guestbook Order By id DESC", conn, 3, 2
%>
<%
order=0
count=rs.RecordCount
pagesize=10
pagecount=count\(pagesize+1)+1
page=request.QueryString("page")
if page="" then
page=1
end if
%><html>
<head>
<title>留言管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../include/site.css">
<body bgcolor="#FFFFFF" text="#000000">
<form name="del" method="post" action="del.asp">
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" background="image/dot.gif" style="TABLE-LAYOUT: fixed">
<tr valign="middle">
<td width="70" height="25" align="center" bgcolor="#FFFFFF">ID</td>
<td width="280" height="25" align="center" bgcolor="#FFFFFF">留言人</td>
<td width="150" height="25" align="center" bgcolor="#FFFFFF">留言时间</td>
<td width="50" align="center" bgcolor="#FFFFFF">审核回复</td>
<td width="50" height="25" align="center" bgcolor="#FFFFFF">删除</td>
</tr>
<%
if not rs.eof then
rs.Move (page-1)*pagesize
cc=(page-1)*pagesize
do while (not rs.eof) and (order<pagesize)
cc=cc+1
order=order+1
%>
<tr valign="middle">
<td height="25" align="center" bgcolor="#FFFFFF"><%=rs("id")%></td>
<td height="25" bgcolor="#FFFFFF"><%=rs("name")%></td>
<td height="25" align="center" bgcolor="#FFFFFF"><%=rs("date")%></td>
<td align="center" bgcolor="#FFFFFF"><a href="answer.asp?id=<%=rs("id")%>">审核回复</a></td>
<td height="25" align="center" bgcolor="#FFFFFF">
<input type="checkbox" name="sel<%=cc%>">
<input name=id<%=cc%> type=hidden value=<%=rs("id")%>></td>
</tr>
<tr valign="middle">
<td colspan="5" bgcolor="#FFFFFF" style="WORD-WRAP: break-word"> <font color="#666666">留言人IP地址：<%=rs("ip")%>
<% if rs("tel")="" then Response.Write "" else Response.Write " <img src='image/qq.gif'> "&rs("tel")&"" %>
</font><% if rs("email")="" then Response.Write "" else Response.Write " <img src='image/mail.gif'> <a href=mailto:"&rs("email")&">"&rs("email")&"</a>" %>
<br><%=rs("content")%>
<% if rs("answer")="暂无回复" then Response.Write "" else Response.Write "<br><font color=#ff0000>【管理员回复】</font>"&rs("answer")&"" %>
</td>
</tr>
<%
rs.movenext
loop
end if
%>
<tr valign="middle">
<td height="25" colspan="5" bgcolor="#FFFFFF"> 共有留言<%=count%>条，目前显示<%=page%>/<%=pagecount%>页
<%if page>1 then%>
<a href="adminedit.asp?page=1">第一页</a> <a href="adminedit.asp?page=<%=page-1%>">上一页</a>
<%end if%>
<%if (page-pagecount)<0 then%>
<a href="adminedit.asp?page=<%=(page+1)%>">下一页</a> <a href="adminedit.asp?page=<%=pagecount%>">最后页</a>
<%end if%>
</td>
<tr valign="middle">
<td height="25" colspan="5" align="center" bgcolor="#FFFFFF">
<input type=hidden name=coun value=<%=cc%>>
<input type="submit" class="mybutton" value="确定操作"> <input type="reset" class="mybutton" value="重新操作">
</td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -