ASP 14
Upload.asp Guest on 5th October 2020 09:14:10 PM
  1. <%@ CodePage=65001 Language="VBScript"%>
  2. <%
  3. Option Explicit
  4. Response.Buffer = True
  5. %>
  6. <%
  7.  ' FCKeditor - The text editor for Internet - http://www.fckeditor.net
  8.  ' Copyright (C) 2003-2008 Frederico Caldeira Knabben
  9.  '
  10.  ' == BEGIN LICENSE ==
  11.  '
  12.  ' Licensed under the terms of any of the following licenses at your
  13.  ' choice:
  14.  '
  15.  '  - GNU General Public License Version 2 or later (the "GPL")
  16.  '    http://www.gnu.org/licenses/gpl.html
  17.  '
  18.  '  - GNU Lesser General Public License Version 2.1 or later (the "LGPL")
  19.  '    http://www.gnu.org/licenses/lgpl.html
  20.  '
  21.  '  - Mozilla Public License Version 1.1 or later (the "MPL")
  22.  '    http://www.mozilla.org/MPL/MPL-1.1.html
  23.  '
  24.  ' == END LICENSE ==
  25.  '
  26.  ' This is the "File Uploader" for ASP.
  27. %>
  28. <!--#include file="config.asp"-->
  29. <!--#include file="util.asp"-->
  30. <!--#include file="io.asp"-->
  31. <!--#include file="commands.asp"-->
  32. <!--#include file="class_upload.asp"-->
  33. <%
  34.  
  35. Sub SendError( number, text )
  36.         SendUploadResults number, "", "", text
  37. End Sub
  38.  
  39. ' Check if this uploader has been enabled.
  40. If ( ConfigIsEnabled = False ) Then
  41.         SendUploadResults "1", "", "", "This file uploader is disabled. Please check the ""editor/filemanager/connectors/asp/config.asp"" file"
  42. End If
  43.  
  44.         Dim sCommand, sResourceType, sCurrentFolder
  45.  
  46.         sCommand = "QuickUpload"
  47.  
  48.         sResourceType = Request.QueryString("Type")
  49.         If ( sResourceType = "" ) Then sResourceType = "File"
  50.  
  51.         sCurrentFolder = GetCurrentFolder()
  52.  
  53.         ' Is Upload enabled?
  54.         if ( Not IsAllowedCommand( sCommand ) ) then
  55.                 SendUploadResults "1", "", "", "The """ & sCommand & """ command isn't allowed"
  56.         end if
  57.  
  58.         ' Check if it is an allowed resource type.
  59.         if ( Not IsAllowedType( sResourceType ) ) Then
  60.                 SendUploadResults "1", "", "", "The " & sResourceType & " resource type isn't allowed"
  61.         end if
  62.  
  63.         FileUpload sResourceType, sCurrentFolder, sCommand
  64.  
  65. %>

Paste is for source code and general debugging text.

Login or Register to edit, delete and keep track of your pastes and more.

Raw Paste

Login or Register to edit or fork this paste. It's free.