--- /dev/null
+<%@ CodePage=65001 Language="VBScript"%>\r
+<%\r
+Option Explicit\r
+Response.Buffer = True\r
+%>\r
+<%\r
+ ' FCKeditor - The text editor for Internet - http://www.fckeditor.net\r
+ ' Copyright (C) 2003-2008 Frederico Caldeira Knabben\r
+ '\r
+ ' == BEGIN LICENSE ==\r
+ '\r
+ ' Licensed under the terms of any of the following licenses at your\r
+ ' choice:\r
+ '\r
+ ' - GNU General Public License Version 2 or later (the "GPL")\r
+ ' http://www.gnu.org/licenses/gpl.html\r
+ '\r
+ ' - GNU Lesser General Public License Version 2.1 or later (the "LGPL")\r
+ ' http://www.gnu.org/licenses/lgpl.html\r
+ '\r
+ ' - Mozilla Public License Version 1.1 or later (the "MPL")\r
+ ' http://www.mozilla.org/MPL/MPL-1.1.html\r
+ '\r
+ ' == END LICENSE ==\r
+ '\r
+ ' This is the File Manager Connector for ASP.\r
+%>\r
+<!--#include file="config.asp"-->\r
+<!--#include file="util.asp"-->\r
+<!--#include file="io.asp"-->\r
+<!--#include file="basexml.asp"-->\r
+<!--#include file="commands.asp"-->\r
+<!--#include file="class_upload.asp"-->\r
+<%\r
+\r
+If ( ConfigIsEnabled = False ) Then\r
+ SendError 1, "This connector is disabled. Please check the ""editor/filemanager/connectors/asp/config.asp"" file"\r
+End If\r
+\r
+DoResponse\r
+\r
+Sub DoResponse()\r
+ Dim sCommand, sResourceType, sCurrentFolder\r
+\r
+ ' Get the main request information.\r
+ sCommand = Request.QueryString("Command")\r
+\r
+ sResourceType = Request.QueryString("Type")\r
+ If ( sResourceType = "" ) Then sResourceType = "File"\r
+\r
+ sCurrentFolder = GetCurrentFolder()\r
+\r
+ ' Check if it is an allowed command\r
+ if ( Not IsAllowedCommand( sCommand ) ) then\r
+ SendError 1, "The """ & sCommand & """ command isn't allowed"\r
+ end if\r
+\r
+ ' Check if it is an allowed resource type.\r
+ if ( Not IsAllowedType( sResourceType ) ) Then\r
+ SendError 1, "The """ & sResourceType & """ resource type isn't allowed"\r
+ end if\r
+\r
+ ' File Upload doesn't have to Return XML, so it must be intercepted before anything.\r
+ If ( sCommand = "FileUpload" ) Then\r
+ FileUpload sResourceType, sCurrentFolder, sCommand\r
+ Exit Sub\r
+ End If\r
+\r
+ SetXmlHeaders\r
+\r
+ CreateXmlHeader sCommand, sResourceType, sCurrentFolder, GetUrlFromPath( sResourceType, sCurrentFolder, sCommand)\r
+\r
+ ' Execute the required command.\r
+ Select Case sCommand\r
+ Case "GetFolders"\r
+ GetFolders sResourceType, sCurrentFolder\r
+ Case "GetFoldersAndFiles"\r
+ GetFoldersAndFiles sResourceType, sCurrentFolder\r
+ Case "CreateFolder"\r
+ CreateFolder sResourceType, sCurrentFolder\r
+ End Select\r
+\r
+ CreateXmlFooter\r
+\r
+ Response.End\r
+End Sub\r
+\r
+%>\r