📄 manager.asp
字号:
End If
End Sub
Private Sub doPostGroupAdd()
If Not ValidAdmin() Then
strError = "您没有新建管理员分组的权限"
Else
Dim strName
Dim strIntro
Dim objCmd
strName = Trim(MyIO.Form("Name"))
strIntro = Trim(MyIO.Form("Intro"))
If strName = "" Then
strError = "请输入组名"
Else
Set objCmd = MyKernel.Command(IIf(MyPower.Status = 1, T_ADMIN_GROUP, T_ADMIN_TEAM))
objCmd.CommandType = "SELECT"
objCmd.Where = "NAME='" & SafeString(strName) & "'"
If objCmd.Exec Then
strError = "组名已被占用"
Else
objCmd.CommandType = "INSERT"
objCmd.Add "Name", strName
objCmd.Add "Intro", strIntro
If MyPower.Status = 1 Then
objCmd.Add "Power", GetPowerString()
Else
objCmd.Add "GroupId", MyAdmin("GroupId")
End If
objCmd.Exec
If MyPower.Status = 1 Then
WM_SetCache "group"
Else
WM_SetCache "team"
End If
blnError = False
strError = "管理员分组添加成功"
End If
Set objCmd = Nothing
End If
End If
ExportHead "添加管理员分组"
MyIO.Echo "<script language=""javascript"">"
MyIO.Echo "function myload()"
MyIO.Echo "{"
MyIO.Echo "var prt = window.parent;"
MyIO.Echo "var frm = prt.document.getElementById(""frmMain"");"
If Not blnError Then
MyIO.Echo "prt.opener.opt.cache[1] = null;"
MyIO.Echo "prt.opener.opt.cache[2] = null;"
MyIO.Echo "prt.opener.opt.lock(1);"
MyIO.Echo "frm.reset();"
MyIO.Echo "prt.MessageBox.show(MSG_HINT, """ & strError & """);"
Else
MyIO.Echo "prt.MessageBox.show(MSG_WARNING, """ & strError & """);"
End If
MyIO.Echo "frm.btnPost.disabled = false;"
MyIO.Echo "}"
MyIO.Echo "</script>"
ExportFoot
End Sub
Private Function GetPowerString()
Dim objPower
Dim strKey
Set objPower = vbsre.mocom.WAPmo.Power.newInstance()
If MyIO.Form("Grant") = "1" Then
For Each strKey In objPower.keys
objPower(strKey) = 1
Next
Else
For Each strKey In objPower.keys
objPower(strKey) = atoi(MyIO.Form(strKey))
Next
End If
GetPowerString = objPower.toString()
Set objPower = Nothing
End Function
Private Sub doGetGroupModify()
Dim objCmd
Dim objPower
Dim lngId
lngId = atol(MyIO.QueryString("GroupId"))
Set objCmd = MyKernel.Command(IIf(MyPower.Status = 1, T_ADMIN_GROUP, T_ADMIN_TEAM))
objCmd.CommandType = "SELECT"
If MyPower.Status = 1 Then
objCmd.Where = "SEQID=" & lngId
Else
objCmd.Where = "SEQID=" & lngId & " AND GROUPID=" & MyAdmin("GroupId")
End If
If Not ValidAdmin() Then
ExportClose "您没有编辑管理员分组的权限"
ElseIf lngId <= 0 Then
ExportClose "请选择您要编辑的管理员分组"
ElseIf Not objCmd.Exec Then
ExportClose "找不到您要编辑的分组"
Else
Set objPower = vbsre.mocom.WAPmo.Power.newInstance()
objPower.fromString objCmd("Power")
If objPower.Status = 1 Then
ExportClose "不能更改超级管理员组的权限"
Else
MyIO.Echo "<html>"
MyIO.Echo "<head>"
MyIO.Echo "<meta http-equiv=""Content-Type"" content=""text/html; charset=utf-8"" />"
MyIO.Echo "<meta http-equiv=""Cache-Control"" content=""no-cache, max-age=0"" />"
MyIO.Echo "<title>编辑管理员分组</title>"
MyIO.Echo "<link rel=""stylesheet"" href=""images/xw.css"" />"
MyIO.Echo "<script language=""javascript"" src=""jspp/jspp.js""></script>"
MyIO.Echo "<script language=""javascript"">"
MyIO.Echo "jspp.using(""mocom.WAPmo.Kernel"");"
MyIO.Echo "function chkAllX(obj)"
MyIO.Echo "{"
MyIO.Echo "var frm = obj.form;"
MyIO.Echo "var ptr = frm.getElementsByTagName(""INPUT"");"
MyIO.Echo "for (var i = 0; i < ptr.length; i++)"
MyIO.Echo "{"
MyIO.Echo "if (ptr[i].type == ""checkbox"" && ptr[i].name != ""Grant"")"
MyIO.Echo "{"
MyIO.Echo "ptr[i].checked = obj.checked;"
MyIO.Echo "ptr[i].disabled = obj.checked;"
MyIO.Echo "}"
MyIO.Echo "}"
MyIO.Echo "}"
MyIO.Echo "window.onload = function()"
MyIO.Echo "{"
MyIO.Echo "window.focus();"
MyIO.Echo "};"
MyIO.Echo "</script>"
MyIO.Echo "</head>"
MyIO.Echo "<body class=""system2"">"
MyIO.Echo "<form id=""frmMain"" action=""admin_manager.asp?Handle=Group.Modify&GroupId=" & objCmd("SeqId") & """ method=""post"" onsubmit=""return(false)"" target=""console"">"
MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
MyIO.Echo "<tr>"
MyIO.Echo "<td colspan=""2"" class=""winT0""><b>编辑管理员分组</b></td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT4"">"
MyIO.Echo "<td width=""20%"">组名</td>"
MyIO.Echo "<td width=""80%""><input type=""text"" name=""Name"" class=""txt"" style=""width:300px"" value=""" & MyIO.HTMLEncode(objCmd("Name")) & """ /></td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT4"">"
MyIO.Echo "<td>说明</td>"
MyIO.Echo "<td>"
MyIO.Echo "<textarea name=""Intro"" class=""area"" style=""width:300px;height:100px"">" & MyIO.HTMLEncode(objCmd("Intro")) & "</textarea>"
MyIO.Echo "</td>"
MyIO.Echo "</tr>"
If MyPower.Status = 1 Then
MyIO.Echo "<tr>"
MyIO.Echo "<td colspan=""2"" class=""winT0""><b>设置组权限</b></td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>所有权限</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""Grant"" value=""1"" onclick=""chkAllX(this)"" /> 选择所有权限</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>站点配置</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ConfigWeb"" value=""1""" & setChecked(objPower("ConfigWeb") = 1) & " /> 可以配置站点的基本信息</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>首页配置</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ConfigIndex"" value=""1""" & setChecked(objPower("ConfigIndex") = 1) & " /> 可以配置首页的基本信息</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>插件配置</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ConfigPlus"" value=""1""" & setChecked(objPower("ConfigPlus") = 1) & " /> 可以配置留言本、论坛、站内短信、合作、广告等插件的基本参数</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>上传下载配置</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ConfigDownload"" value=""1""" & setChecked(objPower("ConfigDownload") = 1) & " /> 可以配置上传下载支持的文件格式</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>IP规则配置</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ConfigIPRule"" value=""1""" & setChecked(objPower("ConfigIPRule") = 1) & " /> 可以配置IP访问规则</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>终端规则配置</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ConfigUARule"" value=""1""" & setChecked(objPower("ConfigUARule") = 1) & " /> 可以配置手机号码访问规则</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>空间情况</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ViewSpace"" value=""1""" & setChecked(objPower("ViewSpace") = 1) & " /> 可以查看站点的空间使用情况</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>修改密码</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ChangePassword"" value=""1""" & setChecked(objPower("ChangePassword") = 1) & " /> 可以修改自身的密码</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>添加主题/栏目</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""AddStaple"" value=""1""" & setChecked(objPower("AddStaple") = 1) & " /> 可以添加主题和栏目</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>删除主题/栏目</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""DeleteStaple"" value=""1""" & setChecked(objPower("DeleteStaple") = 1) & " /> 可以删除主题和栏目</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>修改主题/栏目</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ModifyStaple"" value=""1""" & setChecked(objPower("ModifyStaple") = 1) & " /> 可以修改主题和栏目的配置</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>添加内容</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""AddContent"" value=""1""" & setChecked(objPower("AddContent") = 1) & " /> 可以添加内容</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>删除内容</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""DeleteContent"" value=""1""" & setChecked(objPower("DeleteContent") = 1) & " /> 可以删除内容</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>修改内容</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ModifyContent"" value=""1""" & setChecked(objPower("ModifyContent") = 1) & " /> 可以修改内容</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>删除评论</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""DeleteRemark"" value=""1""" & setChecked(objPower("DeleteRemark") = 1) & " /> 可以删除内容评论</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>查看用户</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ViewUser"" value=""1""" & setChecked(objPower("ViewUser") = 1) & " /> 可以查看用户列表和用户基本信息</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>删除用户</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""DeleteUser"" value=""1""" & setChecked(objPower("DeleteUser") = 1) & " /> 可以彻底删除用户</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>更改用户</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ModifyUser"" value=""1""" & setChecked(objPower("ModifyUser") = 1) & " /> 可以更改用户的状态为删除/禁止/游客/注册/VIP</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>用户统计</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ViewUserRecord"" value=""1""" & setChecked(objPower("ViewUserRecord") = 1) & " /> 可以查看用户访问记录</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>站点统计</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ViewHitRecord"" value=""1""" & setChecked(objPower("ViewHitRecord") = 1) & " /> 可以查看站点点击率</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>栏目统计</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ViewStapleRecord"" value=""1""" & setChecked(objPower("ViewStapleRecord") = 1) & " /> 可以查看栏目点击率</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>内容统计</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ViewContentRecord"" value=""1""" & setChecked(objPower("ViewContentRecord") = 1) & " /> 可以查看内容点击率</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>下载统计</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""ViewDownloadRecord"" value=""1""" & setChecked(objPower("ViewDownloadRecord") = 1) & " /> 可以查看下载次数</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>添加论坛</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""AddForum"" value=""1""" & setChecked(objPower("AddForum") = 1) & " /> 可以添加论坛</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
MyIO.Echo "<td>删除论坛</td>"
MyIO.Echo "<td><input type=""checkbox"" name=""DeleteForum"" value=""1""" & setChecked(objPower("DeleteForum") = 1) & " /> 可以删除论坛</td>"
MyIO.Echo "</tr>"
MyIO.Echo "<tr class=""winT1"">"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -