Subversion Repositories Applications.papyrus

<%@ CodePage=65001 Language="VBScript"%>
<%
Option Explicit
Response.Buffer = True
%>
<!--
 * FCKeditor - The text editor for internet
 * Copyright (C) 2003-2006 Frederico Caldeira Knabben
 * 
 * Licensed under the terms of the GNU Lesser General Public License:
 *              http://www.opensource.org/licenses/lgpl-license.php
 * 
 * For further information visit:
 *              http://www.fckeditor.net/
 * 
 * "Support Open Source software. What about a donation today?"
 * 
 * File Name: upload.asp
 *      This is the "File Uploader" for ASP.
 * 
 * File Authors:
 *              Frederico Caldeira Knabben (fredck@fckeditor.net)
-->
<!--#include file="config.asp"-->
<!--#include file="io.asp"-->
<!--#include file="class_upload.asp"-->
<%

' This is the function that sends the results of the uploading process.
Function SendResults( errorNumber, fileUrl, fileName, customMsg )
        Response.Write "<script type=""text/javascript"">"
        Response.Write "window.parent.OnUploadCompleted(" & errorNumber & ",""" & Replace( fileUrl, """", "\""" ) & """,""" & Replace( fileName, """", "\""" ) & """,""" & Replace( customMsg , """", "\""" ) & """) ;"
        Response.Write "</script>"
        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

' Create the Uploader object.
Dim oUploader
Set oUploader = New NetRube_Upload
oUploader.MaxSize       = 0
oUploader.Allowed       = ConfigAllowedExtensions.Item( resourceType )
oUploader.Denied        = ConfigDeniedExtensions.Item( resourceType )
oUploader.GetData

If oUploader.ErrNum > 1 Then
        SendResults "202", "", "", ""
Else
        Dim sFileName, sFileUrl, sErrorNumber, sOriginalFileName, sExtension
        sFileName               = ""
        sFileUrl                = ""
        sErrorNumber    = "0"

        ' Map the virtual path to the local server path.
        Dim sServerDir
        sServerDir = Server.MapPath( ConfigUserFilesPath )
        If ( Right( sServerDir, 1 ) <> "\" ) Then
                sServerDir = sServerDir & "\"
        End If
        
        If ( ConfigUseFileType = True ) Then
                sServerDir = sServerDir & resourceType & "\"
        End If 

        Dim oFSO
        Set oFSO = Server.CreateObject( "Scripting.FileSystemObject" )

        ' Get the uploaded file name.
        sFileName       = oUploader.File( "NewFile" ).Name
        sExtension      = oUploader.File( "NewFile" ).Ext
        sOriginalFileName = sFileName

        Dim iCounter
        iCounter = 0

        Do While ( True )
                Dim sFilePath
                sFilePath = 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 SendResults "202", "", "", ""
                        Exit Do
                End If
        Loop

        If ( ConfigUseFileType = True ) Then
                sFileUrl = ConfigUserFilesPath & resourceType & "/" & sFileName
        Else
                sFileUrl = ConfigUserFilesPath & sFileName
        End If

        SendResults sErrorNumber, sFileUrl, sFileName, ""
        
End If

Set oUploader = Nothing
%>