<%@ CodePage=65001 Language="VBScript"%> <% Option Explicit %> <% ' This is the function that sends the results of the uploading process. Function SendResults( errorNumber, fileUrl, fileName, customMsg ) Response.Write "" Response.End End Function %> <% ' Check if this uploader has been enabled. If ( ConfigIsEnabled = False ) Then SendResults "1", "", "", "This file uploader is disabled. Please check the ""editor/filemanager/upload/asp/config.asp"" file" End If ' The the file type (from the QueryString, by default 'File'). 'Dim resourceType 'If ( Request.QueryString("Type") <> "" ) Then ' resourceType = Request.QueryString("Type") 'Else ' resourceType = "File" 'End If dim allowedFileType if Request.QueryString("Type") = "" then allowedFileType = "File" else allowedFileType = Request.QueryString("Type") end if dim maxFileSize if request.QueryString("MaxUploadFileSize")<>"" then maxFileSize = request.QueryString("MaxUploadFileSize") else maxFileSize = "0" end if dim sRemoveSpecialChar sRemoveSpecialChar = request.QueryString("RemoveSpecialChar") dim sRemoveSpecialCharWith sRemoveSpecialCharWith = request.QueryString("RemoveSpecialCharWith") dim sResize sResize = request.QueryString("Resize") dim sResizeComponent sResizeComponent = request.QueryString("ResizeComponent") dim sResizeWidth sResizeWidth = request.QueryString("ResizeWidth") dim sResizeHeight sResizeHeight = request.QueryString("ResizeHeight") dim sResizeJpegQuality sResizeJpegQuality = request.QueryString("ResizeJpegQuality") dim sResizeAspectRatio sResizeAspectRatio = request.QueryString("ResizeAspectRatio") ' Create the Uploader object. Dim oUploader Set oUploader = New NetRube_Upload oUploader.MaxSize = maxFileSize oUploader.Allowed = ConfigAllowedExtensions.Item( allowedFileType ) oUploader.Denied = ConfigDeniedExtensions.Item( allowedFileType ) oUploader.removeSpecialChar = sRemoveSpecialChar oUploader.removeSpecialCharWith = sRemoveSpecialCharWith oUploader.GetData 'http://localhost/FckEditor/filemanager/upload/upload.asp?Type=Image&allowedFile=&deniedFile=php|asp|aspx|ascx|jsp|cfm|cfc|pl|bat|exe|com|dll|vbs|js|reg&allowedImage=jpg|gif&deniedImage=&ServerPath=/Public/&Resize=0&ResizeComponent=0&ResizeWidth=0&ResizeHeight=0&ResizeJpegQuality=80&ResizeAspectRatio=0&MaxUploadFileSize=0&SetupResize=0&removeSpecialChar=-1&removeSpecialCharWith=_ If oUploader.ErrNum > 1 Then 'SendResults "202", "", "", "" if oUploader.ErrNum = 3 then sErrorNumber = "2023" elseif oUploader.ErrNum = 4 then sErrorNumber = "2024" else sErrorNumber = "202" end if 'response.write oUploader.ErrNum 'response.End() SendResults sErrorNumber, "", "", "" Else Dim sFileName, sFileUrl, sErrorNumber, sOriginalFileName, sExtension sFileName = "" sFileUrl = "" sErrorNumber = "0" dim sCurrentFolder 'sCurrentFolder = Request.QueryString("CurrentFolder") 'sCurrentFolder = Request.QueryString("ServerPath") sCurrentFolder = session("dwzEditorUploadFolder") & "" if sCurrentFolder = "" then sCurrentFolder = Request.Cookies("FckEditor")("dwzEditorUploadFolder") end if if sCurrentFolder = "" then sCurrentFolder = Request.QueryString("ServerPath") end if if sCurrentFolder = "" or trim(sCurrentFolder)="/" then response.Clear() dim msg msg = "DwZone_JsErrorWarning!!\n" msg = msg & "For security the editor save the upload folder in a session\n" msg = msg & "The session name is dwzEditorUploadFolder\n" msg = msg & "Verify the value of this session\n" msg = msg & "The value of the current session is: " & sCurrentFolder & "\n" response.write("-----------") response.write("