📄 book_admin.asp
字号:
<!--#include file="book_conn.asp"-->
<!--#include file="md5.asp"-->
<%
'退出管理，返回留言首页
if request("action")="loginout" then
session.abandon
Response.Redirect ("index.asp")
end if
'管理登陆
if request("login")="check" then
if request("admin")=admin and md5(request("password"))=password then
session("login")="ok"
response.write "<script language='javascript'>"
response.write "alert('欢迎登入！管理结束后请记得点击“退出管理”！');"
response.write "location.href='book_admin.asp';"
response.write "</script>"
else
response.write "<script language='javascript'>"
response.write "alert('管理员用户名称或密码输入有误，请检查后重新输入！');"
response.write "location.href='javascript:history.go(-1)';"
response.write "</script>"
response.end
end if
end if
function lleft(content,lef)
for le=1 to len(content)
if asc(mid(content,le,1))<0 then
lef=lef-2
else
lef=lef-1
end if
if lef<=0 then exit for
next
lleft=left(content,le)
end function
%>
<HTML><HEAD>
<TITLE><%=sitename%></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="description" content="<%=sitename%>">
<meta name="keywords" content="<%=sitename%>">
<link rel="stylesheet" href="book.css" type="text/css">
<center>
<!--#include file="book_top.asp"-->
<script language="JavaScript" type="text/JavaScript">
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
</script>
</head>
<table width="762" cellspacing=0 cellpadding=0 align=center bgcolor="#000000" class="grayline">
<tr><td align=center height=50>
<a href=book_admin.asp><img border=0 src=images/admin_home.gif title="管理首页"></a>
<a href=book_admin.asp?action=setup><img border=0 src=images/admin_setup.gif title="管理选项设置"></a>
<a href=book_admin.asp?action=loginout><img border=0 src=images/loginout.gif title="管理结束后，一定要点击这里"></a>
</td></tr>
<tr><td align=center>
<%
if session("login")<>"ok" then
%>
<br>
<form action="" method=post name=booklogin>
<table width="300" border="1" cellpadding="3" bordercolor="#333333" style="border-collapse: collapse;" align=center>
<tr><td align=center>用户名</td><td><input type="text" name="admin" value="" title="请填写用户名"></td></tr>
<tr><td align=center>密 码</td><td><input type="password" name="password" value="" title="请填写登陆密码"></td></tr>
<tr><td colspan=2 align=center><input type="submit" value="管理登陆"><input type="hidden" name="login" value="check"></td></tr>
</table>
</form>
<%
else
action=request("action")
'管理首页
if action="" then%>
<table width="760" border="1" cellpadding="1" bordercolor="#ffffff" style="border-collapse: collapse;color:#FFFFFF;">
<form name=book action=book_admin.asp method=post><tr>
<td align=center width=5%>选</td>
<td align=center width=10% height=15>姓名</td>
<td align=center width=35%>内容（编辑与回复）</td>
<td align=center width=30%>日期</td>
<td align=center width=11%>状态</td>
<td align=center width=9%>审核</td>
</tr>
<%
dim rs,msg_per_page
dim sql
msg_per_page = 10 '每页显示记录数
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from Feedback where del=false order by top desc, PostDate desc"
rs.cursorlocation = 3
rs.pagesize = msg_per_page '每页显示记录数
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "<tr><td colspan=6 align=center><BR>暂时没有留言<BR><BR></td></tr>"
end if
if not (rs.eof and rs.bof) then '检测记录集是否为空
totalrec = RS.RecordCount '总记录条数
if rs.recordcount mod msg_per_page = 0 then '计算总页数,recordcount:数据的总记录数
n = rs.recordcount\msg_per_page 'n:总页数
else
n = rs.recordcount\msg_per_page+1
end if
currentpage = request("page") 'currentpage:当前页
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then
currentpage = 1
end if
if err.number <> 0 then
err.clear
currentpage = 1
end if
else
currentpage = 1
End if
if currentpage*msg_per_page > totalrec and not((currentpage-1)*msg_per_page < totalrec)then
currentPage=1
end if
rs.absolutepage = currentpage 'absolutepage：设置指针指向某页开头
rowcount = rs.pagesize 'pagesize：设置每一页的数据记录数
dim i
dim k
Do while not rs.eof and rowcount>0
content=rs("Comments")
replay=rs("replay")
UserName=rs("UserName")
if rs("top")="0" then
Response.write "<tr><td align=center><input type='checkbox' value='"&rs("ID")&"' name=id>"
else
Response.write "<tr><td><font color=red title='固顶信息不能直接删除，请先解除固顶属性再删除'>TOP</font>"
end if
Response.write "</td><td>"&UserName&"</td><td><a href='book_admin.asp?action=replay&id="&rs("ID")&"'>"
response.write lleft(server.htmlencode(content),50)
response.write "</a></td><td align=center>"&rs("Postdate")&"</td><td align=center>"
if Isnull(Replay) then
response.write "<font color=red>新留言</font>"
else
response.write "已回复"
end if
response.write "</td><td align=center>"
if rs("Online")="0" then response.write "<font color=red>隐藏</font>" else response.write "公开" end if
response.write "</td></tr>"
rowcount=rowcount-1
rs.movenext
loop
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
<tr><td colspan=6><input type='checkbox' name=chkall onclick='CheckAll(this.form)'> 全选
<input type="submit" name="action" value="删除" onClick="{if(confirm('该操作不可恢复！\n\n确实删除选定的留言？')){this.document.Prodlist.submit();return true;}return false;}">
</td></tr></form></table>
<%
call listPages()
end if
if request("action")="删除" then
delid=replace(request("id"),"'","")
call delfeedback()
end if
if request("action")="replay" then
id=request("id")
call detailfeedback()
end if
if request("action")="setup" then
call setup()
end if
end if
%>
</td></tr>
<tr><td> </td></tr>
</table>
</td></tr>
</table>
<!--#include file="book_down.asp"-->
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -