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

📄 staple

📁 WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品
💻
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
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 "option"
        Call doGetOption
    Case Else
        Call doGetMain
    End Select
End Sub

Private Sub doPost()
    Select Case LCase(MyIO.QueryString("Handle"))
    Case "change"
        Call doPostChange
    Case "move"
        Call doPostMove
    Case "remove"
        Call doPostRemove
    Case "modify"
        Call doPostModify
    Case "add"
        Call doPostAdd
    Case "sort"
        Call doPostSort
    Case Else
        MyIO.Echo "未知操作"
    End Select
End Sub

Private Sub doGetMain()
    Dim tmp, arr(3)
    tmp = GetFileString(GetMapPath("templet/manager/staple.html"), LOCAL_CHARSET)
    tmp = Replace(tmp, "${Option}", atoi(MyIO.QueryString("Option")))
    tmp = Replace(tmp, "${SeqId}", atol(MyIO.QueryString("SeqId")))
    tmp = Replace(tmp, "${SERVER_NAME}", MyIO.Env("SERVER_NAME"))
    tmp = Replace(tmp, "${Share}", atoi(MyKernel.Config("StapleGroup")))
    tmp = Replace(tmp, "${GroupId}", MyAdmin("GroupId"))
    tmp = Replace(tmp, "${TeamId}", MyAdmin("TeamId"))
    tmp = Replace(tmp, "${AdminId}", MyAdmin("SeqId"))
    tmp = Replace(tmp, "${Power}", MyPower.Status)
    arr(0) = MyKernel.Config("AllowImage")
    arr(1) = MyKernel.Config("AllowRing")
    arr(2) = MyKernel.Config("AllowVideo")
    arr(3) = MyKernel.Config("AllowSoft")
    tmp = Replace(tmp, "${Allow}", Join(arr, "|"))
    MyIO.Echo tmp
End Sub

Private Sub doGetOption()
    Dim xmlDoc, xmlNode
    Select Case MyIO.QueryString("Option")
    Case "0"
        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=""72%"" class=""winT0""><b>栏目名称</b></td>"
        MyIO.Echo "<td width=""6%"" class=""winT0""><b>图标</b></td>"
        MyIO.Echo "<td width=""6%"" class=""winT0""><b>类型</b></td>"
        MyIO.Echo "<td width=""6%"" class=""winT0""><b>状态</b></td>"
        MyIO.Echo "<td width=""10%"" class=""winT0""><b>管理</b></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr>"
        MyIO.Echo "<td colspan=""5"">"
        MyIO.Echo "<div id=""_tree_"">"
        MyIO.Echo "<div id=""tree_item_0"" expand=""no"" mark="""" last=""1"" style=""font-size:12px""></div>"
        MyIO.Echo "</div>"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td colspan=""5"">"
        MyIO.Echo " <label style=""padding:4px 2px 0px 2px""><b>管理</b></label>"
        MyIO.Echo " <input type=""button"" value=""隐藏"" class=""btn"" onclick=""tree.changeAll(0)"" />"
        MyIO.Echo " <input type=""button"" value=""恢复"" class=""btn"" onclick=""tree.changeAll(1)"" />"
        MyIO.Echo " <input type=""button"" value=""移动"" class=""btn"" onclick=""tree.moveAll()"" />"
        MyIO.Echo " <input type=""button"" value=""删除"" class=""btn"" onclick=""tree.removeAll()"" />"
        MyIO.Echo " <input type=""button"" value=""主题排序"" class=""btn"" onclick=""tree.sort()"" />"
        MyIO.Echo " <input type=""button"" value=""搜索"" class=""btn"" onclick=""tree.query(this, this.form.Keyword)"" />"
        MyIO.Echo " <input type=""text"" name=""Keyword"" class=""txt"" />"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td colspan=""5"">"
        MyIO.Echo " <label style=""padding:4px 2px 0px 2px""><b>图标</b></label>"
        MyIO.Echo " <img src=""images/xw_tree2.gif"" border=""0"" align=""absBottom"" /> 未打开的栏目"
        MyIO.Echo " <img src=""images/xw_tree3.gif"" border=""0"" align=""absBottom"" /> 已打开的栏目"
        MyIO.Echo " <img src=""images/xw_tree4.gif"" border=""0"" align=""absBottom"" /> 只有一级栏目<br/>"
        MyIO.Echo " <label style=""padding:4px 2px 0px 2px""><b>类型</b></label>"
        MyIO.Echo " <img src=""images/xw_cate0.gif"" border=""0"" align=""absBottom"" /> 普通栏目"
        MyIO.Echo " <img src=""images/xw_cate1.gif"" border=""0"" align=""absBottom"" /> HTTP连接"
        MyIO.Echo " <img src=""images/xw_cate2.gif"" border=""0"" align=""absBottom"" /> 栏目映射<br/>"
        MyIO.Echo " <label style=""padding:4px 2px 0px 2px""><b>状态</b></label>"
        MyIO.Echo " <img src=""images/xw_stat0.gif"" border=""0"" align=""absBottom"" /> 正常的栏目"
        MyIO.Echo " <img src=""images/xw_stat1.gif"" border=""0"" align=""absBottom"" /> 隐藏的栏目"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "</table>"
        MyIO.Echo "</form>"
    Case "1"
        If MyPower("AddStaple") = 0 Or MyPower.Status = 100 Then
            MyIO.Echo "您没有新建主题的权限"
        Else
            MyIO.Echo "<form id=""frmMain"" action=""admin_staple.asp?Handle=add&Type=0&Option=1"" method=""post"" enctype=""multipart/form-data"" onsubmit=""return(false)"" target=""console"">"
            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 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=""Title"" class=""txt"" style=""width:200px"" />" & MUST_INPUT & "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>主题说明</td>"
            MyIO.Echo "<td><textarea name=""Content"" class=""area"" style=""width:500px;height:100px""></textarea></td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>主题横幅</td>"
            MyIO.Echo "<td><input type=""file"" name=""Icon"" class=""txt"" /> 支持" & Replace(MyKernel.Config("AllowImage"), "|", "、") & "等格式的图片</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>主题LOGO</td>"
            MyIO.Echo "<td><input type=""file"" name=""Logo"" class=""txt"" /> 支持" & Replace(MyKernel.Config("AllowImage"), "|", "、") & "等格式的图片v</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>主题模版</td>"
            MyIO.Echo "<td>"
            MyIO.Echo GetTempletHtml("Templet", "")
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>内容模版</td>"
            MyIO.Echo "<td>"
            MyIO.Echo GetTempletHtml("ContentTemplet", "")
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>栏目分页</td>"
            MyIO.Echo "<td><input type=""text"" name=""StaplePage"" value=""0"" class=""txt"" style=""width:40px"" />" & MUST_INPUT & " 栏目分页的条数，0表示不分页</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>内容分页</td>"
            MyIO.Echo "<td><input type=""text"" name=""ContentPage"" value=""20"" class=""txt"" style=""width:40px"" />" & MUST_INPUT & " 内容分页的条数，0表示不分页</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>下级栏目对齐方式</td>"
            MyIO.Echo "<td>"
            MyIO.Echo "<select name=""StapleAlign"" class=""sel"">"
            MyIO.Echo "<option value=""0"">向左对齐</option>"
            MyIO.Echo "<option value=""1"">居中对齐</option>"
            MyIO.Echo "<option value=""2"">向右对齐</option>"
            MyIO.Echo "</select>"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>下级栏目并列个数</td>"
            MyIO.Echo "<td><input type=""text"" name=""StapleCount"" value=""1"" class=""txt"" style=""width:40px"" />" & MUST_INPUT & " 一行里并列显示的下级栏目个数，建议不要超过4个并列栏目</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>下级栏目排序方式</td>"
            MyIO.Echo "<td>"
            MyIO.Echo "<select name=""StapleSort"" class=""sel"">"
            MyIO.Echo "<option value=""0"">按输入顺序</option>"
            MyIO.Echo "<option value=""1"">按输入反序</option>"
            MyIO.Echo "<option value=""2"">按点击率</option>"
            MyIO.Echo "<option value=""3"">自定义排序</option>"
            MyIO.Echo "</select>"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>下级内容对齐方式</td>"
            MyIO.Echo "<td>"
            MyIO.Echo "<select name=""ContentAlign"" class=""sel"">"
            MyIO.Echo "<option value=""0"">向左对齐</option>"
            MyIO.Echo "<option value=""1"">居中对齐</option>"
            MyIO.Echo "<option value=""2"">向右对齐</option>"
            MyIO.Echo "</select>"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>下级内容并列个数</td>"
            MyIO.Echo "<td><input type=""text"" name=""ContentCount"" value=""1"" class=""txt"" style=""width:40px"" />" & MUST_INPUT & " 一行里并列显示的下级内容个数，非特殊情况不要使用该属性</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>下级内容排序方式</td>"
            MyIO.Echo "<td>"
            MyIO.Echo "<select name=""ContentSort"" class=""sel"">"
12345

⌨️ 快捷键说明

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