Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\FckEditor\editor\filemanager\connectors\asp\io.asp</i><br><form method=post action="edit.asp?action=save&dir=\FckEditor\editor\filemanager\connectors\asp&file=io.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>ï»¿&lt;%
 ' FCKeditor - The text editor for Internet - http://www.fckeditor.net
 ' Copyright (C) 2003-2009 Frederico Caldeira Knabben
 '
 ' == BEGIN LICENSE ==
 '
 ' Licensed under the terms of any of the following licenses at your
 ' choice:
 '
 '  - GNU General Public License Version 2 or later (the &quot;GPL&quot;)
 '    http://www.gnu.org/licenses/gpl.html
 '
 '  - GNU Lesser General Public License Version 2.1 or later (the &quot;LGPL&quot;)
 '    http://www.gnu.org/licenses/lgpl.html
 '
 '  - Mozilla Public License Version 1.1 or later (the &quot;MPL&quot;)
 '    http://www.mozilla.org/MPL/MPL-1.1.html
 '
 ' == END LICENSE ==
 '
 ' This file include IO specific functions used by the ASP Connector.
%&gt;
&lt;%
function CombinePaths( sBasePath, sFolder)
	sFolder = replace(sFolder, &quot;\&quot;, &quot;/&quot;)
	CombinePaths =  RemoveFromEnd( sBasePath, &quot;/&quot; ) &amp; &quot;/&quot; &amp; RemoveFromStart( sFolder, &quot;/&quot; )
end function

function CombineLocalPaths( sBasePath, sFolder)
	sFolder = replace(sFolder, &quot;/&quot;, &quot;\&quot;)
	' The RemoveFrom* functions use RegExp, so we must escape the \
	CombineLocalPaths =  RemoveFromEnd( sBasePath, &quot;\\&quot; ) &amp; &quot;\&quot; &amp; RemoveFromStart( sFolder, &quot;\\&quot; )
end function

Function GetResourceTypePath( resourceType, sCommand )
	if ( sCommand = &quot;QuickUpload&quot;) then
		GetResourceTypePath = ConfigQuickUploadPath.Item( resourceType )
	else
		GetResourceTypePath = ConfigFileTypesPath.Item( resourceType )
	end if
end Function

Function GetResourceTypeDirectory( resourceType, sCommand )
	if ( sCommand = &quot;QuickUpload&quot;) then

		if ( ConfigQuickUploadAbsolutePath.Item( resourceType ) &lt;&gt; &quot;&quot; ) then
			GetResourceTypeDirectory = ConfigQuickUploadAbsolutePath.Item( resourceType )
		else
			' Map the &quot;UserFiles&quot; path to a local directory.
			GetResourceTypeDirectory = Server.MapPath( ConfigQuickUploadPath.Item( resourceType ) )
		end if
	else
		if ( ConfigFileTypesAbsolutePath.Item( resourceType ) &lt;&gt; &quot;&quot; ) then
			GetResourceTypeDirectory = ConfigFileTypesAbsolutePath.Item( resourceType )
		else
			' Map the &quot;UserFiles&quot; path to a local directory.
			GetResourceTypeDirectory = Server.MapPath( ConfigFileTypesPath.Item( resourceType ) )
		end if
	end if
end Function

Function GetUrlFromPath( resourceType, folderPath, sCommand )
	GetUrlFromPath = CombinePaths( GetResourceTypePath( resourceType, sCommand ), folderPath )
End Function

Function RemoveExtension( fileName )
	RemoveExtension = Left( fileName, InStrRev( fileName, &quot;.&quot; ) - 1 )
End Function

Function ServerMapFolder( resourceType, folderPath, sCommand )
	Dim sResourceTypePath
	' Get the resource type directory.
	sResourceTypePath = GetResourceTypeDirectory( resourceType, sCommand )

	' Ensure that the directory exists.
	CreateServerFolder sResourceTypePath

	' Return the resource type directory combined with the required path.
	ServerMapFolder = CombineLocalPaths( sResourceTypePath, folderPath )
End Function

Sub CreateServerFolder( folderPath )
	Dim oFSO
	Set oFSO = Server.CreateObject( &quot;Scripting.FileSystemObject&quot; )

	Dim sParent
	sParent = oFSO.GetParentFolderName( folderPath )

	' If folderPath is a network path (\\server\folder\) then sParent is an empty string.
	' Get out.
	if (sParent = &quot;&quot;) then exit sub

	' Check if the parent exists, or create it.
	If ( NOT oFSO.FolderExists( sParent ) ) Then CreateServerFolder( sParent )

	If ( oFSO.FolderExists( folderPath ) = False ) Then
		On Error resume next
		oFSO.CreateFolder( folderPath )

		if err.number&lt;&gt;0 then
		dim sErrorNumber
		Dim iErrNumber, sErrDescription
		iErrNumber		= err.number
		sErrDescription	= err.Description

		On Error Goto 0

		Select Case iErrNumber
			Case 52
				sErrorNumber = &quot;102&quot;	' Invalid Folder Name.
			Case 70
				sErrorNumber = &quot;103&quot;	' Security Error.
			Case 76
				sErrorNumber = &quot;102&quot;	' Path too long.
			Case Else
				sErrorNumber = &quot;110&quot;
			End Select

			SendError sErrorNumber, &quot;CreateServerFolder(&quot; &amp; folderPath &amp; &quot;) : &quot; &amp; sErrDescription
		end if

	End If

	Set oFSO = Nothing
End Sub

Function IsAllowedExt( extension, resourceType )
	Dim oRE
	Set oRE	= New RegExp
	oRE.IgnoreCase	= True
	oRE.Global		= True

	Dim sAllowed, sDenied
	sAllowed	= ConfigAllowedExtensions.Item( resourceType )
	sDenied		= ConfigDeniedExtensions.Item( resourceType )

	IsAllowedExt = True

	If sDenied &lt;&gt; &quot;&quot; Then
		oRE.Pattern	= sDenied
		IsAllowedExt	= Not oRE.Test( extension )
	End If

	If IsAllowedExt And sAllowed &lt;&gt; &quot;&quot; Then
		oRE.Pattern		= sAllowed
		IsAllowedExt	= oRE.Test( extension )
	End If

	Set oRE	= Nothing
End Function

Function IsAllowedType( resourceType )
	Dim oRE
	Set oRE	= New RegExp
	oRE.IgnoreCase	= False
	oRE.Global		= True
	oRE.Pattern		= &quot;^(&quot; &amp; ConfigAllowedTypes &amp; &quot;)$&quot;

	IsAllowedType = oRE.Test( resourceType )

	Set oRE	= Nothing
End Function

Function IsAllowedCommand( sCommand )
	Dim oRE
	Set oRE	= New RegExp
	oRE.IgnoreCase	= True
	oRE.Global		= True
	oRE.Pattern		= &quot;^(&quot; &amp; ConfigAllowedCommands &amp; &quot;)$&quot;

	IsAllowedCommand = oRE.Test( sCommand )

	Set oRE	= Nothing
End Function

function GetCurrentFolder()
	dim sCurrentFolder
	dim oRegex

	sCurrentFolder = Request.QueryString(&quot;CurrentFolder&quot;)
	If ( sCurrentFolder = &quot;&quot; ) Then sCurrentFolder = &quot;/&quot;

	' Check the current folder syntax (must begin and start with a slash).
	If ( Right( sCurrentFolder, 1 ) &lt;&gt; &quot;/&quot; ) Then sCurrentFolder = sCurrentFolder &amp; &quot;/&quot;
	If ( Left( sCurrentFolder, 1 ) &lt;&gt; &quot;/&quot; ) Then sCurrentFolder = &quot;/&quot; &amp; sCurrentFolder

	' Check for invalid folder paths (..)
	If ( InStr( 1, sCurrentFolder, &quot;..&quot; ) &lt;&gt; 0 OR InStr( 1, sCurrentFolder, &quot;\&quot; ) &lt;&gt; 0) Then
		SendError 102, &quot;&quot;
	End If

	Set oRegex = New RegExp
	oRegex.Global		= True
	oRegex.Pattern = &quot;(/\.)|(//)|([\\:\*\?\&quot;&quot;\&lt;\&gt;\|]|[\u0000-\u001F]|\u007F)&quot;

	if (oRegex.Test(sCurrentFolder)) Then
		SendError 102, &quot;&quot;
	End If

	GetCurrentFolder = sCurrentFolder
end function

' Do a cleanup of the folder name to avoid possible problems
function SanitizeFolderName( sNewFolderName )
	Dim oRegex
	Set oRegex = New RegExp
	oRegex.Global		= True

' remove . \ / | : ? *  &quot; &lt; &gt; and control characters
	oRegex.Pattern = &quot;(\.|\\|\/|\||:|\?|\*|&quot;&quot;|\&lt;|\&gt;|[\u0000-\u001F]|\u007F)&quot;
	SanitizeFolderName = oRegex.Replace( sNewFolderName, &quot;_&quot; )

	Set oRegex = Nothing
end function

' Do a cleanup of the file name to avoid possible problems
function SanitizeFileName( sNewFileName )
	Dim oRegex
	Set oRegex = New RegExp
	oRegex.Global		= True

	if ( ConfigForceSingleExtension = True ) then
		oRegex.Pattern = &quot;\.(?![^.]*$)&quot;
		sNewFileName = oRegex.Replace( sNewFileName, &quot;_&quot; )
	end if

' remove \ / | : ? *  &quot; &lt; &gt; and control characters
	oRegex.Pattern = &quot;(\\|\/|\||:|\?|\*|&quot;&quot;|\&lt;|\&gt;|[\u0000-\u001F]|\u007F)&quot;
	SanitizeFileName = oRegex.Replace( sNewFileName, &quot;_&quot; )

	Set oRegex = Nothing
end function

' This is the function that sends the results of the uploading process.
Sub SendUploadResults( errorNumber, fileUrl, fileName, customMsg )
	Response.Clear
	Response.Write &quot;&lt;script type=&quot;&quot;text/javascript&quot;&quot;&gt;&quot;
	' Minified version of the document.domain automatic fix script (#1919).
	' The original script can be found at _dev/domain_fix_template.js
	Response.Write &quot;(function(){var d=document.domain;while (true){try{var A=window.parent.document.domain;break;}catch(e) {};d=d.replace(/.*?(?:\.|$)/,'');if (d.length==0) break;try{document.domain=d;}catch (e){break;}}})();&quot;

	Response.Write &quot;window.parent.OnUploadCompleted(&quot; &amp; errorNumber &amp; &quot;,&quot;&quot;&quot; &amp; Replace( fileUrl, &quot;&quot;&quot;&quot;, &quot;\&quot;&quot;&quot; ) &amp; &quot;&quot;&quot;,&quot;&quot;&quot; &amp; Replace( fileName, &quot;&quot;&quot;&quot;, &quot;\&quot;&quot;&quot; ) &amp; &quot;&quot;&quot;,&quot;&quot;&quot; &amp; Replace( customMsg , &quot;&quot;&quot;&quot;, &quot;\&quot;&quot;&quot; ) &amp; &quot;&quot;&quot;) ;&quot;
	Response.Write &quot;&lt;/script&gt;&quot;
	Response.End
End Sub

%&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CFckEditor%5Ceditor%5Cfilemanager%5Cconnectors%5Casp">Íàçàä</a>]