📄 admin_webmaster.asp

📁 1
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="../Conn.asp" -->
<!--#include file="../Inc/md5.asp" -->
<!--#include file="../Inc/Admin_checkuser.asp"-->
<%
Call Admin_Check(0,"您的登陆状态错误，请重新登录后再进行操作")
Dim action%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>后台管理中心</title>
<LINK href="../images/admin/Admin.css" type=text/css rel=stylesheet>
</head>
<body>
<table align="center" width="100%" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
<tr class=KenQiao_Net_ss> 
<td colspan="6">管理员管理</td>
</tr>
<tr align="left" class=KenQiao_Net_ds>
<td colspan="6">  管理导航：<a href="Admin_WebMaster.asp">管理员管理首页</a> | <a href="Admin_WebMaster.asp?action=newa">添加管理员</a> | <a href="Admin_WebMaster.asp?action=edita&id=<%=Request.Cookies(FY_cookies)("AdminId")%>">修改管理密码</a> | </td>      
</tr>
</table><br>
<%
action=request("action")
if action="del" then
call Admin_Check(9999,"您没有删除账号的权利，请使用超级管理员的账号登陆后再进行操作")
call del()
elseif action="flaga" then
call Admin_Check(9999,"您没有删除账号的权利，请使用超级管理员的账号登陆后再进行操作")
call flaga()
elseif action="flagb" then
call Admin_Check(9999,"您没有删除账号的权利，请使用超级管理员的账号登陆后再进行操作")
call flagb()
elseif action="newa" then
call Admin_Check(9999,"您没有添加账号的权利，请使用超级管理员的账号登陆后再进行操作")
call newa()
elseif action="newb" then
call Admin_Check(9999,"您没有添加账号的权利，请使用超级管理员的账号登陆后再进行操作")
call newb()
elseif action="edita" then
call Admin_Check("密码修改","您没有修改密码的权限，请联系管理员获得权限后再进行操作")
If clng(request("id"))=clng(Request.Cookies(FY_cookies)("AdminId")) Or Request.Cookies(FY_cookies)("AdminFlag")="超级管理员" Then
call edita()
Else
call Admin_Check(9999,"对不起，你无权限修改其他管理员的资料！")
End If
elseif action="editb" then
call Admin_Check("密码修改","您没有修改密码的权限，请联系管理员获得权限后再进行操作")
call editb()
elseif action="isactive" then
call Admin_Check(9999,"您没有锁定账号的权利，请使用超级管理员的账号登陆后再进行操作")
call isactive()
else
call userlist()
end if
sub userlist() 
%>
<table width=100% align="center" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">

<tr class=KenQiao_Net_ss align="center"> 
<td width="6%" height=20><B>ID</B></td>
<td width="22%"><B>管理员名称</B></td>
<td width="15%"><B>用户等级</B></td>
<td width="22%"><B>上次登陆时间</B></td>
<td width="12%"><B>上次登陆IP</B></td>
<td width="15%"><B>操作</B></td>
<td width="10%"><B>状态</B></td>
                </tr>
<%
Dim m
m=0
set rs=conn.execute("SELECT * FROM 管理员_Admin order by 编号 desc")        
if not rs.eof then       
do while not rs.eof       
m=m+1
%>
<tr class=KenQiao_Net_ds onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'">
<td align="center"><%=rs("编号")%></td> 
<td><%=rs("管理账号")%></td>
<td align="center"><%=Admin_Name_Q(rs("权限"))%></td>
<td><%=rs("登陆时间")%></td>
<td><%=rs("登陆IP")%></td>
<td align="center"><%=Admin_Check_B(rs("编号"),"","<a href=""?action=flaga&id="&rs("编号")&""">权限</a>")%>
<a href="?action=edita&id=<%=rs("编号")%>">
<%=Admin_Check_B(rs("编号"),"修改密码","密码")%> </a> 
<%=Admin_Check_B(rs("编号"),"","<a href=""?action=del&id="&rs("编号")&""" onclick=""{if(confirm('此操作将删除该管理员\n 您确定执行此操作吗?')){this.document.myform.submit();return true;}return false;}"">删除</a>")%>
</td>
<td align="center"><% if rs("状态")=0 then 
			  response.write Admin_Check_B(rs("编号"),"正常","<a href='?action=isactive&id="&rs("编号")&"&l=1'>正常</a>")
			  else 
			  response.write "<a href='?action=isactive&id="&rs("编号")&"&l=0'><font color=red>锁定<font></a>"
			  end if %></td>
</tr>
<%
if m>=100 then exit do       
rs.movenext        
loop       
else    
Response.Write("<tr class=KenQiao_Net_ds><td height=22 colspan=8 align=""center"">没有数据</td></tr>") 
end if       
rs.close
set rs=nothing
Response.Write("<tr class=KenQiao_Net_qs><td height=22 colspan=8 align=""center""></td></tr>")
%>
</table>
<%
end sub

sub flaga()
Dim userid,rscc
userid=request.QueryString("id")
set rscc=server.createobject("adodb.recordset")
sql="select * from 管理员_Admin where 编号="&userid
rscc.open sql,conn,1,1
if rscc.eof and rscc.bof then
Call WriteErrMsg("操作错误！该管理员不存在！")
elseif Admin_Check_B(userid,1,0)=1 then
Call WriteErrMsg("操作错误！管理员不能修改自己的账号信息！")
else
%>
<table align="center" width="100%" align="center" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
<form action="?action=flagb&id=<%=userid%>" method="post">
    <tr class=KenQiao_Net_ss>
      <td colspan=2>
      <b>设置和修改管理员(<font color="red"><%=rscc("管理账号")%></font>)的权限</b></td>
    </tr>
    <tr class=KenQiao_Net_ds>
      <th colspan=2><b>修改用户权限</b> (只对[超级管理员]有效)</th>
    </tr>
   
    <tr class=KenQiao_Net_ds> 
            <td width="26%" align="right" class=forumrow>后台管理权限：</td>
            <td width="74%" class=forumrow>
          <input type=radio name="QX" value="超级管理员" onclick="document.all.U_A.style.display='none';"<%If rscc("权限")="超级管理员" Then Response.Write " checked" End If%>><strong><font color="#FF0000">超级管理员</font></strong><font color="#808080">(</font><font color="#FF0000">注意</font><font color="#808080">:开通&quot;超级管理&quot;权限即是给了该用户全部管理权限，请慎重。)<br>
<input type=radio name="QX" value="超级管理员"<%
Dim Q_X
If rscc("权限")<>"超级管理员" Then 
Response.Write " checked"
Q_X="" 
Else
Q_X="none" 
End If%>><strong><font color="#FF0000">权限管理员</font></strong>[<strong><font color="#FF0000">预设功能,此版本不可用</font></strong>]<font color="#808080">(</font><font color="#FF0000">提示</font><font color="#808080">:用户除此权限外，不会拥有任何附加权限。)
          </td>
          </tr>
          
    <tr ID=U_A class=KenQiao_Net_ds style="display:<%=Q_X%>">
          <td width="26%" align="right" class=forumrow>设置相关权限：</td>
				  <td width="74%" class=forumrow>
      <%=Admin_QX(rscc("权限"),"<input type=""checkbox"" name=""QX2"" $选中显示 value=""$权限名称"">$权限名称","checked",6,1)%>
						 </td>
              </tr>
    <tr class=KenQiao_Net_qs align="center">
      <td colspan=2>      
      <input name="b1" type="submit" value="确认修改" class="button">&nbsp;      
      <input name="b2" type="reset" value="全部还原" class="button">
     </td>     
    </tr>
</form>
  </table>
<%
end if
rscc.close
set rscc=nothing
end sub

sub flagb()
Dim userid,X_Qx
userid=request.QueryString("id")
X_Qx=ReplaceBadChar(trim(request.form("Qx")))
  If X_Qx<>"超级管理员" And trim(request.form("Qx2"))="" Then
   Call WriteErrMsg("<li>如果选择成“权限管理员”则该用户的权限不能为空！</Li>")
  ElseIf Admin_Check_B(request("id"),1,0)=1 Then
 Call WriteErrMsg("<li>您不能处理自己的账号，您只有对自己的密码进行修改的权利！</Li>")
Else
set rs=server.createobject("adodb.recordset")
sql="select 权限 from [管理员_Admin] where 编号="&userid
rs.open sql,conn,1,3
if not (rs.eof and rs.bof) then
Rs(0)=X_Qx
rs.update
Call WriteSuccessMsg("<li>管理账号的权限信息修改成功，请正确的使用新权限</Li>","Admin_WebMaster.asp")
Else
Call WriteErrMsg("<li>您所处理的账号在数据库中不存在，请从正确的路径进行处理数据，谢谢！</Li>")
End if
rs.close
set rs=nothing
End if
end sub

sub newa()
%> 
<form action="?action=newb" method=post>
<table width=100% align="center" border="1" cellspacing="0" cellpadding="4" class=KenQiao_Net_bk style="border-collapse: collapse">
               <tr class=KenQiao_Net_ss> 
                  <th colspan=2 height=23>管理员管理－－添加管理员
                  </th>
                </tr>
               <tr class=KenQiao_Net_ds> 
            <td width="26%" align="right" class=forumrow>后台登陆名称：</td>
            <td width="74%" class=forumrow>
12 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -