📄 ly.asp
字号:
<%
if session("admin")<>"on" then
Response.Redirect"login.asp"
end if
%>
<!--#include file="config.asp" -->
<%
SQL="select title,bottom,logo from admin"
Set rs=server.CreateObject("ADODB.RecordSet")
rs.open sql,conn,1,1
title=rs("title")
bottom=rs("bottom")
logo=rs("logo")
rs.close
set rs=nothing
%>
<script language="Javascript">
function openScript(url, width, height)
{
var Win = window.open(url,"openScript",'width=' + width + ',height=' + height + ',resizable=1,scrollbars=yes,menubar=no,status=yes' );
}
function openem()
{
openScript('upload.asp',350,200);
}
</script>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="INDEX.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
.xzy {border: <%=xcolor%> solid; border-width: 0px 1px 1px}
-->
</style>
</head>
<body>
<!--#include file="top.asp" -->
<table width="778" border="0" cellspacing="0" cellpadding="5" align="center" bgcolor="#FFFFFF">
<tr>
<td height="5"></td>
</tr>
<tr>
<td height="50" valign="top"><table width="766" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td>管理选项：<a href="admin.asp">管理首页</a> | <a href="addfile.asp">添加文件</a> | <a href="adminfile.asp">管理文件</a> |
<a href="setup.asp">系统设置</a> | <a href="ly.asp">留言管理</a> |
<a href="modifypsw.ASP">修改密码</a> | <a href="loginout.asp">退出管理</a></td>
</tr>
</table></td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
set showbbs=conn.execute("select*from book order by id desc")
rs.open "select*from book order by id desc",conn,1,1
order=0
count=rs.RecordCount
pagesize=20
pagecount=count\(pagesize+1)+1
page=request.QueryString("page")
if page="" then
page=1
end if
%>
<table width="600" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table><br>
<table width="80%" align=center border="0" cellpadding="0" cellspacing="0" >
<tr>
<td><table width="100%" border="1" cellpadding="0" cellspacing="0" >
<%
if not showbbs.eof then
showbbs.Move (page-1)*pagesize
cc=(page-1)*pagesize
do while (not showbbs.eof) and (order<pagesize)
cc=cc+1
order=order+1
%>
<tr>
<td height="19" width=10%><a href="tp_ly_edit.asp?action=re&id=<%=showbbs("id")%>">回复</a></td> <td width=10%> <a href="zoom.asp?action=del&id=<%=showbbs("id")%>" Onclick="return confirm('删除将不可恢复！确定删除吗？')">删除</a> </td> <td><a href="#"><%=left(showbbs("content"),50)%></a> </td>
</tr>
<%
showbbs.movenext
loop
end if
%>
</table></td>
</tr>
</table>
<br>
<table width="80%" align=center border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="25" align="left">
<%if page>1 then%>
<a href="tp_ly.asp?page=1"><strong>【第一页】</strong></a> <a href="tp_ly.asp?page=<%=page-1%>"><strong>【上 页】</strong></a>
<%end if%>
<%if (page-pagecount)<0 then%>
<a href="tp_ly.asp?page=<%=(page+1)%>"><strong>【下 页】</strong></a>
<a href="tp_ly.asp?page=<%=pagecount%>"><strong>【最后页】</strong></a>
<%end if%> 【 <font color="#FF6600"><%=page%></font> / <font color="#FF6600"><%=pagecount%></font> 】 【共 <font color="#FF6600"><%=count%></font> 条记录】 </td>
</tr>
</table><br>
<%
showbbs.Close
set showbbs=nothing
%>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td height="41" valign="top"><table width="766" height="29" border="0" align="center" cellpadding="3" cellspacing="0" >
<tr>
<td width="766" height="35" align="center" ><%=cy%> </td>
</tr>
</table></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -