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

📄 manager.asp

📁 WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品
💻 ASP
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
<%
Class ImplMocomWAPmoManagerManager
Private blnError
Private strError
Private rs
Private strSQL

Private Sub Class_Initialize()
    blnError = True
    strError = "无错误"
End Sub

Private Sub Class_Terminate()
End Sub

Public Sub main()
    If MyIO.Env("REQUEST_METHOD") = "POST" Then
        Call doPost
    Else
        Call doGet
    End If
End Sub

Private Sub doGet()
    Select Case LCase(MyIO.QueryString("Handle"))
    Case "modify"
        Call doGetModify
    Case "space"
        Call doGetSpace
    Case "option"
        Call doGetOption
    Case "group.add"
        Call doGetGroupAdd
    Case "group.modify"
        Call doGetGroupModify
    Case "compact"
        Call doGetCompact
    Case Else
        Call doGetMain
    End Select
End Sub

Private Sub doPost()
    Select Case LCase(MyIO.QueryString("Handle"))
    Case "add"
        Call doPostAdd
    Case "password"
        Call doPostPassword
    Case "change"
        Call doPostChange
    Case "remove"
        Call doPostRemove
    Case "modify"
        Call doPostModify
    Case "group.add"
        Call doPostGroupAdd
    Case "group.modify"
        Call doPostGroupModify
    Case "group.remove"
        Call doPostGroupRemove
    Case Else
        MyIO.Echo "未知操作"
    End Select
End Sub

Private Sub doGetMain()
    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.Option = " & atoi(MyIO.QueryString("Option")) & ";"
    MyIO.Echo "</script>"
    MyIO.Echo "<script language=""javascript"" src=""images/wm_manager.js""></script>"
    MyIO.Echo "</head>"
    MyIO.Echo "<body style=""padding:5;margin:0;overflow:auto;border:0"">"
    MyIO.Echo "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" style=""border:1px solid #000000"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td align=""right"" bgcolor=""#A2ADC4"" style=""border-bottom:1px solid #000000;padding-right:1px;padding-top:1px"" height=""24""><img src=""images/xw_cls0.gif"" border=""0"" align=""absMiddle"" onMouseOver=""this.src='images/xw_cls1.gif'"" onMouseOut=""this.src='images/xw_cls0.gif'"" onMouseDown=""this.src='images/xw_cls2.gif'"" onMouseUp=""this.src='images/xw_cls1.gif'"" /></td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td>"
    MyIO.Echo "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td height=""24"" style=""background-image:url(images/xw_back4.gif)"">&nbsp;</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td>"
    MyIO.Echo "<table width=""98%"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td id=""_OPTION"" class=""f12""></td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "<iframe id=""console"" name=""console"" frameborder=""0"" scrolling=""no"" width=""100%"" height=""30""></iframe>"
    MyIO.Echo "</body>"
    MyIO.Echo "</html>"
End Sub

Private Function ValidAdmin()
    ValidAdmin = False
    If MyPower.Status = 0 And MyPower("AddManager") = 0 Then Exit Function
    If MyPower.Status = 100 Then Exit Function
    ValidAdmin = True
End Function

Private Sub doGetOption()
    Dim xmlDoc, xmlRoot, xmlNode
    Select Case MyIO.QueryString("Option")
    Case "0"
        If Not ValidAdmin() Then
            MyIO.Echo "您没有超级管理员的权限"
        Else
            MyIO.Echo "<form id=""frmMain"" onsubmit=""return(false)"">"
            MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
            MyIO.Echo "<tr>"
            MyIO.Echo "<td width=""6%"" class=""winT0"">选择</td>"
            MyIO.Echo "<td width=""17%"" class=""winT0"">所属组</td>"
            MyIO.Echo "<td width=""17%"" class=""winT0"">帐号</td>"
            MyIO.Echo "<td width=""10%"" class=""winT0"">状态</td>"
            MyIO.Echo "<td width=""10%"" class=""winT0"">登录次数</td>"
            MyIO.Echo "<td width=""20%"" class=""winT0"">最后登录</td>"
            MyIO.Echo "<td width=""10%"" class=""winT0"">管理</td>"
            MyIO.Echo "</tr>"
            If MyPower.Status = 0 Then
                strSQL = str_format("SELECT A.*,B.Name AS GroupName FROM $0 A,$1 B WHERE A.TeamId=B.SeqId AND A.GroupId=$2", Array(T_ADMIN, T_ADMIN_TEAM, MyAdmin("GroupId")))
            Else
                strSQL = str_format("SELECT A.*,B.Name AS GroupName FROM $0 A,$1 B WHERE A.GroupId=B.SeqId", Array(T_ADMIN, T_ADMIN_GROUP))
            End If
            Set xmlDoc = MyKernel.DB.SQLToXML(strSQL, "admins", "admin")
            For Each xmlNode In xmlDoc.documentElement.childNodes
                MyIO.Echo "<tr class=""winT1"">"
                MyIO.Echo "<td align=""center""><input type=""checkbox"" id=""SeqId"" name=""SeqId"" value=""" & XMLAttr(xmlNode, "seqid") & """ /></td>"
                MyIO.Echo "<td>" & XMLAttr(xmlNode, "groupname") & "</td>"
                MyIO.Echo "<td>" & XMLAttr(xmlNode, "name") & "</td>"
                MyIO.Echo "<td align=""center"">" & IIf(XMLAttr(xmlNode, "forbid") = "1", "禁用", "正常") & "</td>"
                MyIO.Echo "<td align=""right"">" & XMLAttr(xmlNode, "logincount") & "</td>"
                MyIO.Echo "<td align=""right"">"
                If atol(XMLAttr(xmlNode, "outime")) > 0 Then
                    MyIO.Echo FormatTime(XMLAttr(xmlNode, "outime"), "Y-m-d H:i")
                Else
                    MyIO.Echo "&nbsp;"
                End If
                MyIO.Echo "</td>"
                MyIO.Echo "<td align=""center"">"
                MyIO.Echo "<select class=""sel"" onchange=""jspp.Manager.control(this, " & XMLAttr(xmlNode, "seqid") & ")"" stat=""" & XMLAttr(xmlNode, "forbid") & """>"
                MyIO.Echo "<option value=""0"">管理</option>"
                MyIO.Echo "<option value=""1"">编辑</option>"
                MyIO.Echo "<option value=""2"">" & IIf(XMLAttr(xmlNode, "forbid") = "1", "启用", "禁用") & "</option>"
                MyIO.Echo "<option value=""3"">删除</option>"
                MyIO.Echo "</select>"
                MyIO.Echo "</td>"
                MyIO.Echo "</tr>"
            Next
            Set xmlDoc = Nothing
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td align=""center""><input type=""checkbox"" onclick=""chkAll(this)"" /></td>"
            MyIO.Echo "<td colspan=""5"">"
            MyIO.Echo " <input type=""button"" value=""禁用"" class=""btn"" onclick=""jspp.Manager.changeAll(this, 0)"" />"
            MyIO.Echo " <input type=""button"" value=""启用"" class=""btn"" onclick=""jspp.Manager.changeAll(this, 1)"" />"
            MyIO.Echo " <input type=""button"" value=""删除"" class=""btn"" onclick=""jspp.Manager.removeAll(this)"" />"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "</table>"
            MyIO.Echo "</form>"
        End If
    Case "1"
        If Not ValidAdmin() Then
            MyIO.Echo "您没有超级管理员的权限"
        Else
            MyIO.Echo "<form id=""frmMain"" action=""admin_manager.asp?Handle=Add&Option=1"" method=""post"" onsubmit=""return(false)"" target=""console"">"
            MyIO.Echo "  <table width=""100%"" border=""1"" align=""center"" cellpadding=""2"" cellspacing=""0"" bordercolor=""#000000"" style=""border-collapse:collapse"">"
            MyIO.Echo "<tr>"
            MyIO.Echo "<td width=""6%"" class=""winT0"">选择</td>"
            MyIO.Echo "<td width=""24%"" class=""winT0"">组名</td>"
            MyIO.Echo "<td width=""60%"" class=""winT0"">说明</td>"
            MyIO.Echo "<td width=""10%"" class=""winT0"">管理</td>"
            MyIO.Echo "</tr>"
            If MyPower.Status = 1 Then
                Set xmlDoc = WM_GetCache("group")
                Set xmlRoot = xmlDoc.documentElement.childNodes
            Else
                Set xmlDoc = WM_GetCache("team")
                Set xmlRoot = XMLQuery(xmlDoc.documentElement, "team[@groupid=" & MyAdmin("GroupId") & "]")
            End If
            For Each xmlNode In xmlRoot
                MyIO.Echo "<tr class=""winT1"">"
                MyIO.Echo "<td align=""center""><input type=""checkbox"" id=""SeqId"" name=""SeqId"" value=""" & XMLAttr(xmlNode, "seqid") & """ /></td>"
                MyIO.Echo "<td>" & XMLAttr(xmlNode, "name") & "</td>"
                MyIO.Echo "<td>" & Replace(XMLAttr(xmlNode, "intro") & "", vbCrLf, "<br/>") & "</td>"
                MyIO.Echo "<td align=""center"">"
                MyIO.Echo "<select class=""sel"" onchange=""jspp.Group.control(this, " & XMLAttr(xmlNode, "seqid") & ")"">"
                MyIO.Echo "<option value=""0"">管理</option>"
                MyIO.Echo "<option value=""1"">编辑</option>"
                MyIO.Echo "<option value=""3"">删除</option>"
                MyIO.Echo "</select>"
                MyIO.Echo "</td>"
                MyIO.Echo "</tr>"
            Next
            Set xmlRoot = Nothing
            Set xmlDoc = Nothing
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td align=""center""><input type=""checkbox"" onclick=""chkAll(this)"" /></td>"
            MyIO.Echo "<td colspan=""5"">"
            MyIO.Echo " <input type=""button"" value=""新建"" class=""btn"" onclick=""jspp.Group.add(this)"" />"
            MyIO.Echo " <input type=""button"" value=""删除"" class=""btn"" onclick=""jspp.Group.removeAll(this.form)"" />"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "</table>"
            MyIO.Echo "</form>"
        End If
    Case "2"
        If Not ValidAdmin() Then
            MyIO.Echo "您没有超级管理员的权限"
        Else
            MyIO.Echo "<form id=""frmMain"" action=""admin_manager.asp?Handle=Add&Option=2"" method=""post"" onsubmit=""return(false)"" target=""console"">"
            MyIO.Echo "  <table width=""100%"" border=""1"" align=""center"" cellpadding=""2"" cellspacing=""0"" bordercolor=""#000000"" style=""border-collapse:collapse"">"
            MyIO.Echo "<tr>"
            MyIO.Echo "<td colspan=""2"" class=""winT0""><b>添加新管理员</b>" & MUST_INPUT_HINT & "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td width=""20%"">管理员账号</td>"
            MyIO.Echo "<td width=""80%""><input type=""text"" name=""Name"" size=""20"" class=""txt"" />" & MUST_INPUT & " 不要超过20个中英文字</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>管理员密码</td>"
            MyIO.Echo "<td><input type=""password"" name=""Passwd"" size=""20"" class=""txt"" /> " & MUST_INPUT & " 严格区分大小写</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>管理员密码确认</td>"
            MyIO.Echo "<td><input type=""password"" name=""CfmPwd"" size=""20"" class=""txt"" /> " & MUST_INPUT & " 再输入一遍，以便确认</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>所属管理员组</td>"
            MyIO.Echo "<td>"
            MyIO.Echo "<select name=""GroupId"" class=""sel"">"
            MyIO.Echo "<option value=""0"">选择分组</option>"
            If MyPower.Status = 1 Then
                Set xmlDoc = WM_GetCache("group")
                Set xmlRoot = xmlDoc.documentElement.childNodes
            Else
                Set xmlDoc = WM_GetCache("team")
                Set xmlRoot = XMLQuery(xmlDoc.documentElement, "team[@groupid=" & MyAdmin("GroupId") & "]")
            End If
            For Each xmlNode In xmlRoot
                MyIO.Echo "<option value=""" & XMLAttr(xmlNode, "seqid") & """ />" & XMLAttr(xmlNode, "name") & "</option>"
            Next
            Set xmlRoot = Nothing
            Set xmlDoc = Nothing
            MyIO.Echo "</select> " & MUST_INPUT
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
12345

⌨️ 快捷键说明

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