⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_manager.asp

📁 后台管理系统
💻 ASP
字号:
🔍 
<!--#include file="Inc/Inc.asp"-->
<!--#include file="../Include/MD5.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Images/Admin_Css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<%
Call ClsAdmin.CheckManager(0,6)
ClsPub.Chk_Post()
ClsPub.SysConfig()
Dim Action,UserId
Action=ClsPub.SafeRequest(3,"Action",1,0,0)
AdminId=ClsPub.SafeRequest(3,"AdminId",0,0,0)
Select Case Action
	Case "AddManager"
		AddManager()
	Case "SaveAddManager"
		SaveAddManager()
	Case "ManagerList"
		Call ManagerList()
	Case "DeleteManager"
		Call DeleteManager(AdminId)
	Case "EditManager"
		Call EditManager(AdminId)
	Case "SaveEditManager"
		Call SaveEditManager(AdminId)
	Case Else
		Call ManagerList()
End Select

Sub ManagerList()
	Dim Temp
	Temp=ClsPub.DB_Query("Select AdminId,AdminName,IsLock,LoginIp,LoginTime From TW_Admin Order By AdminId Desc")
	If Not IsArray(Temp) Then
		SysMsg="暂无管理员"
		Call ClsPub.ShowMsg("Back",3)
	End If
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
        <tr> 
      <td height="22" class="title" colspan=5>管理员列表</td>	 
    </tr>
<FORM METHOD=POST ACTION="?action=touser">
<tr align=center height=23>
<td class="td"Highlight width="20%"><B>帐号</B></td>
<td class="td"Highlight width="10%"><B>状态</B></td>
<td class="td"Highlight width="20%"><B>登陆时间</B></td>
<td class="td"Highlight width="20%"><B>登陆IP</B></td>
<td class="td"Highlight width="20%"><B>操作</B></td>
</tr>
<%
	Dim i,MyItem,ManagerCount,PageSize,Page
	ManagerCount=Ubound(Temp,2)
	PageSize=15
	Page=Request.QueryString("Page")
	If Page="" OR Not IsNumeric(Page) Then
		Page=1
	Else
		Page=Int(Page)
	End If
	For i = 0 To ManagerCount
		MyItem=MyItem+1
		If MyItem>(Page-1)*PageSize And MyItem<=Page*Pagesize Then

%>
<tr bgcolor="F1F3F5" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#CAD7F7'" style="padding: 0px 2px;"> 
<td align=center><%=Temp(1,i)%></td>
<td align=center>
<%
If Temp(2,i) Then
	Response.Write "禁用"
Else
	Response.Write "正常"
End If
%>
</td>
<td align=center><%=Temp(3,i)%></td>
<td align=center><%=Temp(4,i)%></td>
<td align=center><a href="Admin_Manager.asp?Action=EditManager&AdminId=<%=Temp(0,i)%>">权限</a> <a href="Admin_Manager.asp?Action=DeleteManager&AdminId=<%=Temp(0,i)%>" onclick="{if(confirm('确定删除吗?')){return true;}return false;}">删除</a></td>
</tr>
<%			ElseIf MyItem>Page*PageSize Then
			Exit For
		End If
	Next
%>
<tr><td colspan=5 class="td" align="left">
<%=ClsPub.PageList(Pagesize,ManagerCount+1,Page,"","")%></td></tr>
</FORM>
</table>
<%
End Sub
Sub DeleteManager(AdminId)
	Dim Temp
	Temp=ClsPub.DB_Query("Select Count(AdminId) AS ManagerTotal From TW_Admin")
	If Temp(0,0)<=1 Then
		SysMsg="您不能删除最后一个管理员"
		Call ClsPub.Alert("Back",0)
		Exit Sub
	End If
	ClsPub.DB_Execute("Delete * From TW_Admin Where AdminId="&AdminId)
	SysMsg="管理员删除成功"
	Call ClsPub.Alert("Back",0)
End Sub
Sub EditManager(AdminId)
	Dim Temp,TempValue
	Temp=ClsPub.DB_Query("Select AdminId,AdminName,AdminPower,IsLock From TW_Admin Where AdminId="&AdminId)
	If Not IsArray(Temp) Then
		SysMsg="该管理员不存在"
		Call ClsPub.Alert("Back",0)
		Exit Sub
	End If
	TempValue=Temp(2,0)
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
	<tr> 
      <td height="22" class="title" colspan=2>修改管理员权限</td>	 
    </tr>
    <tr>
		<td class=td colspan="2">
<form method="POST" action="Admin_Manager.asp?Action=SaveEditManager&AdminId=<%=Temp(0,0)%>">
帐号:<input type="text" name="Username" size="20" Value="<%=Temp(1,0)%>"> 50个字符长度，建议只使用英文
<br>密码:<input type="password" name="PassWord" size="20"> 如只修改用户登陆名而不修改密码请留空
<br>状态:启用<input type="radio" value="0" name="IsLock" <%If Temp(3,0)=0 Then Response.Write "checked"%> checked> 禁用<input type="radio" value="-1" name="IsLock" <%If Temp(3,0)=-1 Then Response.Write "checked"%>>
<p>
<b>权限设置:</b>
	</tr>
	<tr>
		<td class=td width="50%">
<input type="checkbox" name="PowerList" value="1" <%If IsSelect(TempValue,1) Then Response.Write "checked"%>>[1] 
系统基本设置 </td>
		<td class=td width="50%">
<input type="checkbox" name="PowerList" value="2" <%If IsSelect(TempValue,2) Then Response.Write "checked"%>>[2] 
上传文件管理器</td>
	</tr>
	<tr>
		<td class=td width="50%">
<p>
<input type="checkbox" name="PowerList" value="3" <%If IsSelect(TempValue,3) Then Response.Write "checked"%>>[3] 系统文件管理器</td>
		<td class=td width="50%">
<input type="checkbox" name="PowerList" value="4" <%If IsSelect(TempValue,4) Then Response.Write "checked"%>>[4] 
上传文件清理器</td>
	</tr>
	
<tr>
		<td class=td width="50%">
<p>
<input type="checkbox" name="PowerList" value="5" <%If IsSelect(TempValue,5) Then Response.Write "checked"%>>[5] 屏蔽IP 管理屏蔽IP</td>
		<td class=td width="50%">
<input type="checkbox" name="PowerList" value="6" <%If IsSelect(TempValue,6) Then Response.Write "checked"%>>[6] 
管理员管理 [添加]</td>
	</tr>
<tr>
		<td class=td width="50%">
<p>
<input type="checkbox" name="PowerList" value="7" <%If IsSelect(TempValue,7) Then Response.Write "checked"%>>[7] 数据备份 数据还原 查看系统空间占用 </td>
		<td class=td width="50%">
<input type="checkbox" name="PowerList" value="8" <%If IsSelect(TempValue,8) Then Response.Write "checked"%>>[8] 
更新系统缓存 </td>
	</tr>
<tr>
		<td class=td width="50%">
<p>
<input type="checkbox" name="PowerList" value="9" <%If IsSelect(TempValue,9) Then Response.Write "checked"%>>[9] 添加广告 广告管理 </td>
		<td class=td width="50%">
<input type="checkbox" name="PowerList" value="10" <%If IsSelect(TempValue,10) Then Response.Write "checked"%>>[10] 系统配置还原</td>
	</tr>
<tr>
		<td class=td width="50%">
<p>
<input type="checkbox" name="PowerList" value="11" <%If IsSelect(TempValue,11) Then Response.Write "checked"%>>[11] 系统环境探针</td>
		<td class=td width="50%">
　</td>
	</tr>	
<tr>
<td class=td colspan="2" align=center>
<input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></form></td>
</td>
	</tr>	
</table>
<%
End Sub
Sub SaveEditManager(AdminId)
	If AdminId=0 Then
		SysMsg="参数不足，无法进行操作!"
		Call ClsPub.Alert("Back",0)
	End If
	Dim Username,Password,IsLock,PowerList
	Username=ClsPub.SafeRequest(2,"Username",1,0,0)
	Password=ClsPub.SafeRequest(2,"Password",1,0,0)
	IsLock=ClsPub.SafeRequest(2,"IsLock",1,0,0)
	PowerList=ClsPub.SafeRequest(2,"PowerList",1,0,0)
	PowerList=PowerList&","
	If UserName="" Then
		SysMsg="用户名不能为空"
		Call ClsPub.Alert("Back",0)
		Exit Sub
	End If
	If Password<>"" Then
		Password=Md5(Password)
		ClsPub.DB_Execute("Update TW_Admin Set AdminName='"&Username&"',AdminPwd='"&Password&"',AdminPower='"&PowerList&"',IsLock='"&IsLock&"' Where AdminId="&AdminId)
	Else
		ClsPub.DB_Execute("Update TW_Admin Set AdminName='"&Username&"',AdminPower='"&PowerList&"',IsLock='"&IsLock&"' Where AdminId="&AdminId)
	End If
	If ClsAdmin.CheckManager(1,0)=UserName Then
		Session.Contents.Remove(CahceName&"_Admin")
		Session.Contents.Remove(CacheName&"_Power")
		SysMsg="管理员权限已经修改，请重新登陆本系统。"
		Call ClsPub.Alert("Admin_Login.asp",1)
	Else
		SysMsg="管理员信息修改成功"
		Call ClsPub.Alert("Admin_Manager.asp",0)
	End If
End Sub
Function IsSelect(PowerList,PowerValue)
	If InStr(PowerList&",",PowerValue&",")<=0 Then
		IsSelect=False
	Else
		IsSelect=True
	End If
End Function
Sub AddManager()
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table">
	<tr> 
      <td height="22" class="title" colspan=2>添加管理员</td>	 
    </tr>
    <tr>
		<td class=td colspan="2">
<form method="POST" action="Admin_Manager.asp?Action=SaveAddManager">
帐号:<input type="text" name="Username" size="20"> 50个字符长度，建议只使用英文
<br>密码:<input type="password" name="PassWord" size="20"> 如只修改用户登陆名而不修改密码请留空
<br>状态:启用<input type="radio" value="0" name="IsLock" checked checked> 禁用<input type="radio" value="-1" name="IsLock" >
<p>
<b>权限设置:</b>
	</tr>
	<tr>
		<td class=td width="50%">
<input type="checkbox" name="PowerList" value="1">[1] 系统基本设置 </td>
		<td class=td width="50%">
<input type="checkbox" name="PowerList" value="2" checked>[2] 上传文件管理器</td>
	</tr>
	<tr>
		<td class=td width="50%">
<p>
<input type="checkbox" name="PowerList" value="3">[3] 系统文件管理器</td>
		<td class=td width="50%">
<input type="checkbox" name="PowerList" value="4">[4] 上传文件清理器</td>
	</tr>
	
<tr>
		<td class=td width="50%">
<p>
<input type="checkbox" name="PowerList" value="5" checked>[5] 屏蔽IP 管理屏蔽IP</td>
		<td class=td width="50%">
<input type="checkbox" name="PowerList" value="6" >[6] 管理员管理 [添加]</td>
	</tr>
<tr>
		<td class=td width="50%">
<p>
<input type="checkbox" name="PowerList" value="7" checked >[7] 数据备份 数据还原 查看系统空间占用 </td>
		<td class=td width="50%">
<input type="checkbox" name="PowerList" value="8" checked >[8] 更新系统缓存 </td>
	</tr>
<tr>
		<td class=td width="50%">
<p>
<input type="checkbox" name="PowerList" value="9" checked>[9] 添加广告 广告管理 </td>
		<td class=td width="50%">
<input type="checkbox" name="PowerList" value="10">[10] 系统配置还原</td>
	</tr>
<tr>
		<td class=td width="50%">
<p>
<input type="checkbox" name="PowerList" value="11" checked>[11] 系统环境探针</td>
		<td class=td width="50%">
　</td>
	</tr>	<tr>
<td class=td colspan="2" align=center>
<input type="submit" value="提交" name="B1"><input type="reset" value="重置" name="B2"></form></td>
</td>
	</tr>	
</table>

<%
End Sub
Sub SaveAddManager()
	Dim Username,Password,IsLock,PowerList,Temp
	Username=ClsPub.SafeRequest(2,"Username",1,0,0)
	Password=ClsPub.SafeRequest(2,"Password",1,0,0)
	IsLock=ClsPub.SafeRequest(2,"IsLock",1,0,0)
	PowerList=ClsPub.SafeRequest(2,"PowerList",1,0,0)
	PowerList=PowerList&","
	If Username="" Or Password="" Then FoundErr=True:SysMsg="管理员用户名和密码均不能为空"
	If ClsPub.StrLen(Username)<3 Then FoundErr=True:SysMsg="管理员用户名长度不能少于三位!"
	Temp=ClsPub.DB_Query("Select AdminName From TW_Admin Where AdminName='"&Username&"'")
	If IsArray(Temp) Then FoundErr=True:SysMsg="管理员帐号已存在,请选择其它帐号"
	If FoundErr=True Then Call ClsPub.Alert("Back",0):Exit Sub	
	Password=MD5(Password)
	ClsPub.DB_Execute("Insert Into TW_Admin(AdminName,AdminPwd,AdminPower,IsLock)Values('"&UserName&"','"&Password&"','"&PowerList&"','"&IsLock&"')")
	SysMsg="管理员添加成功"
	Call ClsPub.Alert("Admin_Manager.asp",0)
End Sub
%>
<%CloseAll%>
</body>
</html>

⌨️ 快捷键说明

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