Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Galleria\browse_code.asp</i><br><form method=post action="edit.asp?action=save&dir=\Galleria&file=browse_code.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>
&lt;head&gt;
&lt;style&gt;
&lt;!--

      .result {padding : 2px 4px 0 4px;}

      .BAB_CPBodyStyleLocal
      {
        padding : 0;
        margin-left: 2pt;
        margin-right: 2pt;
      }

      .full-text-translation { padding : 4px;	margin: 0 -2pt; }

--&gt;
&lt;/style&gt;
&lt;/head&gt;

&lt;%
Response.Buffer = False
%&gt;

&lt;%
DIM StartTime
StartTime = Timer
%&gt;

&lt;script language=&quot;Javascript&quot;&gt; 
//adapted from http://www.sitepoint.com/article/resize-popup-fit-images-size
   function ImagePopup(sPicUrl) { 
     window.open( &quot;viewimage.asp?&quot;+sPicUrl, &quot;&quot;,  
     &quot;resizable=1,scrollbars=1,height=200,width=200,top=20,left=20&quot;); 
   } 
   &lt;/script&gt; 
   
&lt;script language=&quot;JavaScript&quot; type=&quot;text/javascript&quot;&gt;
    var win = null;
	function NewWindow(mypage,myname,w,h,scroll){
	LeftPosition = (screen.width) ? (screen.width-w)/2 : 0;
	TopPosition = (screen.height) ? (screen.height-h)/2 : 0;
	settings =
	'height='+h+',width='+w+',top='+TopPosition+',left='+LeftPosition+',scrollbars='+scroll+',resizable'
	win = window.open(mypage,myname,settings);
	win.focus();
	}
&lt;/script&gt;
  
&lt;%
'Set cookie for Browser Preference
BrowseChoice = Request.Cookies(&quot;BrowseChoice&quot;)
If BrowseChoice	&lt;&gt; &quot;&quot; Then
BrowseChoice = BrowseChoice
Else BrowseChoice = &quot;Thumbnails&quot;
End If%&gt;

&lt;!--used to determine image properties--&gt;
&lt;!--http://www.4guysfromrolla.com/webtech/050300-1.shtml--&gt;
&lt;!--#include file=&quot;imgprop.asp&quot;--&gt;

&lt;!--#include file=&quot;config.txt&quot;--&gt;

&lt;%
'Folder to navigate
sDirectory = ImgDirectory

'Begin Script
Dim sError
On Error Resume Next
sDirectory = trim(sDirectory)
If right(sDirectory,1) &lt;&gt; &quot;/&quot; Then sDirectory = sDirectory &amp; &quot;/&quot;

'Get subfolder from passed querystring
sDir = sDirectory &amp; Request.querystring(&quot;dir&quot;)
sDir = trim(sDir)
If right(sDir,1) &lt;&gt; &quot;/&quot; Then sDir = sDir &amp; &quot;/&quot;

'Important! Make sure the subfolder path is in the shared folder. This keeps
' users from browsing directories outside of the shared. ie: dir=../
' Code below puts user back into the default directory.

sFolder = Server.MapPath( sDir )
sDirFolder = Server.MapPath( sDirectory )
sSubFolder = right(sDir,len(sDir)-len(sDirectory))
If instr( sFolder , sDirFolder ) = 0 Then
  sFolder = sDirFolder
  sSubFolder = &quot;&quot;
  sError = sError &amp; &quot; Path not authorized;&quot;
End If

'Load the file system and navigate to shared folder.
Set objFileObject = Server.CreateObject(&quot;Scripting.FileSystemObject&quot;)
Set objFolder = objFileObject.GetFolder( sFolder )

'Handle missing or misspelled folder path.
If IsEmpty( objFolder ) Then
  sFolder = sDirFolder
  sSubFolder = &quot;&quot;
  sDir = sDirectory
  Set objFolder = objFileObject.GetFolder( sFolder )
  sError = sError &amp; &quot; Cartella non trovata;&quot;
End If

'Read text files for caption, copyrights
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
DescriptionFilename = sDir &amp; CommentFile

Dim DescriptionFilepath
DescriptionFilepath = Server.MapPath(DescriptionFilename)
If objFileObject.FileExists(DescriptionFilepath) Then
	Set TextStream = objFileObject.OpenTextFile(DescriptionFilepath, ForReading, False, TristateUseDefault)
		Dim DescriptionContents
			DescriptionContents = TextStream.ReadAll
	TextStream.Close
	Set TextStream = nothing
	DescriptionContents	= Replace(DescriptionContents , vbCrLf, &quot;&quot;)
	DescriptionContents	= &quot;&lt;p&gt;&quot; &amp; DescriptionContents &amp; &quot;&lt;/p&gt;&quot;
End If

%&gt;

&lt;div align=&quot;center&quot;&gt;
&lt;a class=&quot;smText&quot; href=&quot;search.asp&quot;&gt;[Ricerca Immagini]&lt;/a&gt;&lt;br&gt;&lt;br&gt;
&lt;/div&gt;
&lt;table align=&quot;center&quot; class=&quot;border2&quot; cellspacing=&quot;2&quot; width=&quot;&quot; cellpadding=&quot;2&quot;&gt;

&lt;%
'Build path navigation
aNames = Split( sSubFolder , &quot;/&quot;)
If bShowPath Then
   If UBound( aNames ) &gt; 0 Or bShowRoot Then
%&gt;
	&lt;tr&gt;
	&lt;td colspan=&quot;4&quot; align=&quot;left&quot;&gt;&lt;p&gt;
	&lt;b&gt;&amp;nbsp; &lt;a class=&quot;browse&quot; href=&quot;&lt;%= Request.ServerVariables(&quot;SCRIPT_NAME&quot;) %&gt;&quot;&gt;&lt;%= Left(sDirectory,len(sDirectory)-1) %&gt;&lt;/a&gt;&lt;/b&gt;
&lt;%
	End If

For count = 0 to UBound( aNames ) -1
	If instr( aNames(count),&quot;vti_cnf&quot; ) = 0 Then
	aURL = aURL &amp; aNames(count) &amp; &quot;/&quot;
%&gt;
&amp;nbsp;&lt;%= sChevron %&gt;&amp;nbsp;&lt;b&gt;&lt;a class=&quot;browse&quot; href=&quot;&lt;%= Request.ServerVariables(&quot;SCRIPT_NAME&quot;) %&gt;?dir=&lt;%= Server.URLEncode( aURL ) %&gt;&quot;&gt;&lt;%= aNames(count) %&gt;&lt;/a&gt;&lt;/b&gt;
&lt;%
	End If
Next   
%&gt;
&amp;nbsp;&lt;/td&gt;&lt;/tr&gt;
&lt;%
End If

For count = 0 to UBound( aNames ) -2
    aDirUp = aDirUp &amp; aNames(count) &amp; &quot;/&quot;
Next
%&gt;

&lt;!-- Build column titles --&gt;
&lt;tr&gt;
  &lt;td align=&quot;center&quot; class=&quot;border2&quot; style=&quot;padding:2px&quot;&gt;&lt;a href=&quot;&lt;%= Request.ServerVariables(&quot;SCRIPT_NAME&quot;) %&gt;?dir=&lt;%= Server.URLEncode( aDirUp ) %&gt;&quot;&gt;&lt;img src=&quot;graphics/uparrow.gif&quot; border=&quot;0&quot; width=&quot;20&quot; height=&quot;20&quot; alt=&quot;Back One Level&quot;&gt;&lt;/a&gt;&lt;/td&gt;
  &lt;td align=&quot;left&quot; class=&quot;border2 hpadding&quot;&gt;&lt;h2&gt;Cartella/File&lt;/h2&gt;&lt;/td&gt;
  &lt;td align=&quot;center&quot; class=&quot;border2 hpadding&quot;&gt;&lt;h2&gt;Grandezza/Info&lt;/h2&gt;&lt;/td&gt;
  &lt;td align=&quot;center&quot; class=&quot;border2 hpadding&quot;&gt;&lt;h2&gt;Azione&lt;/h2&gt;&lt;/td&gt;
&lt;/tr&gt;
&lt;%
'Iterate through subfolders in shared folder
For Each objFile In objFolder.SubFolders
If instr( objFile.name , &quot;vti_cnf&quot; ) = 0 Then

'Alternate row colors
    If iAlternate = 0 Then
      response.write &quot;&lt;tr class='folderrow1'&gt;&quot;
      iAlternate = 1
    Else
      response.write &quot;&lt;tr class='folderrow2'&gt;&quot;
      iAlternate = 0
    End If
%&gt;

&lt;!-- Display folder with link to navigate --&gt;
  	
  &lt;td align=&quot;center&quot;&gt;&lt;a href=&quot;&lt;%= Request.ServerVariables(&quot;SCRIPT_NAME&quot;) %&gt;?dir=&lt;%= Server.URLEncode(  sSubFolder &amp; objFile.Name )%&gt;&quot;&gt;&lt;img src=&quot;graphics/folder.gif&quot; border=&quot;0&quot; width=&quot;17&quot; height=&quot;17&quot; alt=&quot;Open Folder&quot;&gt;&lt;/a&gt;&lt;/td&gt;
  &lt;td&gt;&lt;p style=&quot;text-align:left; margin-left:5px&quot;&gt;&lt;a class=&quot;browse&quot; href=&quot;&lt;%= Request.ServerVariables(&quot;SCRIPT_NAME&quot;) %&gt;?dir=&lt;%= Server.URLEncode(  sSubFolder &amp; objFile.Name )%&gt;&quot;&gt;&lt;%= objFile.Name %&gt;&lt;/a&gt;&lt;/td&gt;
  &lt;td&gt;&lt;p style=&quot;text-align:right; margin-right:15px&quot;&gt;&lt;%= ByteConversion( objFile.Size ) %&gt;&lt;/p&gt;&lt;/td&gt;
  &lt;td align=&quot;center&quot;&gt;&lt;p&gt;
  &lt;%If objFile.Type = &quot;File Folder&quot; then
    response.write &quot;&quot;
	else
	response.write &quot;N/A&quot;
	end if%&gt;&lt;/p&gt;&lt;/td&gt;
&lt;/tr&gt;

&lt;%
'Next Folder
End If
Next

'Iterate through files in shared folder / subfolder. FileSize used to validate presence of image.
Dim FileSize
FileSize = 0
For Each objFile In objFolder.Files

   sFileName = objFile.name

   'Only continue if it's a valid extension
   If ( IsValidFile (sFileName) ) Then

   'Alternate row colors.
      If iAlternate = 0 Then
          response.write &quot;&lt;tr class='filerow1'&gt;&quot;
          iAlternate = 1
          FileSize = FileSize + objFile.Size
      Else
         response.write  &quot;&lt;tr class='filerow2'&gt;&quot;
         iAlternate = 0
      End If
%&gt;

&lt;%
'Set browse choice - thumb or file name
Set ServerName=Request.ServerVariables(&quot;SERVER_NAME&quot;)
		If BrowseChoice = &quot;Thumbnails&quot; Then
			ImgChoice = &quot;&lt;img border='0' alt='&quot; &amp; sFileName &amp; &quot;' src='thumbnail.aspx?FileName=&quot; &amp; Server.MapPath(sDir) &amp; &quot;\&quot; &amp; sFileName &amp; &quot;&amp;width=175'&gt;&quot;
		Else
			ImgChoice	= sFileName
		End If
'End If
%&gt;

&lt;!-- Display folder contents with view and download links --&gt;
  &lt;td class=&quot;borderBot&quot;&gt;&amp;nbsp;&lt;/td&gt;
  &lt;td align=&quot;left&quot; class=&quot;borderBot&quot;&gt;&lt;br&gt;&lt;p&gt;&lt;a href=&quot;javascript:ImagePopup('&lt;%=escape(sDir)%&gt;&lt;%=escape(sFileName)%&gt;')&quot;&gt;&lt;%=ImgChoice%&gt;&lt;br&gt;&lt;/p&gt;&lt;/a&gt;
  &lt;% If BrowseChoice = &quot;Thumbnails&quot; Then
  Response.Write &quot;&lt;div align='left'&gt;&lt;p class='smOrngText'&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;[&quot; &amp; sFileName &amp; &quot;]&lt;br&gt;&lt;br&gt;&lt;/div&gt;&quot;
  End If %&gt;&lt;/td&gt;

&lt;%'Get image properties using imgprop include
	Set objFSO = CreateObject(&quot;Scripting.FileSystemObject&quot;)
	Set objF = objFSO.GetFile(Server.MapPath(sDir) &amp; &quot;\&quot; &amp; sFileName)
     
	if gfxSpex(objF, w, h, c, strType) = true then
		response.write &quot;&lt;td align='center' class='borderBot'&gt;&lt;div class='smText'&gt;&quot;
		response.write strType
		response.write &quot;&lt;br&gt;&quot;
		response.write ByteConversion(objF.Size)
		response.write &quot;&lt;br&gt;&quot;
		response.write w &amp; &quot; x &quot; &amp; h
		response.write &quot;&lt;br&gt;&quot;
		response.write DepthConversion(c)
		response.write &quot;&lt;/div&gt;&lt;/td&gt;&quot;
       else
         response.write &quot;&lt;td align='center' class='borderBot'&gt;&lt;div class='smText'&gt; N/A &lt;/div&gt;&lt;/td&gt;&quot;
    end if
	   
	Set objFSO = nothing
	Set objF = nothing	   
%&gt;
  &lt;td align=&quot;center&quot; class=&quot;borderBot&quot;&gt;
  &lt;div id=&quot;selectButton&quot; align=&quot;center&quot;&gt;&lt;a href=&quot;javascript:ImagePopup('&lt;%=escape(sDir)%&gt;&lt;%=escape(sFileName)%&gt;')&quot;&gt;Visualizza&lt;/a&gt;&lt;/div&gt;&lt;br&gt;
  &lt;div id=&quot;selectButton&quot; align=&quot;center&quot;&gt;
	&lt;a href=&quot;download_script.asp?file=&lt;%= escape(sDir) %&gt;&lt;%= escape(sFileName)%&gt;&quot;&gt;
	Scarica&lt;/a&gt;&lt;/div&gt;
  &lt;/td&gt;
  &lt;/tr&gt;
&lt;%
End If
Next

'Clean up memory leaks
Set objFileObject = nothing
Set objFolder = nothing

'Iterate through and approve extensions
Function IsValidFile(FileName)
   If Not AllowExt &lt;&gt; &quot;&quot; or LCase( AllowExt ) = &quot;all&quot; Then
     IsValidFile = True
    Else
     aAllowExt = Split( AllowExt &amp; &quot;,&quot; , &quot;,&quot;)
     IsValidFile = False
     For iCnt = 0 to UBound( aAllowExt ) -1
       If right( FileName , len( FileName ) - InStrRev( FileName , &quot;.&quot; ) ) = Trim(aAllowExt( iCnt )) Then IsValidFile = True
     Next
   End If
   If DenyExt &lt;&gt; &quot;&quot; Then
     aDenyExt = Split( DenyExt &amp; &quot;,&quot; , &quot;,&quot;)
     For iCnt = 0 to UBound( aDenyExt ) -1
       If right( FileName , len( FileName ) - InStrRev( FileName , &quot;.&quot; ) ) = Trim(aDenyExt( iCnt )) Then IsValidFile = False
     Next
   End If
End Function

'Display friendly byte size
Function ByteConversion(NumberOfBytes)
   If NumberOfBytes &lt; 1024 Then
      sDisplayBytes = NumberOfBytes &amp; &quot; bytes&quot;
   End If
   If NumberOfBytes &gt;= 1024 Then
      sDisplayBytes = FormatNumber( NumberOfBytes / 1024, 1) &amp; &quot; KB&quot;
   End If
   If NumberOfBytes &gt; 1048576 Then
      sDisplayBytes = FormatNumber( NumberOfBytes / 1048576, 1) &amp; &quot; MB&quot;
   End If
   Response.Write sDisplayBytes
End Function

'Display friendly color depth
Function DepthConversion(CDepth)
   If CDepth &gt;=2 Then
      sDisplayDepth = CDepth &amp; &quot; colors&quot;
   End If
   If CDepth &gt;=4 Then
      sDisplayDepth = CDepth &amp; &quot; colors&quot;
   End If
   If CDepth &gt;=8 Then
      sDisplayDepth = CDepth &amp; &quot; colors&quot;
   End If
   If CDepth &gt;=16 Then
      sDisplayDepth = CDepth &amp; &quot; colors&quot;
   End If
   If CDepth &gt;=32 Then
      sDisplayDepth = CDepth &amp; &quot; colors&quot;
   End If
   If CDepth &gt;=64 Then
      sDisplayDepth = CDepth &amp; &quot; colors&quot;
   End If
   If CDepth &gt;=128 Then
      sDisplayDepth = CDepth &amp; &quot; colors&quot;
   End If
   If CDepth &gt;=256 Then
      sDisplayDepth = CDepth &amp; &quot; colors&quot;
   End If
   If CDepth &gt;=65535 Then
      sDisplayDepth = FormatNumber (CDepth / 1000, 1) &amp;&quot;K&quot; &amp; &quot; colors&quot;
   End If
   If CDepth &gt;=16777215 Then
      sDisplayDepth = FormatNumber (CDepth / 1000000, 1) &amp;&quot;M&quot; &amp; &quot; colors&quot;
   End If
   Response.Write sDisplayDepth
End Function

'Handle errors
If Err &lt;&gt; 0 or sError &lt;&gt; &quot;&quot; Then
  response.write &quot;&lt;tr&gt;&lt;td bgcolor=&quot;&quot;#000000&quot;&quot; colspan=&quot;&quot;5&quot;&quot;&gt;&lt;font face=&quot;&quot;Verdana, Arial, Helvetica&quot;&quot; color=&quot;&quot;red&quot;&quot; size=&quot;&quot;1&quot;&quot;&gt;ERROR: &quot; &amp; sError &amp; space(1) &amp; &quot;ASP: &quot; &amp; Err.description &amp; &quot;;&lt;/font&gt;&lt;/td&gt;&lt;/tr&gt;&quot;
End If
%&gt;

&lt;!-- Display nfo.htm file if present--&gt;
&lt;%If DescriptionContents &lt;&gt; &quot;&quot; Then%&gt;
  &lt;tr&gt;
  &lt;td align=&quot;center&quot; class=&quot;border1&quot;&gt;&lt;img src=&quot;graphics/info.gif&quot; border=&quot;0&quot; width=&quot;16&quot; height=&quot;16&quot; alt=&quot;Info Box&quot;&gt;&lt;/td&gt;
  &lt;td class=&quot;border1&quot; align=&quot;left&quot; style=&quot;padding-left: 10px; padding-right: 4px&quot; colspan=&quot;3&quot;&gt;
&lt;%=DescriptionContents%&gt;&lt;br /&gt;
  &lt;/td&gt;
  &lt;/tr&gt;
&lt;%End If%&gt;



&lt;!-- Display info box if thumbnails present (and infoBox toggled True). Presence of thumbnail(s) determined using FileSize variable.
The presence of at least one file with valid image extension will trigger FileSize greater than 0.
Cannot use IsValidFile function for this purpose because caption files are considered invalid.
As a result if a folder contains both images and caption file the thumbnail message will not display. --&gt;

&lt;%If FileSize &gt; 0 Then
	If infoBox = true then%&gt;
&lt;tr&gt;
  &lt;td align=&quot;center&quot; class=&quot;border1&quot;&gt;&lt;img src=&quot;graphics/info.gif&quot; border=&quot;0&quot; width=&quot;16&quot; height=&quot;16&quot; alt=&quot;Info Box&quot;&gt;&lt;/td&gt;
  &lt;td class=&quot;border1&quot; style=&quot;padding-left: 10px; padding-right: 4px&quot; colspan=&quot;3&quot;&gt;
&lt;p align=&quot;left&quot; class=&quot;smOrngText&quot;&gt;&lt;br /&gt;&lt;span id=&quot;BABID_Results&quot;&gt;Clicca sulla miniatura per aprire 
l'immagine a grandezza naturale.&lt;/span&gt;&lt;br&gt;
  &lt;/td&gt;
  &lt;/tr&gt;

	&lt;%End If
End If	%&gt;

&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;

&lt;%

Dim EndTime
EndTime = Timer
Dim TimeDelta
TimeDelta = FormatNumber(EndTime - StartTime, 4)
Response.Write &quot;&lt;br&gt;&lt;br&gt;&lt;p class='smOrngText' style='text-align:center;'&gt;&lt;i&gt;Tempo di creazione della pagina: [&quot; &amp; TimeDelta &amp; &quot; secondi]&lt;/i&gt;&quot;
%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CGalleria">Íàçàä</a>]