📄 manager

📁 WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品
💻
📖 第 1 页 / 共 5 页
字号:
上一页 1 2 3 45
        MyIO.Echo "</body>"
        MyIO.Echo "</html>"
    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"">"
                MyIO.Echo "<td>修改论坛</td>"
上一页 1 2 3 45
💿 文件大小 2007 K
👤 上传用户 yangjiuhe
📂 所属分类手机WAP编程
🏷️ 相关标签

#WAPmo #WAP #网站 #手机
⌨️ 快捷键说明

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