📄 adminmanage.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<!--#include file="chkuser.asp" -->
<!--#include file="ChkManage.asp" -->
<%
if not(request.cookies(Forcast_SN)("ManageKEY")="super" or request.cookies(Forcast_SN)("ManageKEY")="typemaster" or request.cookies(Forcast_SN)("ManageKEY")="bigmaster") THEN
Show_Err("对不起，您的后台管理权限不够操作！")
response.end
else
if (request.form("action")="del") and (request.form("selectdel")<>"") then
if (request.cookies(Forcast_SN)("ManageKEY")="super") then
conn.execute "delete from "& db_Manage_Table &" where "& db_ManageUser_ID &" in ("&request.form("selectdel")&")"
response.Redirect "AdminManage.asp"
else
Show_Err("对不起，您不能进行管理用户的批理删除！")
response.end
end if
end if
dim oskey
dim rs,tsql
dim rst
oskey=ChkRequest(request("oskey"),0) '防注入
set rst=server.CreateObject("ADODB.RecordSet")
if request.cookies(Forcast_SN)("ManageKEY")="super" then
if oskey="" then
rst.Source="select * from "& db_Manage_Table &" order by "& db_ManageUser_ID &""
else
rst.Source="select * from "& db_Manage_Table &" where oskey='"&oskey&"' order by "& db_ManageUser_ID &""
end if
else
if oskey="" then
rst.Source="select * from "& db_Manage_Table &" where "& db_ManageUser_Name &"='"& ChkRequest(request.cookies(Forcast_SN)("name"), 0) &"' order by "& db_ManageUser_ID &""
else
rst.Source="select * from "& db_Manage_Table &" where "& db_ManageUser_Name &"='"& ChkRequest(request.cookies(Forcast_SN)("name"), 0) &"' and oskey='"&oskey&"' order by "& db_ManageUser_ID &""
end if
end if
rst.Open rst.Source, Conn, 1, 3
PageShowSize = 10 '每页显示多少个页
MyPageSize = 10 '每页显示多少用户
If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
MyPage=1
Else
MyPage=Int(Abs(Request("page")))
End if
If Not rst.eof then
PageSize = MyPageSize
MaxPages = rst.PageCount
rst.absolutepage = MyPage
total = rst.RecordCount
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<title><%=copyright%><%=version%> <%=ver%> - 后台超管用户管理完美设计网络科技有限公司 完美政府网站管理系统 http://www.wmgov.cn</title>
<style type=text/css>
body { background:#555555; margin:0px; font-family: Verdana, Arial, sans-serif, 宋体; font-size: 9pt; text-decoration: none; color:#555555;
SCROLLBAR-FACE-COLOR: #55919A;
SCROLLBAR-HIGHLIGHT-COLOR: #cccccc;
SCROLLBAR-SHADOW-COLOR: #cccccc;
SCROLLBAR-3DLIGHT-COLOR: #cccccc;
SCROLLBAR-ARROW-COLOR: #555555;
SCROLLBAR-TRACK-COLOR: #555555;
SCROLLBAR-DARKSHADOW-COLOR: #cccccc;}
table { border:0px; }
td { font:normal 12px; }
img { vertical-align:bottom; border:0px; }
a { font:normal 12px; color:#555555; text-decoration:none; }
a:hover { color:#ff6600;text-decoration:underline; }
.sec_menu { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#eeeeee; }
.menu_title { }
.menu_title span { position:relative; top:2px; left:8px; color:#555555; font-weight:bold; }
.menu_title2 { }
.menu_title2 span { position:relative; top:2px; left:8px; color:#ff6600; font-weight:bold; }
</style>
<script language=javascript>
function CheckFormUserLogin()
{
if(document.SeahUser.name.value=="")
{
alert("请输入管理用户名！");
document.SeahUser.name.focus();
return false;
}
}
</script>
<script language="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>
<body topmargin="0">
<!--#include file=Admin_Top.asp-->
<p align=center><font color="#FFFFFF">管理用户列表</font>(<font color=red>红色</font><font color="#FFFFFF">表示当前管理用户)，点击管理用户名可查看更多信息</font><a href="AdminAdd1.asp"><font color="#cd0000">添加管理用户</font></a> <a href="AdminManage.asp" class="up"><font color="#cd0000">全部管理用户</a></font><br>
<table border="1" cellpadding="3" cellspacing="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#C0C0C0" width="100%" id="AutoNumber1">
<tr align="center" height=25>
<td colspan="12" height=25 class="TDtop">┊ <B>后台超管用户管理</B> ┊ </td>
</tr>
<tr align="center" class="TDtop1" height=20>
<td width="4%">ID号</td>
<td width="11%">管理者</td>
<td width="10%">权限</td>
<td width="14%">最后登录地址</td>
<td width="15%">最后登录时间</td>
<td width="5%">登录</td>
<td width="6%">发文数</td>
<td width="6%">修改</td>
<td width="6%">删除</td>
<td width="9%">会员等级</td>
<td width="10%">会员状态</td>
<td width="4%" >选择</td>
</tr>
<%response.write "<form name='formdel' method='post' action='AdminManage.asp'>"
for i=1 to PageSize
if not rst.EOF then
if rst("Purview")<>"99999" or request.cookies(Forcast_SN)("ManagePurview")="99999" then
response.write "<tr align='center' height=20>"& chr(10)
response.write "<td align='center'>" &(rst(db_ManageUser_ID))& "</td>"
response.write "<td align='center' bgcolor='#FFFFFF'>"
response.write "<a href='AdminList.asp?id=" &(rst(db_ManageUser_ID)) &"' title=" &(rst(db_ManageUser_Password)) &">"
if rst(db_ManageUser_Name)=request.cookies(Forcast_SN)("name") then
response.write "<font color=red>" &(rst("name"))& "</font>"
else
response.write (rst("name"))
end if
response.write "</a>"
response.write "</td>"& chr(10)
response.write "<td align='center' bgcolor='#FFFFFF'>"
if rst("oskey")="super" and rst("purview")=99999 then
response.write "<font color='red'>超级管理员</font>"
else
if rst("oskey")="super" and rst("purview")=1 then
response.write "系统管理员"
else
response.write "非管理用户"
end if
end if
response.write "</td>"& chr(10)
response.write "<td align='center'>" &(rst(db_ManageUser_LastLoginIP))& "</td>"& chr(10)
response.write "<td >" &(rst(db_ManageUser_LastLoginTime))& "</td>"& chr(10)
response.write "<td align='center'>" &(rst(db_ManageUser_LoginTimes))& "</td>"& chr(10)
response.write "<td align='center'>" &(rst("number"))& "</td>"& chr(10)
response.write "<td align='center' bgcolor='#FFFFFF'>"
response.write "<a href='AdminEdit.asp?id=" &(rst(db_ManageUser_ID))& "' title='修改用户“" &(rst(db_ManageUser_Name))& "”的属性'>修改</a>"
response.write "</td>"& chr(10)
response.write "<td align='center' bgcolor='#FFFFFF'>"
if trim(request.cookies(Forcast_SN)("name"))=trim(rst(db_ManageUser_Name)) then
response.write "----"
else
response.write "<a href='AdminDel.asp?id=" &(rst(db_ManageUser_ID))& "&name=del' title='删除用户“" &(rst(db_ManageUser_Name))& "”'>删除</a>"
end if
response.write "</td>"& chr(10)
response.write "<td>"
if rst("oskey")="selfreg" then
reglevel1=rst("reglevel")
select case reglevel1
case 1
response.write "普通<br>"
case 2
response.write "高级<br>"
case 3
response.write "特级<br>"
end select
end if
response.write "</td>"
response.write "<td>"
if rst("oskey")="selfreg" then
jingyong1=rst("jingyong")
Select Case jingyong1
case 0 response.write "启用"
case 1 response.write "禁用"
end Select
end if
response.write "</td>"
response.write "<td align='center'>"
if trim(request.cookies(Forcast_SN)("name"))=trim(rst(db_ManageUser_Name)) then
response.write "--"
else
response.write "<input type=checkbox name=selectdel id=selectdel value=" &(rst(db_ManageUser_ID))& ">"
end if
response.write "</td>"
response.write "</tr>"& chr(10)
end if
rst.MoveNext
end if
next
response.write "<tr align='right' ><td colspan=13 height=20>"%>
<input type=hidden name=action value='del'>
<input type=checkbox name=chkall value=on onClick="CheckAll(this.form)" style="font-size: 9pt; color: #000000; background-color: #ffff; solid #EAEAF4">选中所有显示管理用户
<input type=submit name=action1 onClick="{if(confirm('删除选定的管理用户吗？')){this.document.check.submit();return true;}return false;}" value="删除管理用户" style="font-size: 9pt; color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'">
<%response.write "</td></tr>"& chr(10)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -