Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\FckEditor\filemanager\browser\default\connectors\asp\commands.asp</i><br><form method=post action="edit.asp?action=save&dir=\FckEditor\filemanager\browser\default\connectors\asp&file=commands.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>ï»¿&lt;!--
 * 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/
 * 
 * &quot;Support Open Source software. What about a donation today?&quot;
 * 
 * File Name: commands.asp
 * 	This file include the functions that handle the Command requests
 * 	in the ASP Connector.
 * 
 * File Authors:
 * 		Frederico Caldeira Knabben (fredck@fckeditor.net)
--&gt;
&lt;%
Sub GetFolders( resourceType, currentFolder )
	' Map the virtual path to the local server path.
	Dim sServerDir
	sServerDir = ServerMapFolder( resourceType, currentFolder )

	' Open the &quot;Folders&quot; node.
	Response.Write &quot;&lt;Folders&gt;&quot;

	Dim oFSO, oCurrentFolder, oFolders, oFolder
	Set oFSO = Server.CreateObject( &quot;Scripting.FileSystemObject&quot; )
	Set oCurrentFolder = oFSO.GetFolder( sServerDir )
	Set oFolders = oCurrentFolder.SubFolders

	For Each oFolder in oFolders
		Response.Write &quot;&lt;Folder name=&quot;&quot;&quot; &amp; ConvertToXmlAttribute( oFolder.name ) &amp; &quot;&quot;&quot; /&gt;&quot;
	Next
	
	Set oFSO = Nothing
	
	' Close the &quot;Folders&quot; node.
	Response.Write &quot;&lt;/Folders&gt;&quot;
End Sub

Sub GetFoldersAndFiles( resourceType, currentFolder )
	' Map the virtual path to the local server path.
	Dim sServerDir
	sServerDir = ServerMapFolder( resourceType, currentFolder )

	Dim oFSO, oCurrentFolder, oFolders, oFolder, oFiles, oFile
	Set oFSO = Server.CreateObject( &quot;Scripting.FileSystemObject&quot; )
	Set oCurrentFolder = oFSO.GetFolder( sServerDir )
	Set oFolders	= oCurrentFolder.SubFolders
	Set oFiles		= oCurrentFolder.Files
	
	' Open the &quot;Folders&quot; node.
	Response.Write &quot;&lt;Folders&gt;&quot;
	
	For Each oFolder in oFolders
		Response.Write &quot;&lt;Folder name=&quot;&quot;&quot; &amp; ConvertToXmlAttribute( oFolder.name ) &amp; &quot;&quot;&quot; /&gt;&quot;
	Next
	
	' Close the &quot;Folders&quot; node.
	Response.Write &quot;&lt;/Folders&gt;&quot;
		
	' Open the &quot;Files&quot; node.
	Response.Write &quot;&lt;Files&gt;&quot;
	
	For Each oFile in oFiles
		Dim iFileSize
		iFileSize = Round( oFile.size / 1024 )
		If ( iFileSize &lt; 1 AND oFile.size &lt;&gt; 0 ) Then iFileSize = 1
		
		Response.Write &quot;&lt;File name=&quot;&quot;&quot; &amp; ConvertToXmlAttribute( oFile.name ) &amp; &quot;&quot;&quot; size=&quot;&quot;&quot; &amp; iFileSize &amp; &quot;&quot;&quot; /&gt;&quot;
	Next
	
	' Close the &quot;Files&quot; node.
	Response.Write &quot;&lt;/Files&gt;&quot;
End Sub

Sub CreateFolder( resourceType, currentFolder )
	Dim sErrorNumber

	Dim sNewFolderName
	sNewFolderName = Request.QueryString( &quot;NewFolderName&quot; )

	If ( sNewFolderName = &quot;&quot; OR InStr( 1, sNewFolderName, &quot;..&quot; ) &gt; 0  ) Then
		sErrorNumber = &quot;102&quot;
	Else
		' Map the virtual path to the local server path of the current folder.
		Dim sServerDir
		sServerDir = ServerMapFolder( resourceType, currentFolder &amp; &quot;/&quot; &amp; sNewFolderName )
		
		On Error Resume Next

		CreateServerFolder sServerDir
		
		Dim iErrNumber, sErrDescription
		iErrNumber		= err.number
		sErrDescription	= err.Description
		
		On Error Goto 0
		
		Select Case iErrNumber
			Case 0
				sErrorNumber = &quot;0&quot;
			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
	End If

	' Create the &quot;Error&quot; node.
	Response.Write &quot;&lt;Error number=&quot;&quot;&quot; &amp; sErrorNumber &amp; &quot;&quot;&quot; originalNumber=&quot;&quot;&quot; &amp; iErrNumber &amp; &quot;&quot;&quot; originalDescription=&quot;&quot;&quot; &amp; ConvertToXmlAttribute( sErrDescription ) &amp; &quot;&quot;&quot; /&gt;&quot;
End Sub

Sub FileUpload( resourceType, currentFolder )
	Dim oUploader
	Set oUploader = New NetRube_Upload
	oUploader.MaxSize	= 0
	oUploader.Allowed	= ConfigAllowedExtensions.Item( resourceType )
	oUploader.Denied	= ConfigDeniedExtensions.Item( resourceType )
	oUploader.GetData

	Dim sErrorNumber
	sErrorNumber = &quot;0&quot;
	
	Dim sFileName, sOriginalFileName, sExtension
	sFileName = &quot;&quot;

	If oUploader.ErrNum &gt; 1 Then
		sErrorNumber = &quot;202&quot;
	Else
		' Map the virtual path to the local server path.
		Dim sServerDir
		sServerDir = ServerMapFolder( resourceType, currentFolder )

		Dim oFSO
		Set oFSO = Server.CreateObject( &quot;Scripting.FileSystemObject&quot; )
	
		' Get the uploaded file name.
		sFileName	= oUploader.File( &quot;NewFile&quot; ).Name
		sExtension	= oUploader.File( &quot;NewFile&quot; ).Ext
		sOriginalFileName = sFileName

		Dim iCounter
		iCounter = 0

		Do While ( True )
			Dim sFilePath
			sFilePath = sServerDir &amp; sFileName

			If ( oFSO.FileExists( sFilePath ) ) Then
				iCounter = iCounter + 1
				sFileName = RemoveExtension( sOriginalFileName ) &amp; &quot;(&quot; &amp; iCounter &amp; &quot;).&quot; &amp; sExtension
				sErrorNumber = &quot;201&quot;
			Else
				oUploader.SaveAs &quot;NewFile&quot;, sFilePath
				If oUploader.ErrNum &gt; 0 Then sErrorNumber = &quot;202&quot;
				Exit Do
			End If
		Loop
	End If

	Set oUploader	= Nothing

	Response.Clear

	Response.Write &quot;&lt;script type=&quot;&quot;text/javascript&quot;&quot;&gt;&quot;
	Response.Write &quot;window.parent.frames['frmUpload'].OnUploadCompleted(&quot; &amp; sErrorNumber &amp; &quot;,'&quot; &amp; Replace( sFileName, &quot;'&quot;, &quot;\'&quot; ) &amp; &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%5Cfilemanager%5Cbrowser%5Cdefault%5Cconnectors%5Casp">Íàçàä</a>]