content

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

    End If
    objPage.Where = Replace(objPage.Where, "1=1 AND ", "")
    objPage.Where = Replace(objPage.Where, "1=1", "")
    objPage.Count = GetPageCount(objPage)
    objPage.Index = "SEQID"
    objPage.Sort = SafeString(strSort & IIf(intSort = 1, " DESC", " ASC"))
    objPage.SortType = intSort
    objPage.Build "contents", "content"

    MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse;word-break:break-all;word-wrap:break-word;"" bordercolor=""#000000"">"
    MyIO.Echo "<tr>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>选择</b></td>"
    MyIO.Echo "<td width=""10%"" class=""winT0""><b>所属栏目<b/></td>"
    MyIO.Echo "<td width=""16%"" class=""winT0"" style=""cursor:pointer"" onclick=""jspp.Content.doSort(0)""><font color=""#800040""><b>标题</b></font>"
    If strSort = "SeqId" Then
        MyIO.Echo "<img src=""images/xw_select" & intSort & ".gif"" border=""0"" align=""absBottom"" />"
    End If
    MyIO.Echo "</td>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>所属用户<b/></td>"
    MyIO.Echo "<td width=""10%"" class=""winT0"" style=""cursor:pointer"" onclick=""jspp.Content.doSort(1)""><font color=""#800040""><b>点击</b></font>"
    If strSort = "Hit" Then
        MyIO.Echo "<img src=""images/xw_select" & intSort & ".gif"" border=""0"" align=""absBottom"" />"
    End If
    MyIO.Echo "</td>"
    MyIO.Echo "<td width=""8%"" class=""winT0"">"
    setContentCategory intCate
    MyIO.Echo "</td>"
    MyIO.Echo "<td width=""8%"" class=""winT0"">"
    setContentCommend intCommend
    MyIO.Echo "</td>"
    MyIO.Echo "<td width=""8%"" class=""winT0"">"
    setContentHot intHot
    MyIO.Echo "</td>"
    MyIO.Echo "<td width=""8%"" class=""winT0"">"
    setContentStat intStat
    MyIO.Echo "</td>"
    MyIO.Echo "<td width=""8%"" class=""winT0"">"
    setContentExamine intExamine
    MyIO.Echo "</td>"
    MyIO.Echo "<td width=""8%"" class=""winT0""><b>管理</b></td>"
    MyIO.Echo "</tr>"
    If objPage.Rows.hasChildNodes Then
        i = 0
        For Each xmlNode In objPage.Rows.childNodes
            MyIO.Echo "<tr class=""winT4"" style=""cursor:default"" onmouseover=""this.style.backgroundColor='#F0F0F0'"" onmouseout=""this.style.backgroundColor=''"">"
            MyIO.Echo "<td align=""center""><input type=""checkbox"" id=""SeqId"" name=""SeqId"" value=""" & XMLAttr(xmlNode, "seqid") & """ /></td>"
            MyIO.Echo "<td>" & MyIO.HTMLEncode(XMLAttr(xmlNode, "stapletitle")) & "</td>"
            MyIO.Echo "<td title=""" & MyIO.HTMLEncode(Mid(XMLAttr(xmlNode, "content"), 1, 255)) & """>" & MyIO.HTMLEncode(XMLAttr(xmlNode, "title")) & "</td>"
            If atol(XMLAttr(xmlNode, "userid")) > 0 Then
                MyIO.Echo "<td><a href=""javascript:void(0)"" onclick=""getUserDetail(" & XMLAttr(xmlNode, "userid") & ")"">" & MyIO.HTMLEncode(XMLAttr(xmlNode, "username")) & "</a></td>"
            Else
                MyIO.Echo "<td>&nbsp;</td>"
            End If
            MyIO.Echo "<td align=""right"">" & XMLAttr(xmlNode, "hit") & "</td>"
            MyIO.Echo "<td align=""center""><img src=""images/xw_cate" & XMLAttr(xmlNode, "category") & ".gif"" border=""0"" align=""absBottom"" /></td>"
            MyIO.Echo "<td align=""center""><img src=""images/" & IIf(XMLAttr(xmlNode, "commend") = "1", "xw_commend0", "empty") & ".gif"" border=""0"" align=""absBottom"" /></td>"
            MyIO.Echo "<td align=""center""><img src=""images/" & IIf(XMLAttr(xmlNode, "hot") = "1", "xw_hot0", "empty") & ".gif"" border=""0"" align=""absBottom"" /></td>"
            MyIO.Echo "<td align=""center""><img id=""_stat_" & XMLAttr(xmlNode, "seqid") & """ src=""images/xw_stat" & XMLAttr(xmlNode, "hidden") & ".gif"" border=""0"" align=""absBottom"" /></td>"
            MyIO.Echo "<td align=""center""><img id=""_examine_" & XMLAttr(xmlNode, "seqid") & """ src=""images/xw_examine" & XMLAttr(xmlNode, "examine") & ".gif"" border=""0"" align=""absBottom"" /></td>"
            MyIO.Echo "<td align=""center"">"
            MyIO.Echo "<select id=""_control_" & XMLAttr(xmlNode, "seqid") & """ name=""control"" stat=""" & XMLAttr(xmlNode, "hidden") & """ onchange=""jspp.Content.control(this, " & XMLAttr(xmlNode, "seqid") & ", " & XMLAttr(xmlNode, "stapleid") & "," & XMLAttr(xmlNode, "intime") & ")"">"
            MyIO.Echo "<option value=""0"">管理</option>"
            MyIO.Echo "<option value=""1"">编辑</option>"
            MyIO.Echo "<option value=""2"">" & IIf(XMLAttr(xmlNode, "hidden") = "1", "恢复", "隐藏") & "</option>"
            MyIO.Echo "<option value=""3"">移动</option>"
            MyIO.Echo "<option value=""4"">删除</option>"
            If XMLAttr(xmlNode, "examine") = "0" Then
                MyIO.Echo "<option value=""5"">审核</option>"
            End If
            MyIO.Echo "<option value=""6"">缓存</option>"
            MyIO.Echo "</select>"
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
            i = i + 1
        Next
        Call ShowControl
        Call ShowPage
    Else
        MyIO.Echo "<tr class=""winT4"">"
        MyIO.Echo "<td colspan=""11"">尚无任何内容</td>"
        MyIO.Echo "</tr>"
        Call ShowControl
    End If
    MyIO.Echo "</table>"
    Set objPage = Nothing
End Sub

Private Sub setContentCategory(ByVal intCate)
    MyIO.Echo "<select id=""_commend_"" class=""sel"" onchange=""jspp.Content.category=this.value;jspp.Content.doPage(0)"">"
    MyIO.Echo "<option value=""100""" & setSelected(intCate = 100) & ">类型</option>"
    MyIO.Echo "<option value=""0""" & setSelected(intCate = 0) & ">普通</option>"
    MyIO.Echo "<option value=""1""" & setSelected(intCate = 1) & ">连接</option>"
    MyIO.Echo "</select>"
End Sub

Private Sub setContentCommend(ByVal intCommend)
    MyIO.Echo "<select id=""_commend_"" class=""sel"" onchange=""jspp.Content.commend=this.value;jspp.Content.doPage(0)"">"
    MyIO.Echo "<option value=""100""" & setSelected(intCommend = 100) & ">推荐</option>"
    MyIO.Echo "<option value=""0""" & setSelected(intCommend = 0) & ">否</option>"
    MyIO.Echo "<option value=""1""" & setSelected(intCommend = 1) & ">是</option>"
    MyIO.Echo "</select>"
End Sub

Private Sub setContentHot(ByVal intHot)
    MyIO.Echo "<select id=""_hot_"" class=""sel"" onchange=""jspp.Content.hot=this.value;jspp.Content.doPage(0)"">"
    MyIO.Echo "<option value=""100""" & setSelected(intHot = 100) & ">热点</option>"
    MyIO.Echo "<option value=""0""" & setSelected(intHot = 0) & ">否</option>"
    MyIO.Echo "<option value=""1""" & setSelected(intHot = 1) & ">是</option>"
    MyIO.Echo "</select>"
End Sub

Private Sub setContentStat(ByVal intStat)
    MyIO.Echo "<select id=""_stat_"" class=""sel"" onchange=""jspp.Content.stat=this.value;jspp.Content.doPage(0)"">"
    MyIO.Echo "<option value=""100""" & setSelected(intStat = 100) & ">状态</option>"
    MyIO.Echo "<option value=""0""" & setSelected(intStat = 0) & ">正常</option>"
    MyIO.Echo "<option value=""1""" & setSelected(intStat = 1) & ">隐藏</option>"
    MyIO.Echo "</select>"
End Sub

Private Sub setContentExamine(ByVal intExam)
    MyIO.Echo "<select id=""_examine_"" class=""sel"" onchange=""jspp.Content.exam=this.value;jspp.Content.doPage(0)"">"
    MyIO.Echo "<option value=""100""" & setSelected(intExam = 100) & ">审核</option>"
    MyIO.Echo "<option value=""0""" & setSelected(intExam = 0) & ">未审核</option>"
    MyIO.Echo "<option value=""1""" & setSelected(intExam = 1) & ">已审核</option>"
    MyIO.Echo "</select>"
End Sub

Private Sub ShowControl()
    MyIO.Echo "<tr class=""winT4"">"
    MyIO.Echo "<td align=""center""><input type=""checkbox"" onclick=""chkAll(this)"" /></td>"
    MyIO.Echo "<td colspan=""10"">"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""隐藏"" onclick=""jspp.Content.changeAll(this.form, 0)"" />"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""恢复"" onclick=""jspp.Content.changeAll(this.form, 1)"" />"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""移动"" onclick=""jspp.Content.moveAll(this.form)"" />"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""审核"" onclick=""jspp.Content.examineAll(this.form)"" />"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""删除"" onclick=""jspp.Content.removeAll(this.form)"" />"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""搜索"" onclick=""jspp.Content.query(this.form)"" />"
    MyIO.Echo " <input name=""Keyword"" type=""text"" class=""txt"" value=""" & MyIO.HTMLEncode(MyIO.QueryString("Keyword")) & """ />"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
End Sub

Private Sub ShowPage()
    MyIO.Echo "<tr class=""winT4"">"
    MyIO.Echo "<td colspan=""11"" align=""right"">"
    MyIO.Echo "共 " & objPage.Count & " 条信息 "
    MyIO.Echo objPage.Size & " 条/页 "
    MyIO.Echo objPage.ID & "/" & objPage.Total & " 页"
    If objPage.ID > 1 Then
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Content.doPage(1)"" class=""a1"" />首  页</a>"
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Content.doPage(" & (objPage.ID - 1) & ")"" class=""a1"" />上一页</a>"
    Else
        MyIO.Echo " <a class=""a1"">首  页</a>"
        MyIO.Echo " <a class=""a1"">上一页</a>"
    End If
    If objPage.ID < objPage.Total Then
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Content.doPage(" & (objPage.ID + 1) & ")"" class=""a1"" />下一页</a>"
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Content.doPage(" & objPage.Total & ")"" class=""a1"" />尾  页</a>"
    Else
        MyIO.Echo " <a class=""a1"">下一页</a>"
        MyIO.Echo " <a class=""a1"">尾  页</a>"
    End If
    MyIO.Echo " 跳到 <input type=""text"" id=""_page"" class=""txt"" style=""width:30px"" /> 页"
    MyIO.Echo " <input type=""button"" value=""GO"" class=""btn"" onclick=""jspp.Content.doPage(document.getElementById('_page').value)"" />"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
End Sub

Private Sub doGetModify()
    Dim objCmd
    Set objCmd = MyKernel.Command(T_CONTENT)
    objCmd.CommandType = "SELECT"
    objCmd.Where = GetWhere("SEQID", Array(atol(MyIO.QueryString("SeqId"))))
    If MyPower("ModifyContent") = 0 Then
        ExportClose "您没有编辑内容的权限"
    ElseIf Not objCmd.Exec 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.SeqId = " & objCmd("SeqId") & ";"
        MyIO.Echo "jspp.Parent = " & objCmd("StapleId") & ";"
        MyIO.Echo "jspp.Intime = " & objCmd("Intime") & ";"
        MyIO.Echo "jspp.Allow = """ & MyKernel.Config("AllowVideo") & "|" & MyKernel.Config("AllowSoft") & """;"
        MyIO.Echo "</script>"
        MyIO.Echo "<script language=""javascript"" src=""images/wm_content1.js""></script>"
        MyIO.Echo "<script language=""javascript"" src=""images/wm_contentx.js""></script>"
        MyIO.Echo "</head>"
        MyIO.Echo "<body class=""system2"">"
        MyIO.Echo "<form id=""frmMain"" action=""admin_content.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>编辑内容</b>" & MUST_INPUT_HINT & "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td width=""15%"">内容类型</td>"
        MyIO.Echo "<td width=""85%"">"
        MyIO.Echo "<select name=""Category"" class=""sel"" onchange=""chkCategory(this, 'LinkParent', 'LinkChild')"">"
        MyIO.Echo "<option value=""" & wmContentNormal & """" & setSelected(objCmd("Category") = wmContentNormal) & ">普通内容</option>"
        MyIO.Echo "<option value=""" & wmContentLinking & """" & setSelected(objCmd("Category") = wmContentLinking) & ">HTTP连接</option>"
        MyIO.Echo "</select>"
        MyIO.Echo "<select name=""LinkParent"" class=""sel"" style=""" & IIf(objCmd("Category") = wmContentLinking, "", "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") = wmContentLinking, "", "display:none;") & """ onchange=""Kernel.putLink(this.value)""></select>"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>内容标题</td>"
        MyIO.Echo "<td><input type=""text"" name=""Title"" class=""txt"" style=""width:200px"" value=""" & MyIO.HTMLEncode(objCmd("Title")) & """ />" & MUST_INPUT & "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>内容文本</td>"
        MyIO.Echo "<td>"
        MyIO.Echo " <textarea name=""Content"" class=""area"" style=""width:500px;height:200px"" onclick=""this.form.Focus.value = Form.getLength(event)"" onfocus=""Kernel.lockLink=this"">" & MyIO.HTMLEncode(objCmd("Content")) & "</textarea><br/>"
        MyIO.Echo " <input type=""button"" value=""预览"" class=""btn"" onclick=""jspp.ContentX.doPreview(this)"" />"
        MyIO.Echo " <input type=""button"" value=""插入素材"" class=""btn"" onclick=""jspp.ContentX.single = 0;jspp.ContentX.doGetMatter(this.form, 0, '', 1)"" />"
        MyIO.Echo " <input type=""button"" value=""插入图片"" class=""btn"" onclick=""jspp.ContentX.doGetImage(this)"" />"
        MyIO.Echo " <input type=""button"" value=""插入连接"" class=""btn"" onclick=""jspp.ContentX.doGetLink(this)"" />"
        MyIO.Echo " 光标位置：<input type=""text"" value=""0"" class=""txt"" style=""width:50px"" name=""Focus"" />"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>分页标记</td>"