matter.asp

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

            MyIO.Echo XMLAttr(xmlNode, "title") & "</a></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=""center"">" & XMLAttr(xmlNode, "ext") & "</td>"
            MyIO.Echo "<td align=""right"">" & XMLAttr(xmlNode, "width") & "x" & XMLAttr(xmlNode, "height") & "</td>"
            MyIO.Echo "<td align=""right"">" & FormatNumber(GetFileSize(GetMapPath(strPath)) / 1024, 2, True) & " KB</td>"
            MyIO.Echo "<td align=""right"">" & XMLAttr(xmlNode, "hit") & "</td>"
            MyIO.Echo "<td align=""right"">" & XMLAttr(xmlNode, "download") & "</td>"
            MyIO.Echo "<td align=""center""><img id=""_stat_" & XMLAttr(xmlNode, "seqId") & """ src=""images/xw_" & IIf(XMLAttr(xmlNode, "hidden") = "1", "stat1", "stat0") & ".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.Matter.control(this, " & XMLAttr(xmlNode, "seqid") & ")"">"
            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 "</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 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.Matter.changeAll(this.form, 0)"" />"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""恢复"" onclick=""jspp.Matter.changeAll(this.form, 1)"" />"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""删除"" onclick=""jspp.Matter.removeAll(this.form)"" />"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""生成内容"" onclick=""jspp.Matter.makeContent(this.form)"" />"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""清空缓存"" onclick=""jspp.Matter.cache()"" />"
    MyIO.Echo " <input type=""button"" class=""btn"" value=""搜索"" onclick=""jspp.Matter.query(this.form)"" />"
    MyIO.Echo " <input id=""_keyword_"" 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.Matter.doPage(1)"" class=""a1"" />首  页</a>"
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Matter.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.Matter.doPage(" & (objPage.ID + 1) & ")"" class=""a1"" />下一页</a>"
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.Matter.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.Matter.doPage(document.getElementById('_page').value)"" />"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
End Sub

Private Sub SetMatterStat(ByVal intStat)
    MyIO.Echo "<select id=""_stat_"" class=""sel"" onchange=""jspp.Matter.stat=this.value;jspp.Matter.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 Function GetMatterTitle(xmlNode)
    Dim tmp
    tmp = "名称：$(Title)\r\n来自：$(Source)\r\n备注：$(Content)\r\n时间：$(Timeval)\r\n"
    tmp = Replace(tmp, "\r\n", vbCrLf)
    tmp = Replace(tmp, "$(Title)", MyIO.HTMLEncode(XMLAttr(xmlNode, "title")))
    tmp = Replace(tmp, "$(Source)", MyIO.HTMLEncode(XMLAttr(xmlNode, "source")))
    tmp = Replace(tmp, "$(Content)", MyIO.HTMLEncode(XMLAttr(xmlNode, "content")))
    tmp = Replace(tmp, "$(Timeval)", FormatTime(XMLAttr(xmlNode, "intime"), "Y-m-d"))
    GetMatterTitle = tmp
End Function

Private Sub doGetModify()
    Dim objCmd
    Dim lngID
    Dim strPath
    lngID = atol(MyIO.QueryString("SeqId"))
    Set objCmd = MyKernel.Command(T_MATTER)
    objCmd.CommandType = "SELECT"
    objCmd.Where = GetWhere("SEQID", Array(lngID))
    If MyPower("ModifyMatter") = 0 Then
        ExportClose "您没有编辑素材的权限"
    ElseIf lngID <= 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.using(""mocom.WAPmo.Kernel"");"
        MyIO.Echo "jspp.using(""mocom.WAPmo.ImageBox"");"
        MyIO.Echo "window.onload = function()"
        MyIO.Echo "{"
        MyIO.Echo "window.focus();"
        MyIO.Echo "};"
        MyIO.Echo "</script>"
        MyIO.Echo "</head>"
        MyIO.Echo "<body class=""system2"">"
        MyIO.Echo "<form id=""frmMain"" action=""admin_matter.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%""><input type=""text"" name=""Title"" class=""txt"" style=""width:300px"" value=""" & MyIO.HTMLEncode(objCmd("Title")) & """ /> " & MUST_INPUT & "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>素材格式</td>"
        MyIO.Echo "<td>*." & objCmd("Ext") & "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>素材来源</td>"
        MyIO.Echo "<td>" & MyIO.HTMLEncode(objCmd("Source")) & "</td>"
        MyIO.Echo "</tr>"
        If objCmd("Category") = wmTypeVideo Or objCmd("Category") = wmTypeSoft Then
            If UCase(objCmd("Ext")) = "JAR" Then
                MyIO.Echo "<tr class=""winT1"">"
                MyIO.Echo "<td>JAD 文件</td>"
                MyIO.Echo "<td><input type=""file"" name=""JAD"" class=""txt"" style=""width:250px"" />"
                
                strPath = GetMatterFile(objCmd("Category"), objCmd("Intime"), objCmd("Mark"), "jad", "")
                If FileExists(GetMapPath(strPath)) Then
                    MyIO.Echo " <img id=""ID_JAD_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('" & strPath & "')"" title=""预览"" />"
                    MyIO.Echo " <img id=""ID_JAD_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('matter','jad'," & objCmd("SeqId") & ",'ID_JAD_IMG','ID_JAD_BTN')"" title=""删除"" />"
                End If
                MyIO.Echo "</td>"
                MyIO.Echo "</tr>"
            End If
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>预览图片</td>"
            MyIO.Echo "<td><input type=""file"" name=""Pre"" class=""txt"" style=""width:250px"" />"
            
            If objCmd("Preview") <> "" Then
                strPath = GetMatterFile(objCmd("Category"), objCmd("Intime"), objCmd("Mark"), objCmd("Preview"), "")
                If FileExists(GetMapPath(strPath)) Then
                    MyIO.Echo " <img id=""ID_PRE_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('" & strPath & "')"" title=""预览"" />"
                    MyIO.Echo " <img id=""ID_PRE_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('matter','preview'," & objCmd("SeqId") & ",'ID_PRE_IMG','ID_PRE_BTN')"" title=""删除"" />"
                Else
                    MyIO.Echo " 预览图片已丢失"
                End If
            End If
            MyIO.Echo "</td>"
            MyIO.Echo "</tr>"
        End If
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>素材备注</td>"
        MyIO.Echo "<td><textarea name=""Content"" class=""area"" style=""width:300px;height:100px"">" & MyIO.HTMLEncode(objCmd("Content")) & "</textarea></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 Sub doPostAdd()
    Dim objCmd, strSQL
    Dim lngID
    Dim intOpt
    Set objCmd = MyKernel.Command(T_STAPLE)
    MyIO.PostBytes = 10 * MBYTE
    MyIO.FileBytes = 5 * MBYTE
    MyIO.Allow = MyKernel.Config("AllowAttach")
    intOpt = atoi(MyIO.QueryString("Option"))
    If MyPower("AddMatter") = 0 Then
        strError = "您没有导入素材的权限"
    ElseIf MyIO.Parse <> 0 Then
        strError = "超过最大数据请求长度：" & (MBYTE * 10)
    Else
        lngID = atol(MyIO.Form("Staple"))
        If lngID > 0 Then
            objCmd.CommandType = "SELECT"
            objCmd.Where = GetWhere("SEQID", Array(lngID))
            objCmd.Exec
        End If
        If lngID <> objCmd("SeqId") Then
            strError = "找不到目标栏目或者您没有在该栏目下新建内容的权限"
        ElseIf lngID > 0 And objCmd("Category") <> wmStapleNormal Then
            strError = "不能在非普通栏目下新建内容"
        Else
            Dim intRet(2)
            intRet(0) = 0
            intRet(1) = 0
            intRet(2) = 0
            Select Case MyIO.Form("Attach")
            Case "0"
                Call ParseServerX(objCmd, intRet)
                Call ParseServerY(objCmd, intRet)
                blnError = False
                strError = "素材导入完毕<br/>获取文件" & intRet(0) & "个<br/>有效文件" & intRet(1) & "个<br/>生成内容" & intRet(2) & "条"
            Case "1"
                Call ParseLocale(objCmd, intRet)
                blnError = False
                strError = "素材导入完毕<br/>获取文件" & intRet(0) & "个<br/>有效文件" & intRet(1) & "个<br/>生成内容" & intRet(2) & "条"
            Case "2"
                Call ParseRemote(objCmd)
            End Select
            If intRet(2) > 0 And objCmd("SeqId") > 0 Then
                strSQL = "UPDATE $(Table) SET CONTENTTOTAL=$(ContentTotal) WHERE SEQID=$(SeqId)"
                strSQL = Replace(strSQL, "$(Table)", T_STAPLE)
                strSQL = Replace(strSQL, "$(ContentTotal)", objCmd("ContentTotal") + intRet(2))
                strSQL = Replace(strSQL, "$(SeqId)", objCmd("SeqId"))
                MyKernel.DB.Exec strSQL
                WM_SetCache "staple"
            End If
        End If
    End If
    If MyIO.Form("Attach") <> "2" Then
        ExportHead "导入素材"
        MyIO.Echo "<script language=""javascript"">"
        MyIO.Echo "function myload()"
        MyIO.Echo "{"
        MyIO.Echo "var prt = window.parent;"
        If Not blnError Then
            If objCmd("SeqId") > 0 Then
                MyIO.Echo "prt.jspp.Simulator.open(""staple.asp?StapleId=" & objCmd("SeqId") & """);"
            End If
            MyIO.Echo "prt.MessageBox.show(MSG_HINT, """ & strError & """);"
            MyIO.Echo "prt.MessageBox.doAccept(function(){"
            MyIO.Echo "prt.opt.cache[" & intOpt & "] = null;"
            MyIO.Echo "prt.opt.lock(" & intOpt & ");"
            MyIO.Echo "}, true);"
        Else
            MyIO.Echo "prt.MessageBox.show(MSG_WARNING, """ & strError & """);"
        End If
        MyIO.Echo "prt.document.getElementById(""frmMain"").btnPost.disabled = false;"
        MyIO.Echo "}"
        MyIO.Echo "</script>"
        ExportFoot
    End If
    Set objCmd = Nothing
End Sub

Public Sub AddMatter(objCmd)
    Dim arr, ptr
    objCmd.CommandType = "INSERT"
    arr = Split("Category|Ext|Title|Content|Source|Width|Height|Mark|Preview|MD5|Hit|Download|Hidden|Intime", "|")
    For Each ptr In arr
        objCmd.Add ptr, objCmd(ptr)
    Next
    objCmd.Add "GroupId", MyAdmin("GroupId")
    objCmd.Add "TeamId", MyAdmin("TeamId")
    objCmd.Add "AdminId", MyAdmin("SeqId")
    objCmd.Exec
End Sub

Private Function AddContent(objStaple, ByVal strTitle, ByVal lngMatter, ByVal strContent, ByVal intPlace)
    AddContent = False
    If objStaple("SeqId") = 0 Then Exit Function
    AddContent = True
    Dim objCmd
    Dim arrName, strName
    Set objCmd = MyKernel.Command(T_CONTENT)
    objCmd.CommandType = "INSERT"
    objCmd.Add "StapleId", objStaple("SeqId")
    objCmd.Add "StapleTitle", objStaple("Title")
    objCmd.Add "Category", wmContentNormal
    objCmd.Add "Title", strTitle
    objCmd.Add "Content", strContent
    objCmd.Add "Length", wmContentLength
    objCmd.Add "Place", intPlace
    objCmd.Add "Download", 1
    objCmd.Add "Templet", objStaple("ContentTemplet")
    objCmd.Add "Commend", 0
    objCmd.Add "Hot", 0
    objCmd.Add "IsWML", 0
    objCmd.Add "Price", ""
    objCmd.Add "Matter", lngMatter
    objCmd.Add "Mark", objStaple("Mark")