content

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

    MyIO.Echo " 跳到 <input type=""text"" name=""PageX"" class=""txt"" value=""" & objPage.ID & """ style=""width:30px"" /> 页"
    MyIO.Echo " <input type=""button"" value=""GO"" class=""btn"" onclick=""jspp.ContentX.doGetMatter(null, " & intCate & ", '" & MyIO.HTMLEncode(strKey) & "', document.getElementById('PageX').value)"" />"
    MyIO.Echo "</td>"
    MyIO.Echo "</tr>"
    MyIO.Echo "</table>"
    MyIO.Echo "</form>"
    Set objPage = Nothing
End Sub

Private Sub doPostAdd()
    MyIO.Allow = MyKernel.Config("AllowAttach")
    MyIO.PostBytes = 10 * MBYTE
    MyIO.FileBytes = 5 * MBYTE
    Dim objStaple, objCmd
    Set objStaple = MyKernel.Command(T_STAPLE)
    If MyPower("AddContent") = 0 Then
        strError = "您没有添加内容的权限"
    ElseIf MyIO.Parse <> 0 Then
        strError = "超过最大数据请求长度：" & MBYTE * 10
    Else
        Dim lngStapleId
        Dim strTitle
        Dim strContent
        Dim intCategory
        lngStapleId = atol(MyIO.Form("StapleId"))
        strTitle = Trim(MyIO.Form("Title"))
        strContent = MyIO.Form("Content")
        intCategory = atoi(MyIO.Form("Category"))
        objStaple.CommandType = "SELECT"
        objStaple.Where = GetWhere("SEQID", Array(lngStapleId))
        If lngStapleId <= 0 Then
            strError = "请选择内容所属栏目"
        ElseIf Not objStaple.Exec Then
            strError = "请选择内容所属栏目或者您没有在该栏目下添加内容的权限"
        ElseIf objStaple("Category") <> wmStapleNormal Then
            strError = "非普通栏目不能新建内容"
        ElseIf strTitle = "" Then
            strError = "请输入内容标题"
        ElseIf intCategory = wmContentLinking And Trim(strContent) = "" Then
            strError = "请将连接地址填在内容文本中"
        Else
            Set objCmd = MyKernel.Command(T_CONTENT)
            objCmd.CommandType = "INSERT"
            objCmd.Add "StapleId", objStaple("SeqId")
            objCmd.Add "StapleTitle", objStaple("Title")
            objCmd.Add "Category", intCategory
            objCmd.Add "Title", strTitle
            objCmd.Add "Content", strContent
            objCmd.Add "PageMark", MyIO.Form("PageMark")
            objCmd.Add "Length", MyIO.Form("Length")
            objCmd.Add "Place", MyIO.Form("Place")
            objCmd.Add "Download", MyIO.Form("Download")
            objCmd.Add "Templet", MyIO.Form("Templet")
            objCmd.Add "Commend", MyIO.Form("Commend")
            objCmd.Add "Hot", MyIO.Form("Hot")
            objCmd.Add "IsWML", MyIO.Form("IsWML")
            objCmd.Add "Price", MyIO.Form("Price")
            Select Case atoi(MyIO.Form("Attach"))
            Case 0
                objCmd.Add "Matter", SaveAttach0()
            Case 1
                objCmd.Add "Matter", SaveAttach1()
            Case 2
                objCmd.Add "Matter", MyIO.Form("Attach2")
            End Select
            objCmd.Add "Mark", objStaple("Mark")
            objCmd.Add "Examine", 1
            objCmd.Add "Hidden", 0
            objCmd.Add "RemarkTotal", 0
            objCmd.Add "Intime", GetTime(Now())
            If MyPower.Status <> 1 And MyKernel.Config("StapleGroup") = "1" Then
                objCmd.Add "GroupId", MyAdmin("GroupId")
                objCmd.Add "TeamId", MyAdmin("TeamId")
                objCmd.Add "AdminId", MyAdmin("SeqId")
            Else
                objCmd.Add "GroupId", 0
                objCmd.Add "TeamId", 0
                objCmd.Add "AdminId", 0
            End If
            objCmd.Add "Cate", MyIO.Form("Cate")
            objCmd.Exec
            blnError = False
            strError = "内容添加成功"
            RemoveCache "staple", objStaple("SeqId"), 0, 0
            RemoveCache "index", 0, 0, 0
            strSQL = "UPDATE $(Table) SET CONTENTTOTAL=$(ContentTotal) WHERE SEQID=$(SeqId)"
            strSQL = Replace(strSQL, "$(Table)", T_STAPLE)
            strSQL = Replace(strSQL, "$(ContentTotal)", objStaple("ContentTotal") + 1)
            strSQL = Replace(strSQL, "$(SeqId)", objStaple("SeqId"))
            MyKernel.DB.Exec strSQL
            WM_SetCache "staple"
        End If
    End If
    ExportHead "新建内容"
    MyIO.Echo "<script language=""javascript"">"
    MyIO.Echo "function myload()"
    MyIO.Echo "{"
    MyIO.Echo "var prt = window.parent;"
    MyIO.Echo "var frm = prt.document.getElementById(""frmMain"");"
    MyIO.Echo "frm.btnPost.disabled = false;"
    If Not blnError Then
        MyIO.Echo "var ptr = frm.StapleId;"
        MyIO.Echo "var id = ptr.value;"
        MyIO.Echo "prt.opt.lock(1);"
        MyIO.Echo "prt.Form.setSelect(id);"
        MyIO.Echo "prt.MessageBox.show(MSG_HINT, """ & strError & """);"
        MyIO.Echo "prt.MessageBox.doAccept(function(){"
        MyIO.Echo "prt.jspp.Simulator.open(""staple.asp?StapleId=" & objStaple("SeqId") & """);"
        MyIO.Echo "}, true);"
    Else
        MyIO.Echo "prt.MessageBox.show(MSG_WARNING, """ & strError & """);"
    End If
    MyIO.Echo "}"
    MyIO.Echo "</script>"
    ExportFoot
    Set objStaple = Nothing
End Sub

Private 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 SaveAttach0()
    Dim objItem, ret
    Set objItem = MyIO.File("Attach0", 0)
    If objItem Is Nothing Then
        ret = 0
    ElseIf objItem.State = 0 Then
        Dim objCmd
        Dim strPath
        Dim size
        Dim objTemp
        Set objCmd = MyKernel.Command(T_MATTER)
        objCmd("Ext") = objItem.FileExt
        objCmd("Category") = GetMatterCategory(objCmd("Ext"))
        objCmd("Title") = fso.GetFileName(objItem.FileName)
        objCmd("Source") = Replace(objItem.FileName, "\", "/")
        objCmd("Mark") = GetMatterMark() + 1
        objCmd("Intime") = GetTime(Now())
        strPath = GetMatterFile(objCmd("Category"), objCmd("Intime"), objCmd("Mark"), objCmd("Ext"), "")
        DetectFile GetMapPath(""), strPath
        strPath = GetMapPath(strPath)
        objItem.SaveToFile strPath
        If objCmd("Category") = wmTypeImage Then
            size = ImageResize2(strPath, strPath, atoi(MyKernel.Config("KeepWidth")), atoi(MyKernel.Config("KeepHeight")))
            If Not size(0) Then
                size = GetFileInfo(strPath)
            End If
            objCmd("Width") = size(1)
            objCmd("Height") = size(2)
            ImageImpress strPath
        ElseIf objCmd("Category") = wmTypeVideo Or objCmd("Category") = wmTypeSoft Then
            If UCase(objCmd("Ext")) = "JAR" Then
                Set objTemp = MyIO.File("JAD0", 0)
                If objTemp Is Nothing Then
                    'pass
                ElseIf objTemp.State = 0 And UCase(objTemp.FileExt) = "JAD" Then
                    objTemp.SaveToFile GetMatterPath(objCmd("Category"), objCmd("Intime"), objCmd("Mark"), objTemp.FileExt, "")
                End If
                Set objTemp = Nothing
            End If
            Set objTemp = MyIO.File("PRE0", 0)
            If objTemp Is Nothing Then
                'pass
            ElseIf objTemp.State = 0 Then
                If InString(MyKernel.Config("AllowImage"), objTemp.FileExt, False) Then
                    objCmd("Preview") = LCase(objTemp.FileExt)
                    strPath = GetMatterPath(objCmd("Category"), objCmd("Intime"), objCmd("Mark"), objTemp.FileExt, "")
                    objTemp.SaveToFile strPath
                    ImageResize2 strPath, strPath, atoi(MyKernel.Config("KeepWidth")), atoi(MyKernel.Config("KeepHeight"))
                    ImageImpress strPath
                End If
            End If
            Set objTemp = Nothing
        End If
        AddMatter objCmd
        ret = objCmd("Mark")
        SetMatterMark objCmd("Mark")
        Set objCmd = Nothing
    Else
        ret = 0
    End If
    Set objItem = Nothing
    SaveAttach0 = ret
End Function

Private Function SaveAttach1()
    Dim strURL
    Dim varBuf
    Dim strExt
    Dim ret
    strURL = Trim(MyIO.Form("Attach1"))
    If strURL = "" Then
        ret = 0
    Else
        Dim objCmd
        Set objCmd = MyKernel.Command(T_MATTER)
        objCmd("Ext") = fso.GetExtensionName(strURL)
        objCmd("Category") = GetMatterCategory(objCmd("Ext"))
        If objCmd("Category") = 0 Then
            ret = 0
        Else
            objCmd("Title") = fso.GetFileName(strURL)
            objCmd("Source") = strURL
            varBuf = GetRemoteBody(strURL)
            If VarType(varBuf) = (vbArray Or vbByte) Then
                Dim strPath
                Dim size, info
                objCmd("Mark") = GetMatterMark() + 1
                objCmd("Intime") = GetTime(Now())
                strPath = GetMatterFile(objCmd("Category"), objCmd("Intime"), objCmd("Mark"), objCmd("Ext"), "")
                DetectFile GetMapPath(""), strPath
                strPath = GetMapPath(strPath)
                SetFileBinary strPath, varBuf, True
                If objCmd("Category") = wmTypeImage Then
                    size = ImageResize2(strPath, strPath, atoi(MyKernel.Config("Keep