📄 admin_administrator.asp

📁 依蓝旅游网站管理系统Elan2008.SP2
💻 ASP
📖 第 1 页 / 共 4 页
字号:
12 3 4 下一页
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
%>
<!--#Include File="../Conn.asp"-->
<!--#Include File="../Inc/MD5.asp"-->
<!--#Include File="Admin_CheckPurview.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href='Admin_Style.css' type='text/css' rel='stylesheet'>
<title>后台管理员管理</title>
<script language="javascript" src="../js/Common.js"></script>
<script language="javascript" src="../js/InstallDir.js"></script>
<script language="javascript" src="../Js/Ajax.js"></script>
</head>
<body>
<%
If EL_Admin.Purview <> 1 Then
   EL_Admin_ShowPurviewError("您没有足够的权限访问该页面")
End If

Dim CurrentPath
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" class="Border">
  <tr>
    <td align="center" class="top_25"><strong>后台管理员管理</strong></td>
  </tr>
  <tr>
    <td class="td_50">管理导航：<a href="Admin_Administrator.asp">管理首页</a> | <a href="Admin_Administrator.asp?Action=Add">添加管理员</a></td>
  </tr>
</table>
<br>
<%

If EL_Admin.Purview <> 1 Then
   EL_Admin.ShowPurviewError("对不起！您没有足够的管理权限")
End If

Dim ArrPurviewOthers(50)
ArrPurviewOthers(0) = "0$修改自己的密码$1"
ArrPurviewOthers(1) = "1$网站频道管理$0"
ArrPurviewOthers(2) = "2$网站广告管理$0"
ArrPurviewOthers(3) = "3$友情链接管理$0"
ArrPurviewOthers(4) = "4$网站公告管理$0"
ArrPurviewOthers(5) = "5$网站调查管理$0"
ArrPurviewOthers(6) = "6$网站风格管理$0"
ArrPurviewOthers(7) = "7$网站模板管理$0"
ArrPurviewOthers(8) = "8$网站流量统计管理$0"
ArrPurviewOthers(9) = "9$站内链接管理$0"
ArrPurviewOthers(10) = "10$字符过滤管理$0"
ArrPurviewOthers(11) = "11$自定义标签管理$0"
ArrPurviewOthers(12) = "12$网站日志管理$0"
ArrPurviewOthers(13) = "13$网站评论管理$0"
ArrPurviewOthers(14) = "14$信息采集管理$0"
ArrPurviewOthers(15) = "15$会员管理$0"
ArrPurviewOthers(16) = "16$数据库管理$0"
ArrPurviewOthers(17) = "17$订单管理$0"
ArrPurviewOthers(18) = "18$酒店订单管理$0"
ArrPurviewOthers(19) = "19$度假订单管理$0"
ArrPurviewOthers(20) = "20$机票订单管理$0"
ArrPurviewOthers(21) = "21$景点订单管理$0"
ArrPurviewOthers(22) = "22$商品兑换管理$0"
ArrPurviewOthers(23) = "23$在线支付管理$0"
ArrPurviewOthers(24) = "24$订单付款记录管理$0"
ArrPurviewOthers(25) = "25$租车订单管理$0"
ArrPurviewOthers(26) = "26$城市管理$0"
ArrPurviewOthers(27) = "27$系统缓存管理$0"



Select Case Action
   Case "": Call ManageAdmin()
   Case "CheckName": Call CheckAdminName()
   Case "Add": Call AddAdmin()
   Case "SaveNewAdmin": Call SaveAdmin(0)
   Case "Modify": Call ModifyAdmin()
   Case "SaveModify": Call SaveAdmin(1) 
   Case "Delete": Call SetAdmin(2)
   Case "SetActived": Call SetAdmin(3)
   Case "DeleteBatch": Call SetAdmin(4)
End Select
Call EL_Common.Bottom()
Call ApplicationTerminate()

Sub SetAdmin(SetType)
   Dim AdminID, AdminCmd, ArrAdminID
   
   AdminID = EL_Common.ELRequest("AdminID", 2)
   ArrAdminID = EL_Common.ELRequest("CheckObject", 1)
   
   Call EL_Common.InitCommand(AdminCmd, "EL_SP_Administrator")
   With AdminCmd
      .Parameters.Append .CreateParameter("RETURN", 2, 4)
	  .Parameters.Append .CreateParameter("@SaveType", 3, 1, 4, SetType)
	  .Parameters.Append .CreateParameter("@AdminID", 3, 1, 4, AdminID)
	  .Parameters.Append .CreateParameter("@AdminName", 200, 1, 50, "")
	  .Parameters.Append .CreateParameter("@Password", 200, 1, 32, "")
	  .Parameters.Append .CreateParameter("@Purview", 3, 1, 4, 0)
	  .Parameters.Append .CreateParameter("@EnableMultiLogin", 11, 1, 1, 0)
	  .Parameters.Append .CreateParameter("@AllowLoginIp", 200, 1, 1000, ArrAdminID)
	  .Parameters.Append .CreateParameter("@ArrPurviewInChannel", 200, 1, 500, "")
	  .Parameters.Append .CreateParameter("@ArrPurviewInClass", 200, 1, 500, "")
	  .Parameters.Append .CreateParameter("@ArrPurviewOthers", 200, 1, 500, "")
	  .Parameters.Append .CreateParameter("@Actived", 11, 1, 1, 0)
	  .Execute()
   End With
   
   Set AdminCmd = Nothing
   Select Case SetType
      Case 2: Call EL_Common.InsertLog(1, ComeURL, "删除管理员", EL_Admin.AdminName)
	  Case 3: Call EL_Common.InsertLog(1, ComeURL, "冻结/激活管理员", EL_Admin.AdminName)
	  Case 4: Call EL_Common.InsertLog(1, ComeURL, "删除管理员", EL_Admin.AdminName)
   End Select
   EL_Common.ShowScriptError()
   Response.Redirect ComeURL   
End Sub

Sub SaveAdmin(SaveType)
   On Error Resume Next
   Dim AdminCmd
   Dim AdminID, AdminName, Purview, Password, PasswordConfirm, EnableMultiLogin, Actived, AllowLoginIp
   Dim ArrPurviewInChannel, ArrPurviewInClass, ArrPurviewOthers
   
   AdminID = EL_Common.ELRequest("AdminID", 2)
   AdminName = EL_Common.ELRequest("AdminName", 1)
   Password = EL_Common.ELRequest("Password", 1)
   PasswordConfirm = EL_Common.ELRequest("PasswordConfirm", 1)
   Purview = EL_Common.ELRequest("Purview", 2)
   EnableMultiLogin = EL_Common.ELRequest("EnableMultiLogin", 2)
   Actived = EL_Common.ELRequest("Actived", 2)
   AllowLoginIp = EL_Common.ELRequest("AllowLoginIp", 1)
   
   If AdminName = "" AND SaveType = 0 Then
      EL_Common.ShowErrorMsg("管理员名不能为空")
	  Exit Sub
   End If
   
   If SaveType = 0 Then
      If Password = "" Then
         EL_Common.ShowErrorMsg("密码不能为空")
	     Exit Sub
      ElseIf Password <> PasswordConfirm Then
         EL_Common.ShowErrorMsg("您两次输入的密码不一致")
	     Exit Sub
      End If
   Else
      If Password <> "" And Password <> PasswordConfirm Then
	     EL_Common.ShowErrorMsg("您两次输入的密码不一致")
	     Exit Sub
	  End If
   End If
   
   Select Case Purview
      Case 1:
	     ArrPurviewInChannel = "0"
		 ArrPurviewInClass = "0"
		 ArrPurviewOthers = "0"
	  Case 2:
	     ArrPurviewInChannel = EL_Common.ELRequest("ChannelPurview", 1)
		 ArrPurviewInClass = "0"
		 ArrPurviewOthers = EL_Common.ELRequest("PurviewOthers", 1)
		 ArrPurviewInChannel = EL_Common.Join2String("0", ArrPurviewInChannel, ",")
	  Case 3:
	     ArrPurviewInChannel = EL_Common.ELRequest("PurviewInChannel", 1)
		 ArrPurviewInClass = EL_Common.ELRequest("PurviewClassObject", 1)
		 ArrPurviewOthers = EL_Common.ELRequest("PurviewOthers", 1)
		 ArrPurviewInClass = EL_Common.Join2String("0", ArrPurviewInClass, ",")
		 If ArrPurviewInChannel = "" Then ArrPurviewInChannel = "0"
	  Case Else:
	     EL_Common.ShowErrorMsg("管理员权限错误")
	     Exit Sub
   End Select   
   
     
   AllowLoginIp = Replace(AllowLoginIp, VBCRLF, ",")
   AllowLoginIp = Replace(AllowLoginIp, " ", "")
   While(Instr(AllowLoginIp, ",,")>0)
      AllowLoginIp = Replace(AllowLoginIp, ",,", ",")
   Wend
   
   ArrPurviewInChannel = Replace(ArrPurviewInChannel, " ", "")
   ArrPurviewInClass = Replace(ArrPurviewInClass, " ", "")
   ArrPurviewOthers = Replace(ArrPurviewOthers, " ", "")
   
   If SaveType = 0 Then
      Password = MD5(Password, 32)
   Else
      If Password <> "" Then 
	     Password = MD5(Password, 32)
		 If EL_Common.ELClng(EL_Admin.AdminID) = AdminID Then Response.Cookies("Admin_"& EL_Sn)("AdminPassword") = Password
	  End If
   End If
   
   Call EL_Common.InitCommand(AdminCmd, "EL_SP_Administrator")
   With AdminCmd
      .Parameters.Append .CreateParameter("RETURN", 2, 4)
	  .Parameters.Append .CreateParameter("@SaveType", 3, 1, 4, SaveType)
	  .Parameters.Append .CreateParameter("@AdminID", 3, 1, 4, AdminID)
	  .Parameters.Append .CreateParameter("@AdminName", 200, 1, 50, AdminName)
	  .Parameters.Append .CreateParameter("@Password", 200, 1, 32, Password)
	  .Parameters.Append .CreateParameter("@Purview", 3, 1, 4, Purview)
	  .Parameters.Append .CreateParameter("@EnableMultiLogin", 11, 1, 1, EnableMultiLogin)
	  .Parameters.Append .CreateParameter("@AllowLoginIp", 200, 1, 1000, AllowLoginIp)
	  .Parameters.Append .CreateParameter("@ArrPurviewInChannel", 200, 1, 500, ArrPurviewInChannel)
	  .Parameters.Append .CreateParameter("@ArrPurviewInClass", 200, 1, 500, ArrPurviewInClass)
	  .Parameters.Append .CreateParameter("@ArrPurviewOthers", 200, 1, 500, ArrPurviewOthers)
	  .Parameters.Append .CreateParameter("@Actived", 11, 1, 1, Actived)
	  .Execute()
   End With
   
   If AdminCmd(0) = 40 And SaveType = 0 Then
      EL_Common.ShowErrorMsg("管理员名（"& EL_Common.ServerHTMLEncode(AdminName) &"）已经存在，请重新输入")
	  Set AdminCmd = Nothing
	  Exit Sub
   End If
   
  
   Select Case SaveType
      Case 0:
	     Call EL_Common.InsertLog(1, ComeURL, "添加管理员", EL_Admin.AdminName)
		 EL_Common.ShowSuccessMsg("添加管理员成功！<p>管理员名：<span class=bluetext>"& EL_Common.ServerHTMLEncode(AdminName) &"</span><br>管理权限："& EL_Admin.ArrLevelName(Purview) &"<br>管理密码："& PasswordConfirm &"</p>")
	  Case 1:
	     If Password = "" Then PasswordConfirm = "<span class='graytext'>[未修改密码]</span>"
		 Call EL_Common.InsertLog(1, ComeURL, "修改管理员信息", EL_Admin.AdminName)
		 EL_Common.ShowSuccessMsg("修改管理员成功！<p>管理员名：<span class=bluetext>"& EL_Common.ServerHTMLEncode(AdminName) &"</span><br>管理权限："& EL_Admin.ArrLevelName(Purview) &"<br>管理密码："& PasswordConfirm &"</p>")
   End Select
   
   Set AdminCmd = Nothing
   EL_Common.ShowScriptError()
End Sub

Sub CheckAdminName()
   On Error Resume Next
   Dim AdminName, CheckCmd, ReturnCheck
   AdminName = EL_Common.ELRequest("AdminName", 1)
   
   Call EL_Common.InitCommand(CheckCmd, "EL_SP_CheckUserName")
   With CheckCmd
      .Parameters.Append .CreateParameter("RETURN", 2, 4)
	  .Parameters.Append .CreateParameter("@CheckType", 3, 1, 4, 1)
	  .Parameters.Append .CreateParameter("@StrName", 200, 1, 100, AdminName)
	  .Execute()
   End With
   ReturnCheck = CheckCmd(0)
   Set CheckCmd = Nothing
   Call CloseConn()         
   EL_Common.ShowScriptError()
   Response.Clear()
   Response.Write ReturnCheck
   Response.End()
End Sub

Sub ModifyAdmin()
On Error Resume Next
Dim AdminID
Dim AdminCmd, rsAdmin, i, TR_PurviewDiaply(4)

TR_PurviewDiaply(1) = "display:none;"
TR_PurviewDiaply(2) = "display:none;"
TR_PurviewDiaply(3) = "display:none;"
TR_PurviewDiaply(4) = "display:none;"
AdminID = EL_Common.ELRequest("AdminID", 2)

Call EL_Common.InitCommonCmd(AdminCmd, rsAdmin, "EL_Admin", "*", "AdminID="& AdminID)
rsAdmin.Close()
If AdminCmd(0) <> 1 Then
   EL_Common.ShowErrorMsg("指定管理员不存在")
   Set rsAdmin = Nothing
   Set AdminCmd = Nothing
   Exit Sub
End If
rsAdmin.Open()

If rsAdmin("Purview") <> 1 Then
   TR_PurviewDiaply(4) = ""
   TR_PurviewDiaply(rsAdmin("Purview")) = ""
End If

%>
<script language="javascript">
function CheckAll(s){
  for (var i=0;i<document.myform.elements.length;i++){
    var e = document.myform.elements[i];
    if (e.type == 'checkbox' && e.name==s && e.disabled == false){
12 3 4 下一页
💿 文件大小 4678 K
👤 上传用户 libin2722
📂 所属分类企业管理
🏷️ 相关标签

#Elan #2008 #SP #旅游
⌨️ 快捷键说明

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