source: extensions/FCKEditor/editor/filemanager/connectors/asp/commands.asp @ 3295

<%
 ' FCKeditor - The text editor for Internet - http://www.fckeditor.net
 ' Copyright (C) 2003-2009 Frederico Caldeira Knabben
 '
 ' == BEGIN LICENSE ==
 '
 ' Licensed under the terms of any of the following licenses at your
 ' choice:
 '
 '  - GNU General Public License Version 2 or later (the "GPL")
 '    http://www.gnu.org/licenses/gpl.html
 '
 '  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
 '    http://www.gnu.org/licenses/lgpl.html
 '
 '  - Mozilla Public License Version 1.1 or later (the "MPL")
 '    http://www.mozilla.org/MPL/MPL-1.1.html
 '
 ' == END LICENSE ==
 '
 ' This file include the functions that handle the Command requests
 ' in the ASP Connector.
%>
<%
Sub GetFolders( resourceType, currentFolder )
        ' Map the virtual path to the local server path.
        Dim sServerDir
        sServerDir = ServerMapFolder( resourceType, currentFolder, "GetFolders" )

        ' Open the "Folders" node.
        Response.Write "<Folders>"

        Dim oFSO, oCurrentFolder, oFolders, oFolder
        Set oFSO = Server.CreateObject( "Scripting.FileSystemObject" )
        if not (oFSO.FolderExists( sServerDir ) ) then
                Set oFSO = Nothing
                SendError 102, currentFolder
        end if

        Set oCurrentFolder = oFSO.GetFolder( sServerDir )
        Set oFolders = oCurrentFolder.SubFolders

        For Each oFolder in oFolders
                Response.Write "<Folder name=""" & ConvertToXmlAttribute( oFolder.name ) & """ />"
        Next

        Set oFSO = Nothing

        ' Close the "Folders" node.
        Response.Write "</Folders>"
End Sub

Sub GetFoldersAndFiles( resourceType, currentFolder )
        ' Map the virtual path to the local server path.
        Dim sServerDir
        sServerDir = ServerMapFolder( resourceType, currentFolder, "GetFoldersAndFiles" )

        Dim oFSO, oCurrentFolder, oFolders, oFolder, oFiles, oFile
        Set oFSO = Server.CreateObject( "Scripting.FileSystemObject" )
        if not (oFSO.FolderExists( sServerDir ) ) then
                Set oFSO = Nothing
                SendError 102, currentFolder
        end if

        Set oCurrentFolder = oFSO.GetFolder( sServerDir )
        Set oFolders    = oCurrentFolder.SubFolders
        Set oFiles              = oCurrentFolder.Files

        ' Open the "Folders" node.
        Response.Write "<Folders>"

        For Each oFolder in oFolders
                Response.Write "<Folder name=""" & ConvertToXmlAttribute( oFolder.name ) & """ />"
        Next

        ' Close the "Folders" node.
        Response.Write "</Folders>"

        ' Open the "Files" node.
        Response.Write "<Files>"

        For Each oFile in oFiles
                Dim iFileSize
                iFileSize = Round( oFile.size / 1024 )
                If ( iFileSize < 1 AND oFile.size <> 0 ) Then iFileSize = 1

                Response.Write "<File name=""" & ConvertToXmlAttribute( oFile.name ) & """ size=""" & iFileSize & """ />"
        Next

        ' Close the "Files" node.
        Response.Write "</Files>"
End Sub

Sub CreateFolder( resourceType, currentFolder )
        Dim sErrorNumber

        Dim sNewFolderName
        sNewFolderName = Request.QueryString( "NewFolderName" )
        sNewFolderName = SanitizeFolderName( sNewFolderName )

        If ( sNewFolderName = "" OR InStr( 1, sNewFolderName, ".." ) > 0  ) Then
                sErrorNumber = "102"
        Else
                ' Map the virtual path to the local server path of the current folder.
                Dim sServerDir
                sServerDir = ServerMapFolder( resourceType, CombineLocalPaths(currentFolder, sNewFolderName), "CreateFolder" )

                On Error Resume Next

                CreateServerFolder sServerDir

                Dim iErrNumber, sErrDescription
                iErrNumber              = err.number
                sErrDescription = err.Description

                On Error Goto 0

                Select Case iErrNumber
                        Case 0
                                sErrorNumber = "0"
                        Case 52
                                sErrorNumber = "102"    ' Invalid Folder Name.
                        Case 70
                                sErrorNumber = "103"    ' Security Error.
                        Case 76
                                sErrorNumber = "102"    ' Path too long.
                        Case Else
                                sErrorNumber = "110"
                End Select
        End If

        ' Create the "Error" node.
        Response.Write "<Error number=""" & sErrorNumber & """ originalNumber=""" & iErrNumber & """ originalDescription=""" & ConvertToXmlAttribute( sErrDescription ) & """ />"
End Sub

Sub FileUpload( resourceType, currentFolder, sCommand )
        Dim oUploader
        Set oUploader = New NetRube_Upload
        oUploader.MaxSize       = 0
        oUploader.Allowed       = ConfigAllowedExtensions.Item( resourceType )
        oUploader.Denied        = ConfigDeniedExtensions.Item( resourceType )
        oUploader.HtmlExtensions = ConfigHtmlExtensions
        oUploader.GetData

        Dim sErrorNumber
        sErrorNumber = "0"

        Dim sFileName, sOriginalFileName, sExtension
        sFileName = ""

        If oUploader.ErrNum > 0 Then
                sErrorNumber = "202"
        Else
                ' Map the virtual path to the local server path.
                Dim sServerDir
                sServerDir = ServerMapFolder( resourceType, currentFolder, sCommand )

                Dim oFSO
                Set oFSO = Server.CreateObject( "Scripting.FileSystemObject" )
                if not (oFSO.FolderExists( sServerDir ) ) then
                        sErrorNumber = "102"
                else
                        ' Get the uploaded file name.
                        sFileName       = oUploader.File( "NewFile" ).Name
                        sExtension      = oUploader.File( "NewFile" ).Ext
                        sFileName = SanitizeFileName( sFileName )
                        sOriginalFileName = sFileName

                        Dim iCounter
                        iCounter = 0

                        Do While ( True )
                                Dim sFilePath
                                sFilePath = CombineLocalPaths(sServerDir, sFileName)

                                If ( oFSO.FileExists( sFilePath ) ) Then
                                        iCounter = iCounter + 1
                                        sFileName = RemoveExtension( sOriginalFileName ) & "(" & iCounter & ")." & sExtension
                                        sErrorNumber = "201"
                                Else
                                        oUploader.SaveAs "NewFile", sFilePath
                                        If oUploader.ErrNum > 0 Then sErrorNumber = "202"
                                        Exit Do
                                End If
                        Loop
                end if
        End If

        Set oUploader   = Nothing

        dim sFileUrl
        sFileUrl = CombinePaths( GetResourceTypePath( resourceType, sCommand ) , currentFolder )
        sFileUrl = CombinePaths( sFileUrl, sFileName )

        SendUploadResults sErrorNumber, sFileUrl, sFileName, ""
End Sub

%>