📄 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(eChuang)("ManageKEY")="super" or request.cookies(eChuang)("ManageKEY")="typemaster" or request.cookies(eChuang)("ManageKEY")="bigmaster") THEN
Show_Err("对不起，您的后台管理权限不够操作！")
response.end
else
if (request.form("action")="del") and (request.form("selectdel")<>"") then
if (request.cookies(eChuang)("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(eChuang)("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 &"='"&request.cookies(eChuang)("username")&"' order by "& db_ManageUser_ID &""
else
rst.Source="select * from "& db_Manage_Table &" where "& db_ManageUser_Name &"='"&request.cookies(eChuang)("username")&"' and oskey='"&oskey&"' order by "& db_ManageUser_ID &""
end if
end if
rst.Open rst.Source,Conn,3,1
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%> - 后台超管用户管理_建站铺修正版_bbs.jzpu.com</title>
<script language=javascript>
function CheckFormUserLogin()
{
if(document.SeahUser.UserName.value=="")
{
alert("请输入管理用户名！");
document.SeahUser.UserName.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=red>红色</font>表示当前管理用户)，点击管理用户名可查看更多信息 <a href="AdminAdd1.asp">添加管理用户</a> <a href="AdminManage.asp">全部管理用户</a><br>
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFDFBF" 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(eChuang)("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(eChuang)("username") then
response.write "<font color=red>" &(rst("Username"))& "</font>"
else
response.write (rst("UserName"))
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(eChuang)("username"))=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(eChuang)("username"))=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)
response.write "</form>"& chr(10)
rst.close
set rst=nothing%>
<tr height=20>
<td colspan=12 class="TDtop1" >
<p align=center height=25>共 <%=total%> 名，当前第 <%=Mypage%>/<%=Maxpages%> 页，每页 <%=MyPageSize%> 名
<%
if oskey="" then
url="AdminManage.asp?"
else
url="AdminManage.asp?oskey="&oskey&"&"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -