staple

WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品

        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""" & setSelected(objCmd("StapleAlign") = 0) & ">向左对齐</option>"
        MyIO.Echo "<option value=""1""" & setSelected(objCmd("StapleAlign") = 1) & ">居中对齐</option>"
        MyIO.Echo "<option value=""2""" & setSelected(objCmd("StapleAlign") = 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=""" & objCmd("StapleCount") & """ 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""" & setSelected(objCmd("StapleSort") = 0) & ">按输入顺序</option>"
        MyIO.Echo "<option value=""1""" & setSelected(objCmd("StapleSort") = 1) & ">按输入反序</option>"
        MyIO.Echo "<option value=""2""" & setSelected(objCmd("StapleSort") = 2) & ">按点击率</option>"
        MyIO.Echo "<option value=""3""" & setSelected(objCmd("StapleSort") = 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""" & setSelected(objCmd("ContentAlign") = 0) & ">向左对齐</option>"
        MyIO.Echo "<option value=""1""" & setSelected(objCmd("ContentAlign") = 1) & ">居中对齐</option>"
        MyIO.Echo "<option value=""2""" & setSelected(objCmd("ContentAlign") = 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=""" & objCmd("ContentCount") & """ 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"">"
        MyIO.Echo "<option value=""0""" & setSelected(objCmd("ContentSort") = 0) & ">按输入顺序</option>"
        MyIO.Echo "<option value=""1""" & setSelected(objCmd("ContentSort") = 1) & ">按输入反序</option>"
        MyIO.Echo "<option value=""2""" & setSelected(objCmd("ContentSort") = 2) & ">按点击率</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=""UserStatus"" class=""sel"">"
        MyIO.Echo "<option value=""" & wmUserAll & """" & setSelected(objCmd("UserStatus") = wmUserAll) & ">所有用户</option>"
        MyIO.Echo "<option value=""" & wmUserForbid & """" & setSelected(objCmd("UserStatus") = wmUserForbid) & ">屏蔽用户</option>"
        MyIO.Echo "<option value=""" & wmUserDelete & """" & setSelected(objCmd("UserStatus") = wmUserDelete) & ">删除用户</option>"
        MyIO.Echo "<option value=""" & wmUserGuest & """" & setSelected(objCmd("UserStatus") = wmUserGuest) & ">访问用户</option>"
        MyIO.Echo "<option value=""" & wmUserRegister & """" & setSelected(objCmd("UserStatus") = wmUserRegister) & ">注册用户</option>"
        MyIO.Echo "<option value=""" & wmUserVIP & """" & setSelected(objCmd("UserStatus") = wmUserVIP) & ">VIP用户</option>"
        MyIO.Echo "</select><br/>"
        MyIO.Echo "权限顺序：所有用户-屏蔽用户-删除用户-访问用户-注册用户-VIP用户<br/>"
        MyIO.Echo "访问规则：向后兼容。例如：选择该栏目的权限从“访问用户”开始，那么包括后面的“注册用户”和“VIP用户”都可以访问<br/>"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>积分访问权限</td>"
        MyIO.Echo "<td><input type=""text"" name=""UserCent"" value=""" & objCmd("UserCent") & """ class=""txt"" style=""width:40px"" /> 注册用户访问需要的最少积分，当[用户访问权限]设置为[注册用户]时，该属性有效</td>"
        MyIO.Echo "</tr>"
        If intType = 0 And MyPower.Status = 1 And MyKernel.Config("StapleGroup") = "1" Then
            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>"
            Set xmlDoc = WM_GetCache("group")
            For Each xmlNode In xmlDoc.documentElement.childNodes
                MyIO.Echo "<option value=""" & XMLAttr(xmlNode, "seqid") & """" & setSelected(objCmd("GroupId") = atol(XMLAttr(xmlNode, "seqid"))) & ">" & XMLAttr(xmlNode, "name") & "</option>"
            Next
            Set xmlDoc = Nothing
            MyIO.Echo "</select> 指定该主题归某个组管理"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
        End If
        If intType = 1 And MyPower.Status = 0 And MyKernel.Config("StapleGroup") = "1" And MyPower("AddManager") = 1 Then
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>管理员组管理</td>"
            MyIO.Echo "<td>"
            MyIO.Echo "<select name=""TeamId"" class=""sel"">"
            MyIO.Echo "<option value=""0"">选择管理员组</option>"
            Set xmlDoc = WM_GetCache("team")
            For Each xmlNode In XMLQueries(xmlDoc.documentElement, "teams/tream[@groupid=" & MyAdmin("GroupId") & "]")
                MyIO.Echo "<option value=""" & XMLAttr(xmlNode, "seqid") & """" & setSelected(atol(XMLAttr(xmlNode, "seqid")) = objCmd("TeamId")) & ">" & XMLAttr(xmlNode, "name") & "</option>"
            Next
            Set xmlDoc = Nothing
            MyIO.Echo "</select> 指定该栏目归某个管理员组管理"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
        End If
        If MyKernel.Modlist(moMISC) = 1 Then
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>MISC栏目</td>"
            MyIO.Echo "<td><input type=""checkbox"" name=""IsMISC"" value=""1"" onclick=""chkModule(this, this.form.MISC_Visit, this.form.MISC_Fee, this.form.MISC_Type, this.form.MISC_Code, this.form.MISC_Confirm)""" & setChecked(objCmd("IsMISC") = 1) & " /> 将该栏目设置为梦网栏目</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>MISC虚拟路径</td>"
            MyIO.Echo "<td><input type=""text"" name=""MISC_Visit"" class=""txt"" value=""" & MyIO.HTMLEncode(objCmd("MISC_Visit")) & """" & setDisabled(objCmd("IsMISC") = 0) & " /> 首尾字符必须为：/</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>MISC计费点（点播业务）</td>"
            MyIO.Echo "<td><input type=""text"" name=""MISC_Fee"" class=""txt"" value=""" & MyIO.HTMLEncode(objCmd("MISC_Fee")) & """" & setDisabled(objCmd("IsMISC") = 0) & " /> 首尾字符必须为：/</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>MISC业务类型</td>"
            MyIO.Echo "<td>"
            MyIO.Echo "<select name=""MISC_Type"" class=""sel""" & setDisabled(objCmd("IsMISC") = 0) & " >"
            MyIO.Echo "<option value=""0""" & setSelected(objCmd("MISC_Type") = 0) & ">免费业务</option>"
            MyIO.Echo "<option value=""1""" & setSelected(objCmd("MISC_Type") = 1) & ">点播业务</option>"
            MyIO.Echo "<option value=""2""" & setSelected(objCmd("MISC_Type") = 2) & ">包月业务</option>"
            MyIO.Echo "</select>"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>MISC业务代码</td>"
            MyIO.Echo "<td><input type=""text"" name=""MISC_Code"" class=""txt"" value=""" & objCmd("MISC_Code") & """" & setDisabled(objCmd("IsMISC") = 0) & " /></td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>MISC二次确认</td>"
            MyIO.Echo "<td><input type=""checkbox"" name=""MISC_Confirm"" value=""1""" & setChecked(objCmd("MISC_Confirm") = 1) & setDisabled(objCmd("IsMISC") = 0) & " /> 是否需要二次确认</td>"
            MyIO.Echo "</tr>"
        End If
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>UBB标签</td>"
        MyIO.Echo "<td><input type=""checkbox"" name=""IsUBB"" value=""1""" & setChecked(objCmd("IsUBB") = 1) & " /> 在下级内容中开放UBB标签</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td colspan=""2"" align=""center"">"
        MyIO.Echo " <input name=""btnPost"" type=""button"" value=""保存编辑"" class=""btn"" onclick=""Form.submit(this)"" />"
        MyIO.Echo " <input type=""reset"" value=""重设表单"" class=""btn"" />"
        MyIO.Echo " <input type=""button"" value=""关闭窗口"" class=""btn"" onclick=""window.close()"" />"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "</table>"
        MyIO.Echo "</form>"
        MyIO.Echo "<iframe id=""console"" name=""console"" frameborder=""0"" scrolling=""no"" width=""100%"" height=""30""></iframe>"
        MyIO.Echo "</body>"
        MyIO.Echo "</html>"
    End If
    Set objCmd = Nothing
End Sub

Private Function SaveImage(ByVal lngId, ByVal strKey)
    Dim objItem
    Set objItem = MyIO.File(strKey, 0)
    If objItem Is Nothing Then Exit Function
    If objItem.State = 0 Then
        SaveImage = objItem.FileExt
        ClearImage strKey & lngId
        objItem.SaveToFile GetMapPath("images/" & LCase(strKey) & lngId & "." & objItem.FileExt)
    End If
    Set objItem = Nothing
End Function

Private Sub doPostAdd()
    MyIO.Allow = MyKernel.Config("AllowImage")
    If MyPower("AddStaple") = 0 Then
        strError = "您没有添加主题/栏目的权限"
    Else
        Dim intType
        Dim strType
        Dim lngFollow
        Dim strTitle
        Dim strContent
        Dim intCategory
        Dim lngMapping
        Dim objParent
        Dim objCmd
        Dim lngId
        Dim strMark
        Dim lngGroupID, lngTeamID, lngAdminID
        intType = atoi(MyIO.QueryString("Type"))
        strType = IIf(intType = 0, "主题", "栏目")
        lngFollow = atol(MyIO.Form("Follow"))
        strTitle = Trim(MyIO.Form("Title"))
        strContent = Trim(MyIO.Form("Content"))
        intCategory = atoi(MyIO.Form("Category"))
        lngMapping = atol(MyIO.Form("Mapping"))
        Set objParent = MyKernel.Command(T_STAPLE)
        If intType = 1 And lngFollow > 0 Then
            objParent.CommandType = "SELECT"
            objParent.Where = GetWhere("SEQID", Array(lngFollow))
            objParent.Exec
        End If
        If strTitle = "" Then
            strError = "请输入" & strType & "名称"
        ElseIf intCategory = wmStapleMapping And lngMapping <= 0 Then
            strError = "请指定您要映射的栏目"
        ElseIf intCategory = wmStapleLinking And strContent = "" Then
            strError = "请在栏目说明里输入连接地址"
        ElseIf intType = 1 And objParent("SeqId") = 0 Then
            strError = "找不到所属栏目或您没有在该栏目下新建子栏目的权限"
        ElseIf MyPower.Status = 100 And lngFollow = 0 Then
            strError = "您没有建立主题的权限"
        Else
            Set objCmd = MyKernel.Command(T_STAPLE)
            objCmd.CommandType = "SEL