content

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

        MyIO.Echo "<td><input type=""text"" name=""PageMark"" class=""txt"" value=""" & MyIO.HTMLEncode(objCmd("PageMark")) & """ /> 优先于分页长度，如果为空，则按长度分页</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>分页长度</td>"
        MyIO.Echo "<td><input type=""text"" name=""Length"" class=""txt"" style=""width:50px"" value=""" & objCmd("Length") & """ />" & MUST_INPUT & " 分页的字符长度</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>内容附件</td>"
        MyIO.Echo "<td>"
        MyIO.Echo "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"">"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td width=""30""><input type=""radio"" name=""Attach"" value=""0"" onclick=""jspp.Content.chkAttach(this)""" & setChecked(objCmd("Matter") = 0) & " /></td>"
        MyIO.Echo "<td>本地文件：<input type=""file"" id=""Attach0"" name=""Attach0"" class=""txt"" style=""width:300px"" onchange=""jspp.Content.chkAttachX(this, 0)""" & setDisabled(objCmd("Matter") <> 0) & " /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>&nbsp;</td>"
        MyIO.Echo "<td>JAD 文件：<input type=""file"" id=""JAD0"" name=""JAD0"" class=""txt"" style=""width:300px"" disabled=""true"" /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>&nbsp;</td>"
        MyIO.Echo "<td>预览图片：<input type=""file"" id=""PRE0"" name=""PRE0"" class=""txt"" style=""width:300px"" disabled=""true"" /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td><input type=""radio"" id=""_attach_"" name=""Attach"" value=""1"" onclick=""jspp.Content.chkAttach(this)"" /></td>"
        MyIO.Echo "<td>远程文件：<input type=""text"" id=""Attach1"" name=""Attach1"" class=""txt"" style=""width:300px"" onchange=""jspp.Content.chkAttachX(this, 1)"" disabled=""true"" /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>&nbsp;</td>"
        MyIO.Echo "<td>JAD 文件：<input type=""text"" id=""JAD1"" name=""JAD1"" class=""txt"" style=""width:300px"" disabled=""true"" /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>&nbsp;</td>"
        MyIO.Echo "<td>预览图片：<input type=""text"" id=""PRE1"" name=""PRE1"" class=""txt"" style=""width:300px"" disabled=""true"" /></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td><input type=""radio"" name=""Attach"" value=""2"" onclick=""jspp.Content.chkAttach(this)""" & setChecked(objCmd("Matter") <> 0) & " /></td>"
        MyIO.Echo "<td>素 材 库：<input type=""text"" id=""Attach2"" name=""Attach2"" class=""txt"" style=""width:300px"" value=""" & IIf(objCmd("Matter") <> 0, objCmd("Matter"), "") & """ " & IIf(objCmd("Matter") <> 0, "readonly", "disabled") & "=""true"" />"
        ShowMatter objCmd("Matter")
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td colspan=""2"">"
        MyIO.Echo "特别说明：<br/>"
        MyIO.Echo "1、本地文件或远程文件不要太大，推荐1MB以内。<br/>"
        MyIO.Echo "2、如果是JAR、JAD、预览图片混合导入，先选择JAR文件，JAD和预览图片的表单才能使用；如果是视频或软件，先选择视频或软件，预览图片的表单才能使用<br/>"
        MyIO.Echo "2、远程文件采用HTTP标准格式，例如：http://www.wapmo.cn/images/logo.gif<br/>"
        MyIO.Echo "3、支持" & Replace(MyKernel.Config("AllowAttach"), "|", "、") & "等格式的文件"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "</table>"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>附件位置</td>"
        MyIO.Echo "<td>"
        MyIO.Echo "<select name=""Place"" class=""sel"">"
        MyIO.Echo "<option value=""" & wmImgOverTitle & """" & setSelected(objCmd("Place") = wmImgOverTitle) & ">标题之上</option>"
        MyIO.Echo "<option value=""" & wmImgUnderTitle & """" & setSelected(objCmd("Place") = wmImgUnderTitle) & ">标题之下</option>"
        MyIO.Echo "<option value=""" & wmImgUnderContent & """" & setSelected(objCmd("Place") = wmImgUnderContent) & ">内容之下</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=""Download"" value=""1""" & setChecked(objCmd("Download") = 1) & " /> 是否提供下载，只有附件是图片格式，该参数有效，其他格式默认是可下载的</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>内容模版</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><input type=""checkbox"" name=""Commend"" value=""1""" & setChecked(objCmd("Commend") = 1) & " /> 将该内容加入到推荐列表</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>加入热点</td>"
        MyIO.Echo "<td><input type=""checkbox"" name=""Hot"" value=""1""" & setChecked(objCmd("Hot") = 1) & " /> 将该内容加入到热点列表</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>第三方代码</td>"
        MyIO.Echo "<td><input type=""checkbox"" name=""IsWML"" value=""1""" & setChecked(objCmd("IsWML") = 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"" value=""" & MyIO.HTMLEncode(objCmd("Price")) & """ /> 如：100元/箱。当所属栏目已选择了订单功能，该参数有效</td>"
            MyIO.Echo "</tr>"
        End If
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>选择分类</td>"
        MyIO.Echo "<td>"
        Call doGetCategory(objCmd("Cate"))
        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 " <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 ShowMatter(ByVal lngMark)
    If lngMark = 0 Then Exit Sub
    Dim objCmd
    Set objCmd = MyKernel.Command(T_MATTER)
    objCmd.CommandType = "SELECT"
    objCmd.Where = "Mark=" & lngMark
    If objCmd.Exec Then
        Dim strPath
        Dim strMemo
        strPath = GetMatterFile(objCmd("Category"), objCmd("Intime"), objCmd("Mark"), objCmd("Ext"), "")
        strMemo = "名称：" & objCmd("Title") & vbCrLf & _
            "来源：" & objCmd("Source") & vbCrLf & _
            "备注：" & objCmd("Content") & vbCrLf & _
            "格式：" & objCmd("Ext") & vbCrLf
        MyIO.Echo " <img id=""ID_MATTER_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.HTMLEncode(strMemo) & """ />"
        MyIO.Echo " <img id=""ID_MATTER_EDT"" src=""images/xw_edit0.gif"" border=""0"" align=""absMiddle"" style=""cursor:pointer"" onmouseover=""ImageBox.filter(this, 1)"" onmouseout=""ImageBox.filter(this, 0)"" onclick=""window.open('admin_matter.asp?Handle=Modify&SeqId=" & objCmd("SeqId") & "', '_matter_modify_', 'width=400,height=300,toolbar=no,menubar=no,scrollbars=yes,resizable=no,location=no,status=no')"" />"
        MyIO.Echo " <img id=""ID_MATTER_DEL"" 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','all'," & objCmd("SeqId") & ",'ID_MATTER_IMG','ID_MATTER_EDT','ID_MATTER_DEL')"" />"
    End If
    Set objCmd = Nothing
End Sub

Private Sub doGetMatter()
    Dim rs
    Dim i
    Dim intCate, strKey
    Dim xmlNode
    intCate = atoi(MyIO.QueryString("Category"))
    strKey = MyIO.QueryString("Keyword")
    
    Set objPage = vbsre.mocom.WAPmo.Page.newInstance()
    
    objPage.ID = atol(MyIO.QueryString("Page"))
    objPage.Size = 12
    objPage.DataType = WM_DataType
    objPage.Table = T_MATTER
    objPage.Where = "1=1"
    If intCate <> 0 Then
        objPage.Where = objPage.Where & " AND Category=" & intCate
    End If
    If strKey <> "" Then
        objPage.Where = objPage.Where & Replace(" AND (Title Like '%$(Key)%' Or Content LIKE '%$(Key)%')", "$(Key)", SafeString(strKey))
    End If
    If MyPower.Status <> 1 And MyKernel.Config("MatterGroup") = "1" Then
        objPage.Where = objPage.Where & " AND GROUPID=" & MyAdmin("GroupId")
    End If
    objPage.Where = Replace(objPage.Where, "1=1 AND ", "")
    objPage.Where = Replace(objPage.Where, "1=1", "")
    objPage.Count = GetPageCount(objPage)
    objPage.Sort = "SeqId DESC"
    objPage.SortType = 1
    objPage.Index = "SEQID"
    objPage.Build "matters", "matter"
    
   MyIO.Echo "<form id=""frmMatters"" onsubmit=""return(false)"">"
    MyIO.Echo "<table width=""500"" 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 colspan=""4"" class=""winT0"">"
    MyIO.Echo " <input type=""button"" value=""刷新"" class=""btn"" onclick=""jspp.ContentX.doGetMatter(null, jspp.ContentX.category, jspp.ContentX.keyword, jspp.ContentX.page)"" />"
    MyIO.Echo " <select name=""Category"" class=""sel"" onchange=""jspp.ContentX.doGetMatter(null, this.value, '" & MyIO.HTMLEncode(strKey) & "', 1)"">"
    MyIO.Echo "<option value=""0""" & setSelected(intCate = 0) & ">所有素材</option>"
    MyIO.Echo "<option value=""1""" & setSelected(intCate = 1) & ">图片素材</option>"
    MyIO.Echo "<option value=""2""" & setSelected(intCate = 2) & ">铃声素材</option>"
    MyIO.Echo "<option value=""3""" & setSelected(intCate = 3) & ">视频素材</option>"
    MyIO.Echo "<option value=""4""" & setSelected(intCate = 4) & ">软件素材</option>"
    MyIO.Echo "</select>"
    MyIO.Echo " <input type=""button"" value=""搜索"" class=""btn"" onclick=""jspp.ContentX.doGetMatter(null, " & intCate & ", escape(this.form.Keyword.value), 1)"" />"
    MyIO.Echo " <input name=""Keyword"" type=""text"" value=""" & MyIO.HTMLEncode(strKey) & """ class=""txt"" />"
    MyIO.Echo " <input name=""Insert"" type=""button"" value=""确定插入"" class=""btn"" onclick=""jspp.ContentX.doMatterInsert()"" disabled=""true"" />"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    If objPage.Rows.hasChildNodes Then
        i = 0
        For Each xmlNode In objPage.Rows.childNodes
            If (i + 1) Mod 4 = 1 Then MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td id=""_matter_" & XMLAttr(xmlNode, "category") & "_" & Hex(atol(XMLAttr(xmlNode, "mark"))) & "_"" width=""25%"" align=""center"" valign=""top"" style=""cursor:pointer"" onmouseover=""this.style.backgroundColor='#FFF3EE'"" onmouseout=""this.style.backgroundColor=((this.getAttribute('choose') == 1) ? '#88A6FF' : '')"" onclick=""jspp.ContentX.doMatterSelect(this)"">*." & XMLAttr(xmlNode, "ext") & "<br/>"
            If atoi(XMLAttr(xmlNode, "category")) = wmTypeImage Then
                If atoi(XMLAttr(xmlNode, "width")) > 150 Then
                    MyIO.Echo "<img src=""" & GetMatterFile(XMLAttr(xmlNode, "category"), XMLAttr(xmlNode, "intime"), XMLAttr(xmlNode, "mark"), XMLAttr(xmlNode, "ext"), "") & """ width=""150"" border=""0"" align=""absMiddle"" />"
                Else
                    MyIO.Echo "<img src=""" & GetMatterFile(XMLAttr(xmlNode, "category"), XMLAttr(xmlNode, "intime"), XMLAttr(xmlNode, "mark"), XMLAttr(xmlNode, "ext"), "") & """ border=""0"" align=""absMiddle"" />"
                End If
            Else
                MyIO.Echo "<img src=""images/" & GetMatterName(XMLAttr(xmlNode, "category")) & ".gif"" border=""0"" align=""absMiddle"" /><br/>" & MyIO.HTMLEncode(XMLAttr(xmlNode, "title"))
            End If
            MyIO.Echo "</td>"
            If (i + 1) Mod 4 = 0 Then MyIO.Echo "</tr>"
            i = i + 1
        Next
        If i Mod 4 <> 0 Then
            Do While i Mod 4 <> 0
                MyIO.Echo "<td width=""25%"" align=""center"">&nbsp;</td>"
                i = i + 1
            Loop
            MyIO.Echo "</tr>"
        End If
    End If
    MyIO.Echo "<tr class=""winT4"">"
    MyIO.Echo "<td colspan=""4"" 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.ContentX.doGetMatter(null, " & intCate & ", '" & MyIO.HTMLEncode(strKey) & "', 1)"" class=""a1"" />首  页</a>"
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.ContentX.doGetMatter(null, " & intCate & ", '" & MyIO.HTMLEncode(strKey) & "', " & (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.ContentX.doGetMatter(null, " & intCate & ", '" & MyIO.HTMLEncode(strKey) & "', " & (objPage.ID + 1) & ")"" class=""a1"" />下一页</a>"
        MyIO.Echo " <a href=""javascript:void(0)"" onclick=""jspp.ContentX.doGetMatter(null, " & intCate & ", '" & MyIO.HTMLEncode(strKey) & "', " & objPage.Total & ")"" class=""a1"" />尾  页</a>"
    Else
        MyIO.Echo " <a class=""a1"">下一页</a>"
        MyIO.Echo " <a class=""a1"">尾  页</a>"
    End If