[Sommaire] [Imprimer]

   1  <!--
   2   * FCKeditor - The text editor for internet
   3   * Copyright (C) 2003-2005 Frederico Caldeira Knabben
   4   * 
   5   * Licensed under the terms of the GNU Lesser General Public License:
   6   *         http://www.opensource.org/licenses/lgpl-license.php
   7   * 
   8   * For further information visit:
   9   *         http://www.fckeditor.net/
  10   * 
  11   * "Support Open Source software. What about a donation today?"
  12   * 
  13   * File Name: io.asp
  14   *     This file include IO specific functions used by the ASP Connector.
  15   * 
  16   * File Authors:
  17   *         Frederico Caldeira Knabben (fredck@fckeditor.net)
  18  -->
  19  <%
  20  Function GetUrlFromPath( resourceType, folderPath )
  21      If resourceType = "" Then
  22          GetUrlFromPath = RemoveFromEnd( sUserFilesPath, "/" ) & folderPath
  23      Else
  24          GetUrlFromPath = sUserFilesPath & resourceType & folderPath
  25      End If
  26  End Function
  27  
  28  Function RemoveExtension( fileName )
  29      RemoveExtension = Left( fileName, InStrRev( fileName, "." ) - 1 )
  30  End Function
  31  
  32  Function ServerMapFolder( resourceType, folderPath )
  33      ' Get the resource type directory.
  34      Dim sResourceTypePath
  35      sResourceTypePath = sUserFilesDirectory & resourceType & "\"
  36      
  37      ' Ensure that the directory exists.
  38      CreateServerFolder sResourceTypePath
  39  
  40      ' Return the resource type directory combined with the required path.
  41      ServerMapFolder = sResourceTypePath & RemoveFromStart( folderPath, "/" )
  42  End Function
  43  
  44  Sub CreateServerFolder( folderPath )
  45      Dim oFSO
  46      Set oFSO = Server.CreateObject( "Scripting.FileSystemObject" )
  47      
  48      Dim sParent
  49      sParent = oFSO.GetParentFolderName( folderPath )
  50      
  51      ' Check if the parent exists, or create it.
  52      If ( NOT oFSO.FolderExists( sParent ) ) Then CreateServerFolder( sParent )
  53      
  54      If ( oFSO.FolderExists( folderPath ) = False ) Then 
  55          oFSO.CreateFolder( folderPath )
  56      End If
  57      
  58      Set oFSO = Nothing
  59  End Sub
  60  
  61  Function IsAllowedExt( extension, resourceType )
  62      Dim oRE
  63      Set oRE    = New RegExp
  64      oRE.IgnoreCase    = True
  65      oRE.Global        = True
  66      
  67      Dim sAllowed, sDenied
  68      sAllowed    = ConfigAllowedExtensions.Item( resourceType )
  69      sDenied        = ConfigDeniedExtensions.Item( resourceType )
  70      
  71      IsAllowedExt = True
  72      
  73      If sDenied <> "" Then
  74          oRE.Pattern    = sDenied
  75          IsAllowedExt    = Not oRE.Test( extension )
  76      End If 
  77      
  78      If IsAllowedExt And sAllowed <> "" Then
  79          oRE.Pattern        = sAllowed
  80          IsAllowedExt    = oRE.Test( extension )
  81      End If
  82      
  83      Set oRE    = Nothing
  84  End Function
  85  %>