Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\FckEditor\editor\filemanager\browser\default\connectors\asp\connector.asp</i><br><form method=post action="edit.asp?action=save&dir=\FckEditor\editor\filemanager\browser\default\connectors\asp&file=connector.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>ï»¿&lt;%@ CodePage=65001 Language=&quot;VBScript&quot;%&gt;
&lt;%
Option Explicit
Response.Buffer = True
%&gt;

&lt;!--#include file=&quot;config.asp&quot;--&gt;
&lt;!--#include file=&quot;util.asp&quot;--&gt;
&lt;!--#include file=&quot;io.asp&quot;--&gt;
&lt;!--#include file=&quot;basexml.asp&quot;--&gt;
&lt;!--#include file=&quot;commands.asp&quot;--&gt;
&lt;!--#include file=&quot;class_upload.asp&quot;--&gt;
&lt;%

If ( ConfigIsEnabled = False ) Then
	SendError 1, &quot;Questo connettore Ã¨ disabilitato. Si prega di controllare il &quot;&quot;editor/filemanager/browser/default/connectors/asp/config.asp&quot;&quot; file&quot;
End If

' Get the &quot;UserFiles&quot; path.
Dim sUserFilesPath

If ( Not IsEmpty( ConfigUserFilesPath ) ) Then
	sUserFilesPath = ConfigUserFilesPath

	If ( Right( sUserFilesPath, 1 ) &lt;&gt; &quot;/&quot; ) Then
		sUserFilesPath = sUserFilesPath &amp; &quot;/&quot;
	End If
Else
	sUserFilesPath = &quot;/public/&quot;
End If

' Mappa del percorso &quot;UserFiles&quot; in una directory locale.
Dim sUserFilesDirectory
sUserFilesDirectory = Server.MapPath( sUserFilesPath )

If ( Right( sUserFilesDirectory, 1 ) &lt;&gt; &quot;\&quot; ) Then
	sUserFilesDirectory = sUserFilesDirectory &amp; &quot;\&quot;
End If

DoResponse

Sub DoResponse()
	Dim sCommand, sResourceType, sCurrentFolder
	
	' Prendi le principali informazioni richiesta.
	sCommand = Request.QueryString(&quot;Command&quot;)
	If ( sCommand = &quot;&quot; ) Then Exit Sub

	sResourceType = Request.QueryString(&quot;Type&quot;)
	If ( sResourceType = &quot;&quot; ) Then Exit Sub
	
	sCurrentFolder = Request.QueryString(&quot;CurrentFolder&quot;)
	If ( sCurrentFolder = &quot;&quot; ) Then Exit Sub

	' Controllare se si tratta di un tipo di risorsa allower.
	if ( Not IsAllowedType( sResourceType ) ) Then Exit Sub

	' Controllare la sintassi della cartella corrente (deve iniziare e finire con uno 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

	' Verificare la presenza di percorsi di cartella non validi(..)
	If ( InStr( 1, sCurrentFolder, &quot;..&quot; ) &lt;&gt; 0 OR InStr( 1, sResourceType, &quot;..&quot; ) &lt;&gt; 0 ) Then
		SendError 102, &quot;&quot;
	End If 

	' File Upload non dover tornare XML, quindi deve essere intercettata prima di tutto.
	If ( sCommand = &quot;FileUpload&quot; ) Then
		FileUpload sResourceType, sCurrentFolder
		Exit Sub
	End If

	SetXmlHeaders
	
	CreateXmlHeader sCommand, sResourceType, sCurrentFolder

	' Execute the required command.
	Select Case sCommand
		Case &quot;GetFolders&quot;
			GetFolders sResourceType, sCurrentFolder
		Case &quot;GetFoldersAndFiles&quot;
			GetFoldersAndFiles sResourceType, sCurrentFolder
		Case &quot;CreateFolder&quot;
			CreateFolder sResourceType, sCurrentFolder
	End Select

	CreateXmlFooter

	Response.End
End Sub

Function IsAllowedType( resourceType )
	Dim oRE
	Set oRE	= New RegExp
	oRE.IgnoreCase	= True
	oRE.Global		= True
	oRE.Pattern		= &quot;^(File|Image|Flash|Media)$&quot;
	
	IsAllowedType = oRE.Test( resourceType )
	
	Set oRE	= Nothing
End Function
%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CFckEditor%5Ceditor%5Cfilemanager%5Cbrowser%5Cdefault%5Cconnectors%5Casp">Íàçàä</a>]