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

📄 content

📁 WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品
💻
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
            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 & """>标题之上</option>"
            MyIO.Echo "<option value=""" & wmImgUnderTitle & """>标题之下</option>"
            MyIO.Echo "<option value=""" & wmImgUnderContent & """ selected=""true"">内容之下</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"" checked=""true"" /> 是否提供下载，只有附件是图片格式，该参数有效，其他格式默认是可下载的</td>"
            MyIO.Echo "</tr>"
            MyIO.Echo "<tr class=""winT1"">"
            MyIO.Echo "<td>内容模版</td>"
            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 "2"
        MyIO.Echo "<form id=""frmMain"" action=""admin_matter.asp?Handle=Add&Option=2"" method=""post"" enctype=""multipart/form-data"" target=""console"">"
        MyIO.Echo "<input type=""hidden"" name=""Attributes"" />"
        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></td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td width=""10%"">导入栏目</td>"
        MyIO.Echo "<td width=""90%"">"
        MyIO.Echo "<select name=""Staple"" class=""sel"" style=""width:200px"" onchange=""jspp.SeqId = this.value"">"
        MyIO.Echo "<option value=""0"">选择您要导入的栏目</option>"
        MyIO.Echo "</select>" & IIf(MyPower.Status = 100, "带有*字符的是属于您的栏目<br/>", "")
        MyIO.Echo "导入素材的同时，可以把素材导入到栏目里，程序会自动在您指定的栏目中生成一系列内容，标题为素材的文件名，内容为空，默认提供下载。如果文件是txt文本文件，那么只有指定导入的栏目，才会把文本文件的内容导入到栏目下，否则不与处理，并且，请勿在下载配置里添加txt扩展名"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td>素材来源</td>"
        MyIO.Echo "<td>"
        MyIO.Echo "<table width=""100%"" border=""1"" cellpadding=""2"" cellspacing=""0"" align=""center"" style=""border-collapse:collapse"" bordercolor=""#000000"">"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td width=""150""><input type=""radio"" name=""Attach"" value=""0"" onclick=""chkAttach(this)"" checked=""true"" /> 服务器文件（推荐）</td>"
        MyIO.Echo "<td>"
        MyIO.Echo "服务器文件请用FTP软件上传至站点的images/temp目录下，每次不要上传太多文件，推荐100个文件，每个文件大小在100KB以内。<br/>"
        MyIO.Echo "<font color=""#0000FF"">注意事项：</font>"
        MyIO.Echo "<li>JAR、JAD、预览图片混合导入，JAR、JAD、预览图片文件必须同名，例如：qq.jar、qq.jad、qq.gif</li>"
        MyIO.Echo "<li>视频或软件类素材与预览图片混合导入，素材名与预览图片必须同名，例如：aaa.3gp、aaa.gif</li>"
        MyIO.Echo "<li>"
        MyIO.Echo "将几个相关素材导入成一条内容，步骤如下：<br/>"
        MyIO.Echo "1、选择需要导入的栏目<br/>"
        MyIO.Echo "2、在站点的images/temp目录下建立内容文件夹，文件夹名即为内容标题名称<br/>"
        MyIO.Echo "3、将相关的几个素材放在内容文件夹下，素材备注用txt文档"
        MyIO.Echo "</li>"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td><input type=""radio"" name=""Attach"" value=""1"" onclick=""chkAttach(this)"" /> 本地文件（最多10个）</td>"
        MyIO.Echo "<td>"
        MyIO.Echo "<input id=""Attach1"" type=""button"" value=""新增文件"" class=""btn"" onclick=""addAttach(this)"" disabled=""true"" /><br/>"
        MyIO.Echo "本地文件：<input type=""file"" id=""Attach10"" name=""Attach10"" class=""txt"" style=""width:300px"" disabled=""true"" onchange=""chkAttachX(this, 0)"" /><br/>"
        MyIO.Echo "JAD 文件：<input type=""file"" id=""JAD10"" name=""JAD10"" class=""txt"" style=""width:300px"" disabled=""true"" /><br/>"
        MyIO.Echo "预览图片：<input type=""file"" id=""PRE10"" name=""PRE10"" class=""txt"" style=""width:300px"" disabled=""true"" /><br/>"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "<tr class=""winT1"">"
        MyIO.Echo "<td><input type=""radio"" name=""Attach"" value=""2"" onclick=""chkAttach(this)"" /> 远程文件</td>"
        MyIO.Echo "<td><textarea id=""Attach2"" name=""Attach2"" class=""area"" style=""width:350px;height:100px"" disabled=""true""></textarea><br/>采用HTTP标准格式，如：http://www.wapmo.cn/images/logo.gif，一行一个文件</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><input type=""checkbox"" name=""Keep"" value=""1"" /> 保留文件扩展名</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 & """>标题之上</option>"
        MyIO.Echo "<option value=""" & wmImgUnderTitle & """>标题之下</option>"
        MyIO.Echo "<option value=""" & wmImgUnderContent & """ selected=""true"">内容之下</option>"
        MyIO.Echo "</select>"
        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=""MatterSubmit(this)"" />"
        MyIO.Echo " <input type=""reset"" value=""重设表单"" class=""btn"" />"
        MyIO.Echo "</td>"
        MyIO.Echo "</tr>"
        MyIO.Echo "</table>"
        MyIO.Echo "</form>"
    Case Else
    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 doGetList()
    Dim rs
    Dim i
    Dim strKey
    Dim lngStaple
    Dim strSort, intSort
    Dim intCate
    Dim intCommend
    Dim intHot
    Dim intStat
    Dim intExamine
    Dim xmlNode
    lngStaple = atol(MyIO.QueryString("Parent"))
    strKey = MyIO.QueryString("Keyword")
    strSort = MyIO.QueryString("Sort")
    If strSort = "" Then strSort = "SeqId"
    intSort = atoi(MyIO.QueryString("SortType"))
    intCate = atoi(MyIO.QueryString("Category"))
    intCommend = atoi(MyIO.QueryString("Commend"))
    intHot = atoi(MyIO.QueryString("Hot"))
    intStat = atoi(MyIO.QueryString("Stat"))
    intExamine = atoi(MyIO.QueryString("Examine"))
    Set objPage = vbsre.mocom.WAPmo.Page.newInstance()
    
    objPage.ID = atol(MyIO.QueryString("Page"))
    objPage.Size = 20
    If strSort = "Hit" And WM_DataType = adSQLServer Then
        objPage.DataType = adAccess
    Else
        objPage.DataType = WM_DataType
    End If
    objPage.Table = T_CONTENT
    objPage.Column = "SEQID,STAPLEID,STAPLETITLE,TITLE,CONTENT,CATEGORY,HIT,COMMEND,HOT,HIDDEN,EXAMINE,INTIME,USERID,USERNAME"
    objPage.Where = "1=1"
    If strKey <> "" Then
        objPage.Where = objPage.Where & " AND (TITLE LIKE '%" & SafeString(strKey) & "%' OR CONTENT LIKE '%" & SafeString(strKey) & "%')"
    End If
    If lngStaple <> 0 Then
        objPage.Where = objPage.Where & " AND STAPLEID=" & lngStaple
    End If
    If intCate <> 100 Then
        objPage.Where = objPage.Where & " AND CATEGORY=" & intCate
    End If
    If intCommend <> 100 Then
        objPage.Where = objPage.Where & " AND COMMEND=" & intCommend
    End If
    If intHot <> 100 Then
        objPage.Where = objPage.Where & " AND HOT=" & intHot
    End If
    If intStat <> 100 Then
        objPage.Where = objPage.Where & " AND HIDDEN=" & intStat
    End If
    If intExamine <> 100 Then
        objPage.Where = objPage.Where & " AND EXAMINE=" & intExamine
    End If
    If MyPower.Status <> 1 And MyKernel.Config("StapleGroup") = "1" Then
        If MyPower.Status = 0 Then
            objPage.Where = objPage.Where & " AND GROUPID=" & MyAdmin("GroupId")
        Else
            objPage.Where = objPage.Where & " AND TEAMID=" & MyAdmin("TeamId")
        End If
12345

⌨️ 快捷键说明

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