ly_guanli2.asp
来自「这是一个学生毕业时做的教务系统」· ASP 代码 · 共 94 行
ASP
94 行
<%
IF Session("KEY")<>"super"THEN
response.redirect "index_face.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, 1, 1
%>
<%
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="css.css" type="text/css">
<link href="../css.css" rel="stylesheet" type="text/css">
<link href="css.css" rel="stylesheet" type="text/css">
<link href="news.css" rel="stylesheet" type="text/css">
<link href="css.css" rel="stylesheet" type="text/css">
<link href="news.css" rel="stylesheet" type="text/css">
<link href="news.css" rel="stylesheet" type="text/css">
<body bgcolor="#FFFFFF" text="#000000"><br>
<form name="del" method="post" action="ok-del.asp">
<table width="600" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#000000">
<tr valign="middle" bgcolor="abb8d6">
<td height="30" colspan="6" align="center"><strong>留 言 本 管 理</strong></td>
</tr>
<tr valign="middle">
<td width="69" height="25" align="center" bgcolor="#CCCCCC"><font color="#FF0000">ID</font></td>
<td width="176" height="25" align="center" bgcolor="#CCCCCC"><font color="#FF0000">留言人</font></td>
<td width="123" height="25" align="center" bgcolor="#CCCCCC"><font color="#FF0000">留言时间</font></td>
<td width="87" height="25" align="center" bgcolor="#CCCCCC"><font color="#FF0000">审核情况</font></td>
<td width="87" align="center" bgcolor="#CCCCCC"><font color="#FF0000">现在审核</font></td>
<td width="51" height="25" align="center" bgcolor="#CCCCCC"><font color="#FF0000">删除</font></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"><%=rs("id")%></font></td>
<td height="25" bgcolor="#f1f1f1"><div align="center"><%=rs("name")%></div></td>
<td height="25" align="center" bgcolor="#f1f1f1"><%=rs("date")%></td>
<td align="center" bgcolor="#f1f1f1">
<%
if rs("sh")="0" then
Response.Write "还未经审核"
else
Response.Write "已通过审核"
end if
%>
</td>
<td align="center" bgcolor="#f1f1f1"><a href="ly_sh.asp?id=<%=rs("id")%>" class="bai1">确定</a></td>
<td height="25" align="center" bgcolor="#f1f1f1"><a href="ly_del.asp?id=<%=rs("id")%>" class="bai1">确定</a>
</td>
</tr>
<tr valign="middle">
<td colspan="6" bgcolor="#FFFFFF" style="WORD-WRAP: break-word"> <font color="#666666">留言人IP地址：<%=rs("ip")%>
<% if rs("tel")="" then Response.Write "" else Response.Write " <img src='../images/ly_tel.gif'> "&rs("tel")&"" %>
</font> <% if rs("email")="" then Response.Write "" else Response.Write " <img src='../images/ly_mail.gif'> <a class=bai1 href=mailto:"&rs("email")&">"&rs("email")&"</a>" %> <br> <%=rs("content")%> </td>
</tr>
<%
rs.movenext
loop
end if
%>
<tr valign="middle">
<td height="25" colspan="6" bgcolor="#f1f1f1"> >>分页 共有留言<%=count%>条，目前显示<%=page%>/<%=pagecount%>页
<%if page>1 then%> <a class=bai1 href="guanli2.asp?page=1">第一页</a> <a class=bai1 href="guanli2.asp?page=<%=page-1%>">上一页</a>
<%end if%> <%if (page-pagecount)<0 then%> <a class=bai1 href="guanli2.asp?page=<%=(page+1)%>">下一页</a>
<a class=bai1 href="guanli2.asp?page=<%=pagecount%>">最后页</a> <%end if%> </td>
<tr valign="middle" bgcolor="#CCCCCC">
<td height="25" colspan="6" align="center"> </td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?