Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\FckEditor\filemanager\Upload\upload.asp</i><br><form method=post action="edit.asp?action=save&dir=\FckEditor\filemanager\Upload&file=upload.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>ï»¿&lt;%@ CodePage=65001 Language=&quot;VBScript&quot;%&gt;
&lt;%
Option Explicit
%&gt;
&lt;!--
 * FCKeditor - The text editor for internet
 * Copyright (C) 2003-2005 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: upload.asp
 * 	This is the &quot;File Uploader&quot; for ASP.
 * 
 * File Authors:
 * 		Frederico Caldeira Knabben (fredck@fckeditor.net)
--&gt;
&lt;!--#include file=&quot;../browser/default/connectors/asp/config.asp&quot;--&gt;
&lt;!--#include file=&quot;../browser/default/connectors/asp/io.asp&quot;--&gt;
&lt;!--#include file=&quot;../browser/default/connectors/asp/class_upload.asp&quot;--&gt;
&lt;!--#include file=&quot;../browser/default/connectors/asp/resize.asp&quot;--&gt;
&lt;%

' This is the function that sends the results of the uploading process.
Function SendResults( errorNumber, fileUrl, fileName, customMsg )
	Response.Write &quot;&lt;script type=&quot;&quot;text/javascript&quot;&quot;&gt;&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 Function

%&gt;
&lt;%

' Check if this uploader has been enabled.
If ( ConfigIsEnabled = False ) Then
	SendResults &quot;1&quot;, &quot;&quot;, &quot;&quot;, &quot;This file uploader is disabled. Please check the &quot;&quot;editor/filemanager/upload/asp/config.asp&quot;&quot; file&quot;
End If

' The the file type (from the QueryString, by default 'File').
'Dim resourceType
'If ( Request.QueryString(&quot;Type&quot;) &lt;&gt; &quot;&quot; ) Then
'	resourceType = Request.QueryString(&quot;Type&quot;)
'Else
'	resourceType = &quot;File&quot;
'End If

dim allowedFileType
if Request.QueryString(&quot;Type&quot;) = &quot;&quot; then
	allowedFileType = &quot;File&quot;
else
	allowedFileType = Request.QueryString(&quot;Type&quot;) 
end if
dim maxFileSize
if request.QueryString(&quot;MaxUploadFileSize&quot;)&lt;&gt;&quot;&quot; then
	maxFileSize = request.QueryString(&quot;MaxUploadFileSize&quot;)
else
	maxFileSize = &quot;0&quot;
end if
dim sRemoveSpecialChar
sRemoveSpecialChar = request.QueryString(&quot;RemoveSpecialChar&quot;)
dim sRemoveSpecialCharWith
sRemoveSpecialCharWith = request.QueryString(&quot;RemoveSpecialCharWith&quot;)
dim sResize
sResize = request.QueryString(&quot;Resize&quot;)
dim sResizeComponent
sResizeComponent = request.QueryString(&quot;ResizeComponent&quot;)
dim sResizeWidth
sResizeWidth = request.QueryString(&quot;ResizeWidth&quot;)
dim sResizeHeight
sResizeHeight = request.QueryString(&quot;ResizeHeight&quot;)
dim sResizeJpegQuality
sResizeJpegQuality = request.QueryString(&quot;ResizeJpegQuality&quot;)
dim sResizeAspectRatio
sResizeAspectRatio = request.QueryString(&quot;ResizeAspectRatio&quot;)

' Create the Uploader object.
Dim oUploader
Set oUploader = New NetRube_Upload
oUploader.MaxSize	= maxFileSize
oUploader.Allowed	= ConfigAllowedExtensions.Item( allowedFileType )
oUploader.Denied	= ConfigDeniedExtensions.Item( allowedFileType )
oUploader.removeSpecialChar = sRemoveSpecialChar
oUploader.removeSpecialCharWith = sRemoveSpecialCharWith
oUploader.GetData


'http://localhost/FckEditor/filemanager/upload/upload.asp?Type=Image&amp;allowedFile=&amp;deniedFile=php|asp|aspx|ascx|jsp|cfm|cfc|pl|bat|exe|com|dll|vbs|js|reg&amp;allowedImage=jpg|gif&amp;deniedImage=&amp;ServerPath=/Public/&amp;Resize=0&amp;ResizeComponent=0&amp;ResizeWidth=0&amp;ResizeHeight=0&amp;ResizeJpegQuality=80&amp;ResizeAspectRatio=0&amp;MaxUploadFileSize=0&amp;SetupResize=0&amp;removeSpecialChar=-1&amp;removeSpecialCharWith=_

If oUploader.ErrNum &gt; 1 Then
	'SendResults &quot;202&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;
	if oUploader.ErrNum = 3 then
		sErrorNumber = &quot;2023&quot;
	elseif oUploader.ErrNum = 4 then
		sErrorNumber = &quot;2024&quot;
	else
		sErrorNumber = &quot;202&quot;
	end if
	'response.write oUploader.ErrNum
	'response.End()
	
	SendResults sErrorNumber, &quot;&quot;, &quot;&quot;, &quot;&quot;
Else
	Dim sFileName, sFileUrl, sErrorNumber, sOriginalFileName, sExtension
	sFileName		= &quot;&quot;
	sFileUrl		= &quot;&quot;
	sErrorNumber	= &quot;0&quot;
	
	dim sCurrentFolder
	'sCurrentFolder = Request.QueryString(&quot;CurrentFolder&quot;)
	'sCurrentFolder = Request.QueryString(&quot;ServerPath&quot;)
	
	sCurrentFolder = session(&quot;dwzEditorUploadFolder&quot;) &amp; &quot;&quot;
	if sCurrentFolder = &quot;&quot; then
		sCurrentFolder = Request.Cookies(&quot;FckEditor&quot;)(&quot;dwzEditorUploadFolder&quot;)
	end if
	if sCurrentFolder = &quot;&quot; then
		sCurrentFolder = Request.QueryString(&quot;ServerPath&quot;)
	end if
	if sCurrentFolder = &quot;&quot; or trim(sCurrentFolder)=&quot;/&quot; then
		response.Clear()
		dim msg
		msg = &quot;DwZone_JsErrorWarning!!\n&quot;
		msg = msg &amp; &quot;For security the editor save the upload folder in a session\n&quot;
		msg = msg &amp; &quot;The session name is dwzEditorUploadFolder\n&quot;
		msg = msg &amp; &quot;Verify the value of this session\n&quot;
		msg = msg &amp; &quot;The value of the current session is: &quot; &amp; sCurrentFolder &amp; &quot;\n&quot;
		response.write(&quot;-----------&quot;)
		response.write(&quot;&lt;script language=javascript&gt;&quot;)
		response.write(&quot;alert('&quot; &amp; msg &amp; &quot;')&quot;)
		response.write(&quot;&lt;/scr&quot; &amp; &quot;ipt&gt;&quot;)
		response.End()
	end if
	
	If ( sCurrentFolder = &quot;&quot; ) Then
		sErrorNumber = &quot;452&quot;
		SendResults sErrorNumber, &quot;&quot;, &quot;&quot;, &quot;The upload folder is missing&quot;
	end if
	
	' 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
	
	' Map the virtual path to the local server path.
	Dim sServerDir
	sServerDir = Server.MapPath( sCurrentFolder )
	If ( Right( sServerDir, 1 ) &lt;&gt; &quot;\&quot; ) Then
		sServerDir = sServerDir &amp; &quot;\&quot;
	End If
	
	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 SendResults &quot;202&quot;, &quot;&quot;, &quot;&quot;, &quot;&quot;
			Exit Do
		End If
	Loop
		
	
	if dwzIsImage(sFileName) then
		'resize
		dim nResize, nResizeComponent, nResizeWidth, nResizeHeight, nResizeJpegQuality, nResizeAspectRatio
		if sResize = &quot;-1&quot; then
			sFilePath = sServerDir &amp; sFileName
			select case getComponent(sResizeComponent)
				case 1
					resizeAspImage sFilePath, sResizeWidth, sResizeHeight, sResizeJpegQuality, sResizeAspectRatio
				case 2
					resizeAspJpeg sFilePath, sResizeWidth, sResizeHeight, sResizeJpegQuality, sResizeAspectRatio
				case 3
					resizeAspSmartImage sFilePath, sResizeWidth, sResizeHeight, sResizeJpegQuality, sResizeAspectRatio
				case 4
					resizeAspThumb sFilePath, sResizeWidth, sResizeHeight, sResizeJpegQuality, sResizeAspectRatio
				case 5
					resizeImgWriter sFilePath, sResizeWidth, sResizeHeight, sResizeJpegQuality, sResizeAspectRatio
				case 6
					resizeVije sFilePath, sResizeWidth, sResizeHeight, sResizeJpegQuality, sResizeAspectRatio
				case 7
					resizeGraphProc sFilePath, sResizeWidth, sResizeHeight, sResizeJpegQuality, sResizeAspectRatio
				case 8
					resizeGraphMill sFilePath, sResizeWidth, sResizeHeight, sResizeJpegQuality, sResizeAspectRatio
				case 9
					resizeChestySoftCOM sFilePath, sResizeWidth, sResizeHeight, sResizeJpegQuality, sResizeAspectRatio
				case 10
					resizeChestySoftOCX sFilePath, sResizeWidth, sResizeHeight, sResizeJpegQuality, sResizeAspectRatio
				case 11
					resizeXnView sFilePath, sResizeWidth, sResizeHeight, sResizeJpegQuality, sResizeAspectRatio
				case 12
					resizeXnView193 sFilePath, sResizeWidth, sResizeHeight, sResizeJpegQuality, sResizeAspectRatio
				case 13
					resizeAspNet sFilePath, sResizeWidth, sResizeHeight, sResizeJpegQuality, sResizeAspectRatio
				end select
		end if
	end if
		
	'Response.Write( sResize &amp; &quot;&lt;br&gt;&quot; &amp; sFilePath &amp; &quot;&lt;br&gt;&quot; &amp; sResizeWidth &amp; &quot;&lt;br&gt;&quot; &amp;  sResizeHeight &amp; &quot;&lt;br&gt;&quot; &amp; sResizeJpegQuality  &amp; &quot;&lt;br&gt;&quot; &amp; sResizeAspectRatio  &amp; &quot;&lt;br&gt;&quot;  )
	'response.End()
	
	sFileUrl = sCurrentFolder &amp; sFileName
	
	'response.write &quot;-&quot; &amp; sErrorNumber
	'response.End()
	
	SendResults sErrorNumber, sFileUrl, sFileName, &quot;&quot;
	
End If

Set oUploader = Nothing

private Function fnRemoveSpecialChar( str, replaceWith )
	dim retStr, J
	retStr = &quot;&quot;
	for J=1 to len(str)
		if instr(1,&quot;qwertyuiopasdfghjklzxcvbnm1234567890._&quot;,mid(str,J,1),vbtextcompare)&gt;0 then
			retStr = retStr &amp; mid(str,J,1)
		else
			retStr = retStr &amp; replaceWith
		end if
	next
	retStr = trim(retStr)
	if retStr = &quot;&quot; then
		retStr = &quot;___&quot;
	end if
	fnRemoveSpecialChar = retStr
end Function
%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CFckEditor%5Cfilemanager%5CUpload">Íàçàä</a>]