📄 admin_backup.asp
字号:
<!--#include file="config.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="admin_admininfo.asp"-->
<!--#include file="sub_change.asp" -->
<!--#include file="admin_turnpage.asp" -->
<%
if session("adminname")<>adminname or session("adminpwd")<>adminpwd then
response.Redirect("admin_login.asp")
end if
Dim RowCount,order,del,msg
RowCount = 20 '每页显示的记录条数
order=trim(request.QueryString("order"))
del=trim(request.QueryString("del"))
if del="ok" then
dim rs_del
set rs_del=server.CreateObject("adodb.recordset")
rs_del.open "delete from 管理备案 where 编号="&trim(request.QueryString("id")),conn,3,3
rs_del.close
set rs_del=nothing
messageinfo="<b>从数据库中删除成功！</b>"
end if
set rs=server.CreateObject("adodb.recordset")
select case order
case "资讯修改"
msg="所有<b>资讯修改</b>备案信息"
rs.open "select * from 管理备案 where 业务信息='资讯修改' order by 编号 desc",conn,1,1
case "评论删除"
msg="所有<b>评论删除</b>备案信息"
rs.open "select * from 管理备案 where 业务信息='评论删除' order by 编号 desc",conn,1,1
case else
msg="<b>所有备案信息</b>"
rs.open "select * from 管理备案 order by 编号 desc",conn,1,1
end select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>【后台管理】管理备案 - <%=sitename%></title>
<link href="admin.css" rel="stylesheet" type="text/css">
<script language="VBScript">
<!--
Function isdel(id)
dim myvar
myvar = MsgBox (Chr(10) &" 确定要删除？ "&Chr(13) & Chr(10)& Chr(10) &" 该操作不恢复！请慎重使用！"& Chr(10), 1+48+256, "警告")
if myvar=1 then window.location="?del=ok&order=<%=order%>&id="&id
End Function
-->
</script>
</head>
<body leftmargin="0" topmargin="0">
<div align="center">
<!--#include file="admin_top.asp" -->
<br>
<table width="90%" border="1" cellpadding="0" cellspacing="0" bordercolor="#999999">
<tr>
<td height="40" align="center" style="line-height: 16pt"><b>管理备案</b></td>
</tr>
</table>
<table width="90%" border="0" cellpadding="5" cellspacing="1" bgcolor="#DFEAF2">
<tr bgcolor="#333333">
<td bgcolor="#FFFFFF">选择：<a href="?">所有备案信息</a> | <a href="?order=资讯修改">资讯修改</a> | <a href="?order=评论删除">评论删除</a></td>
<td bgcolor="#FFFFFF"><%Call TurnPage(Rs,RowCount)%></td>
</tr>
<tr bgcolor="#333333">
<td bgcolor="#FFFFFF" colspan="2" height="26"><%response.write msg&" 共有<font color='red'>"&rs.recordcount& "</font>条记录"%><%if messageinfo<>"" then response.write "<br><font color='red'>"&messageinfo&"</font>"%></td>
</tr>
</table>
<hr color="#FF0000" width="90%">
<%Do while Not rs.eof and not rs.bof and RowCount>0 %>
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" width="90%" onMouseOver='this.style.backgroundColor="#DFEAF2"' onMouseOut='this.style.backgroundColor=""'>
<tr>
<td width="140" bgcolor="#DFEAF2">【<font color="red"><%=rs("编号")%></font>】<a href="admin_info_mod.asp?id=<%=rs("业务编号")%>"><%=rs("业务编号")%></a><a style='color:red' href='VBScript:isdel(<%=rs("编号")%>)'>【删除】</a></td>
<td width="60"><%=rs("业务类型")%></td>
<td width="100" bgcolor="#DFEAF2"><%=rs("业务信息")%></td>
<td width="100"><%=rs("操作者")%></td>
<td width="120" bgcolor="#DFEAF2"><%=rs("时间")%></td>
<td width="100"><%=rs("ip")%></td>
</tr>
<tr>
<td colspan="3"><%=rs("原数据")%></td>
<td colspan="3"><%=rs("新数据")%></td>
</tr>
</table>
<hr color="#000000" width="90%">
<%
RowCount = RowCount - 1
rs.MoveNext
Loop
rs.close
set rs=nothing
%>
<table width="90%" border="0" cellpadding="10" cellspacing="0">
<tr>
<td align="right" style="line-height: 16pt"><a href="#">>><span lang="zh-cn">返回</span>TOP<<</a></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -