📄 manage.asp
字号:
<!--#include file="../manage/check-0.asp"-->
<!--#include file="../conn/conn.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * From sia_guestbook Order By id DESC", conn, 3, 2
%>
<%
order=0
count=rs.RecordCount
pagesize=5
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="../conn/css.css" type="text/css">
<body bgcolor="#FFFFFF" text="#000000">
<table width="600" align="center" style="TABLE-LAYOUT: fixed">
<form name="del" method="post" action="delete.asp"><tr valign="middle">
<td width="70" height="25" align="center" bgcolor="#CCCCCC">ID</td>
<td width="230" height="25" align="center" bgcolor="#CCCCCC">留言人</td>
<td width="130" height="25" align="center" bgcolor="#CCCCCC">留言时间</td>
<td width="120" align="center" bgcolor="#CCCCCC">IP</td>
<td width="50" height="25" align="center" bgcolor="#CCCCCC">删除</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="#f1f1f1"><font color="#FF0000">NO:<%=rs("id")%></font></td>
<td height="25" bgcolor="#f1f1f1"><%=rs("name")%></td>
<td height="25" align="center" bgcolor="#f1f1f1"><%=rs("dateandtime")%></td>
<td align="center" bgcolor="#f1f1f1"><font color="#666666"><%=rs("ip")%></font></td>
<td height="25" align="center" bgcolor="#f1f1f1"> <input type="checkbox" name="sel<%=cc%>">
<input name=id<%=cc%> type=hidden value=<%=rs("id")%>></td>
</tr>
<tr valign="middle">
<td colspan="5" bgcolor="#f1f1f1" style="WORD-WRAP: break-word"> <%=rs("content")%> <font color="#666666">
<% if rs("tel")="" then Response.Write "" else Response.Write "<br> 【联系电话】"&rs("tel")&"" %>
<% if rs("email")="" then Response.Write "" else Response.Write "<br> 【电子信箱】<a href=mailto:"&rs("email")&"?subject=留言回复>"&rs("email")&"</a>" %>
</font></td>
</tr>
<%
rs.movenext
loop
end if
%>
<tr valign="middle">
<td height="25" colspan="5" bgcolor="#f1f1f1"> >>分页 共有留言<%=count%>条，目前显示<%=page%>/<%=pagecount%>页
<%if page>1 then%> <a href="manage.asp?page=1">第一页</a> <a href="manage.asp?page=<%=page-1%>">上一页</a>
<%end if%> <%if (page-pagecount)<0 then%> <a href="manage.asp?page=<%=(page+1)%>">下一页</a>
<a href="manage.asp?page=<%=pagecount%>">最后页</a>
<%end if%> <input name="page" type="hidden" id="page" value="<%=page%>"></td>
<tr valign="middle" bgcolor="#f1f1f1">
<td height="25" colspan="5" align="center">
<input type=hidden name=coun value=<%=cc%>>
<input type="submit" class="textbox-1" value="确定操作"> <input name="重置" type="reset" class="textbox-1" value="重新选择">
</td>
</tr></form>
<tr valign="middle" bgcolor="#CCCCCC">
<form name="del" method="post" action="del.asp">
<td height="25" colspan="5" align="center">
<script language=javascript>
function onlyNum()
{
if(!((event.keyCode>=48&&event.keyCode<=57)||(event.keyCode>=96&&event.keyCode<=105)))
//考虑小键盘上的西亚键
event.returnValue=false;
}
</script>
批量删除
<input name="adddata" type="text" class="textbox" id="adddata" size="5" maxlength="3" onkeydown="onlyNum();">
天以前留言
<input name="2" type="submit" class="textbox-1" id="22" value="确定执行">
注:只能够输入数字</td>
</form>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -