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

📄 staple

📁 WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品
💻
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
            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><input type=""checkbox"" name=""Commend"" value=""1"" /> 将该内容加入到推荐列表</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>加入热点</td>"
            MyIO.Echo "<td><input type=""checkbox"" name=""Hot"" value=""1"" /> 将该内容加入到热点列表</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>第三方代码</td>"
            MyIO.Echo "<td><input type=""checkbox"" name=""IsWML"" value=""1"" /> 是否支持第三方代码，即WML标签</td>"
            MyIO.Echo "</tr>"
            If MyKernel.Modlist(moTrade) = 1 Then
                MyIO.Echo "<tr class=""winT1"">"
                MyIO.Echo "<td>产品价格</td>"
                MyIO.Echo "<td><input type=""text"" name=""Price"" class=""txt"" style=""width:100px"" /> 如：100元/箱。当所属栏目已选择了订单功能，该参数有效</td>"
                MyIO.Echo "</tr>"
            End If
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>选择分类</td>"
            MyIO.Echo "<td>"
            Call doGetCategory(0)
            MyIO.Echo "</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 "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "</table>"
            MyIO.Echo "</form>"
        End If
    Case Else
        MyIO.Echo "未知选项"
    End Select
End Sub

Private Sub doGetCategory(ByVal intCate)
    Dim xmlDoc, xmlNodes, xmlNode
    Set xmlDoc = WM_GetCache("category")
    Set xmlNodes = XMLQueries(xmlDoc.documentElement, "category[@follow=0]")
    MyIO.Echo "<select name=""Cate"">"
    MyIO.Echo "<option value=""0"">选择分类</option>"
    For Each xmlNode In xmlNodes
        MyIO.Echo "<optgroup label=""" & XMLAttr(xmlNode, "title") & """>"
        Call SetCategoryX(intCate, xmlDoc, XMLAttr(xmlNode, "seqid"))
        MyIO.Echo "</optgroup>"
    Next
    MyIO.Echo "</select>"
    Set xmlNodes = Nothing
    Set xmlDoc = Nothing
End Sub

Private Sub SetCategoryX(ByVal intCate, xmlDoc, ByVal lngId)
    Dim xmlNodes, xmlNode
    Set xmlNodes = XMLQueries(xmlDoc.documentElement, "category[@follow=" & lngId & "]")
    For Each xmlNode In xmlNodes
        MyIO.Echo "<option value=""" & XMLAttr(xmlNode, "seqid") & """" & setSelected(intCate = atol(XMLAttr(xmlNode, "seqid"))) & ">" & XMLAttr(xmlNode, "title") & "</option>"
    Next
    Set xmlNodes = Nothing
End Sub

Private Sub doGetModify()
    Dim objCmd
    Dim lngId
    Dim intType
    Dim strType
    Dim xmlDoc, xmlNode
    Set objCmd = MyKernel.Command(T_STAPLE)
    objCmd.CommandType = "SELECT"
    objCmd.Where = GetWhere("SEQID", Array(atol(MyIO.QueryString("SeqId"))))
    If MyPower("ModifyStaple") = 0 Then
        ExportClose "您没有编辑主题/栏目的权限"
    ElseIf Not objCmd.Exec Then
        ExportClose "找不到您要编辑的栏目或者您没有编辑该栏目的权限"
    Else
        intType = IIf(objCmd("Follow") = 0, 0, 1)
        strType = IIf(intType = 0, "主题", "栏目")
        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>编辑" & strType & "</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.SeqId = " & objCmd("SeqId") & ";"
        MyIO.Echo "jspp.Follow = " & objCmd("Follow") & ";"
        MyIO.Echo "jspp.Mapping = " & objCmd("Mapping") & ";"
        MyIO.Echo "jspp.Share = " & atoi(MyKernel.Config("StapleGroup")) & ";"
        MyIO.Echo "jspp.GroupId = " & MyAdmin("GroupId") & ";"
        MyIO.Echo "jspp.TeamId = """ & MyAdmin("TeamId") & """;"
        MyIO.Echo "jspp.AdminId = """ & MyAdmin("SeqId") & """;"
        MyIO.Echo "jspp.Power = " & MyPower.Status & ";"
        MyIO.Echo "</script>"
        MyIO.Echo "<script language=""javascript"" src=""images/wm_staple1.js""></script>"
        MyIO.Echo "</head>"
        MyIO.Echo "<body class=""system2"">"
        MyIO.Echo "<form id=""frmMain"" action=""admin_staple.asp?Handle=modify&SeqId=" & objCmd("SeqId") & """ 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>编辑" & strType & "</b>" & MUST_INPUT_HINT & "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td width=""20%"">" & strType & "名称</td>"
        MyIO.Echo "<td width=""80%""><input type=""text"" name=""Title"" value=""" & MyIO.HTMLEncode(objCmd("Title")) & """ class=""txt"" style=""width:200px"" />" & MUST_INPUT & "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>" & strType & "说明</td>"
        MyIO.Echo "<td><textarea name=""Content"" class=""area"" style=""width:500px;height:100px"">" & MyIO.HTMLEncode(objCmd("Content")) & "</textarea></td>"
        MyIO.Echo "</tr>"
        If intType = 1 Then
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>栏目类型</td>"
            MyIO.Echo "<td>"
            MyIO.Echo " <select name=""Category"" class=""sel"" onchange=""chkCategory(this, 'LinkParent', 'LinkChild', 'Mapping')"">"
            MyIO.Echo "<option value=""" & wmStapleNormal & """" & setSelected(objCmd("Category") = wmStapleNormal) & ">普通栏目</option>"
            MyIO.Echo "<option value=""" & wmStapleLinking & """" & setSelected(objCmd("Category") = wmStapleLinking) & ">HTTP连接</option>"
            MyIO.Echo "<option value=""" & wmStapleMapping & """" & setSelected(objCmd("Category") = wmStapleMapping) & ">栏目映射</option>"
            MyIO.Echo "</select>"
            MyIO.Echo " <select name=""LinkParent"" class=""sel"" style=""" & IIf(objCmd("Category") = wmStapleLinking, "", "display:none") & """ onchange=""Kernel.setLink(this.form, 'LinkChild', this.value)""><option value=""0"">插件连接</option><option value=""1"">栏目连接</option></select><select name=""LinkChild"" class=""sel"" style=""width:200px;" & IIf(objCmd("Category") = wmStapleLinking, "", "display:none") & """ onchange=""Kernel.putLink(this.value)""></select><select name=""Mapping"" class=""sel"" style=""width:200px;" & IIf(objCmd("Category") = wmStapleMapping, "", "display:none") & """><option value=""0"">选择映射的栏目</option></select>"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>栏目小图标</td>"
            MyIO.Echo "<td>"
            MyIO.Echo " <input type=""hidden"" name=""List"" value=""" & objCmd("List") & """ />"
            MyIO.Echo " <img id=""ListShow"" src=""images/list" & objCmd("List") & ".gif"" border=""0"" align=""absBottom"" style=""cursor:pointer"" onmouseover=""ImageBox.filter(this, 1)"" onmouseout=""ImageBox.filter(this, 0)"" onclick=""ImageBox.list('frmMain', " & MyKernel.Config("StapleList") & ", 1, " & objCmd("List") & ")"" />"
            MyIO.Echo " <img src=""images/list0.gif"" border=""0"" align=""absBottom"" /> 表示不使用小图标"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
        End If
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>" & IIf(intType = 0, "主题横幅", "栏目大图标") & "</td>"
        MyIO.Echo "<td>"
        MyIO.Echo "<input type=""file"" name=""Icon"" class=""txt"" />"
        If objCmd("Icon") <> "" Then
            MyIO.Echo " <img id=""ID_ICON_IMG"" src=""images/xw_view0.gif"" border=""0"" align=""absMiddle"" style=""cursor:pointer"" onmouseover=""ImageBox.filter(this, 1)"" onmouseout=""ImageBox.filter(this, 0)"" onclick=""ImageBox.show('images/icon" & objCmd("SeqId") & "." & objCmd("Icon") & "')"" title=""预览"" />"
            MyIO.Echo " <img id=""ID_ICON_BTN"" src=""images/xw_del0.gif"" border=""0"" align=""absMiddle"" style=""cursor:pointer"" onmouseover=""ImageBox.filter(this, 1)"" onmouseout=""ImageBox.filter(this, 0)"" onclick=""rpc_call_remove_file('staple','icon'," & objCmd("SeqId") & ",'ID_ICON_IMG','ID_ICON_BTN')"" title=""删除"" />"
        End If
        MyIO.Echo " 支持" & Replace(MyKernel.Config("AllowImage"), "|", "、") & "等格式的图片"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>" & strType & "LOGO</td>"
        MyIO.Echo "<td>"
        MyIO.Echo "<input type=""file"" name=""Logo"" class=""txt"" />"
        If objCmd("Logo") <> "" Then
            MyIO.Echo " <img id=""ID_LOGO_IMG"" src=""images/xw_view0.gif"" border=""0"" align=""absMiddle"" style=""cursor:pointer"" onmouseover=""ImageBox.filter(this, 1)"" onmouseout=""ImageBox.filter(this, 0)"" onclick=""ImageBox.show('images/logo" & objCmd("SeqId") & "." & objCmd("Logo") & "')"" title=""预览"" />"
            MyIO.Echo " <img id=""ID_LOGO_BTN"" src=""images/xw_del0.gif"" border=""0"" align=""absMiddle"" style=""cursor:pointer"" onmouseover=""ImageBox.filter(this, 1)"" onmouseout=""ImageBox.filter(this, 0)"" onclick=""rpc_call_remove_file('staple','logo'," & objCmd("SeqId") & ",'ID_LOGO_IMG','ID_LOGO_BTN')"" title=""删除"" />"
        End If
        MyIO.Echo " 支持" & Replace(MyKernel.Config("AllowImage"), "|", "、") & "等格式的图片"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>" & strType & "模版</td>"
        MyIO.Echo "<td>"
        MyIO.Echo GetTempletHtml("Templet", objCmd("Templet"))
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>内容模版</td>"
        MyIO.Echo "<td>"
        MyIO.Echo GetTempletHtml("ContentTemplet", objCmd("ContentTemplet"))
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        If intType = 1 Then
            If MyKernel.Modlist(moTrade) = 1 Then
                MyIO.Echo "<tr class=""winT1"">"
                MyIO.Echo "<td>订单功能</td>"
                MyIO.Echo "<td><input type=""checkbox"" name=""Trade"" value=""1""" & setChecked(objCmd("Trade") = 1) & " /> 选择该功能后，栏目下的内容将具有订单入口</td>"
                MyIO.Echo "</tr>"
            End If
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>评论功能</td>"
            MyIO.Echo "<td><input type=""checkbox"" name=""Remark"" value=""1"" onclick=""chkModule(this, this.form.RemarkType)""" & setChecked(objCmd("Remark") = 1) & " /> 选择该功能后，用户可对栏目下的内容发表评论</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>评论权限</td>"
            MyIO.Echo "<td>"
            MyIO.Echo "<select name=""RemarkType"" class=""sel""" & setDisabled(objCmd("Remark") = 0) & ">"
            MyIO.Echo "<option value=""0""" & setSelected(objCmd("RemarkType") = 0) & ">只允许注册用户发表评论</option>"
            MyIO.Echo "<option value=""1""" & setSelected(objCmd("RemarkType") = 1) & ">允许任何人发表评论</option>"
            MyIO.Echo "</select>"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>发布功能</td>"
            MyIO.Echo "<td><input type=""checkbox"" name=""Publish"" value=""1"" onclick=""chkModule(this, this.form.Examine)""" & setChecked(objCmd("Publish") = 1) & " /> 选择该功能后，用户将可以在栏目下发布内容</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>发布审核</td>"
            MyIO.Echo "<td><input type=""checkbox"" name=""Examine"" value=""1""" & setChecked(objCmd("Examine") = 1) & "" & setDisabled(objCmd("Publish") <> 1) & " /> 用户发布内容后是否需要审核</td>"
            MyIO.Echo "</tr>"
        End If
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>栏目分页</td>"
        MyIO.Echo "<td><input type=""text"" name=""StaplePage"" value=""" & objCmd("StaplePage") & """ 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=""" & objCmd("ContentPage") & """ class=""txt"" style=""width:40px"" />" & MUST_INPUT & " 内容分页的条数，0表示不分页</td>"
12345

⌨️ 快捷键说明

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