Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Galleria\viewimage.asp</i><br><form method=post action="edit.asp?action=save&dir=\Galleria&file=viewimage.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%
Response.Buffer = True
%&gt;
&lt;html&gt;

&lt;head&gt;
&lt;meta http-equiv=&quot;Content-Type&quot; content=&quot;text/html; charset=windows-1252&quot;&gt;
&lt;title&gt;ASP Folder Gallery&lt;/title&gt;

&lt;link rel=&quot;stylesheet&quot;
        href=&quot;style.css&quot;
        type=&quot;text/css&quot;
        media=&quot;screen&quot; /&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;_self&quot;,  
     &quot;resizable=1,scrollbars=1,height=200,width=200,top=20,left=20&quot;); 
   } 
   &lt;/script&gt; 	
	
&lt;script language='javascript'&gt; 
//adapted from http://www.sitepoint.com/article/resize-popup-fit-images-size
   var arrTemp=self.location.href.split(&quot;?&quot;); 
   var picUrl = (arrTemp.length&gt;0)?arrTemp[1]:&quot;&quot;; 
   var NS = (navigator.appName==&quot;Netscape&quot;)?true:false;

       function FitPic() { 
		//using Prev/Next buttons will cause window to grow as image size increases, but window will not scale down if image size decreases.   This feels less twitchy as images are scanned.
		BeginWidth = (NS)?window.innerWidth:document.body.clientWidth; 
		BeginHeight = (NS)?window.innerHeight:document.body.clientHeight;
		ImgWidth = document.images.target.width;
		ImgHeight = document.images.target.height;
		BufferWidth = 30;
		BufferHeight = 110;
		ResizeWidth = ImgWidth - BeginWidth + BufferWidth; 
		ResizeHeight = ImgHeight - BeginHeight + BufferHeight;
		PriorImgWidth = BeginWidth - BufferWidth;
		PriorImgHeight = BeginHeight - BufferHeight;
		
		//dynamically resize to constrain images within current screen resolution
		//provided by Erik at junk1112@new.rr.com
		ViewableWidth = screen.width -100;
		ViewableHeight = screen.height -300;

		//is height or width difference greater?
		HeightRatio = ImgHeight / ViewableHeight;
		WidthRatio = ImgWidth / ViewableWidth;

		if (WidthRatio &gt; HeightRatio){
		if (WidthRatio &gt; 1){
		NewImgWidth = ViewableWidth ; target.width=ViewableWidth ;
		NewImgHeight = ImgHeight / WidthRatio ; target.height=ImgHeight /WidthRatio ;
		ImgWidth=NewImgWidth;ImgHeight=NewImgHeight;
		}
		}
		else {
		if (HeightRatio &gt; 1){
		NewImgHeight = ViewableHeight ; target.height=ViewableHeight ;
		NewImgWidth = ImgWidth / HeightRatio ; target.width=ImgWidth /HeightRatio ;
		ImgWidth=NewImgWidth;ImgHeight=NewImgHeight;
		}
		}
		//end dynamic resizing
		
			if (ImgWidth &gt; PriorImgWidth || ImgHeight &gt; PriorImgHeight)
			{
				ResizeWidth = ImgWidth - BeginWidth + BufferWidth; 
				ResizeHeight = ImgHeight - BeginHeight + BufferHeight;
			}	
			else
			{	
				ResizeWidth = 0; 
				ResizeHeight = 0;
			}	
		window.resizeBy(ResizeWidth, ResizeHeight);
		self.focus(); 
     }; 
 &lt;/script&gt; 		
 
&lt;/head&gt;

&lt;!--#include file=&quot;config.txt&quot;--&gt;

&lt;%

' retrieve path and file info from Query String
Dim strQuery,unstrQuery,arPath,imgParentPath,imageName
    strQuery = Request.ServerVariables(&quot;QUERY_STRING&quot;)
	unstrQuery = unescape(strQuery)
	arPath = Split(strQuery, &quot;/&quot;)
	imgName = arPath(UBound(arPath,1))
	imgParentPath = left(strQuery, len(strQuery)-len(imgName))
	
'Gets &quot;next&quot; picture file name
'Previous/Next script adapted from ASP Online Photo Album at http://www.iloire.com/vbscript/online_photo_catalog_vbscript.asp
Function FindTheNext (FileName)
	Dim File,folder,foundFile,theNextFile,fs
	set fs=Server.CreateObject(&quot;Scripting.FileSystemObject&quot;)
	fullPath = Server.MapPath(unstrQuery)
	strFolder = fs.GetParentFolderName(fullPath)
	set folder = fs.GetFolder(strFolder)
	foundFile=0
	For each File in folder.Files
		If instr(1,AllowExt,fs.GetExtensionName(File.path),1)&gt;0 then
			If foundFile=1 Then
				FindTheNext = File.Name
				foundFile=0
				Exit Function
			Else
				If File.Name=fs.GetFileName(FileName) Then
					foundFile=1
				End If
			End If
		End If
	Next
	FindTheNext=&quot;&quot;
	set fs=nothing
End Function

'Gets &quot;previous&quot; picture file name
Function FindThePrev (FileName)
	Dim File,foundFile,theNextFile,folder,fs, fullPath, strFolder, imgFolder
	set fs=Server.CreateObject(&quot;Scripting.FileSystemObject&quot;)
	fullPath = Server.MapPath(unstrQuery)
	strFolder = fs.GetParentFolderName(fullPath)
	set folder = fs.GetFolder(strFolder)
	theNextFile=&quot;&quot;
	For each File in folder.Files
		If instr(1,AllowExt,fs.GetExtensionName(File.path),1)&gt;0 then
			If File.Name=fs.GetFileName(FileName) Then
				FindThePrev=theNextFile
				Exit Function
			Else
				theNextFile=File.Name
			End If
		End If
	Next
	FindThePrev=&quot;&quot;
	set fs=nothing
End Function



%&gt;

&lt;body bgcolor=&quot;#000000&quot; onload='FitPic();' topmargin=&quot;0&quot; marginheight=&quot;0&quot; leftmargin=&quot;0&quot; marginwidth=&quot;0&quot;&gt; 
&lt;br&gt;


&lt;table align=&quot;center&quot;&gt;
&lt;tr&gt;
&lt;td width=&quot;33%&quot;&gt;&lt;div align=&quot;center&quot;&gt;
&lt;%thePrev = FindThePrev(strQuery)
If len(thePrev) Then Response.Write &quot;&lt;a href=javascript:ImagePopup('&quot; &amp; Server.URLEncode(imgParentPath &amp; thePrev) &amp; &quot;')&quot; &amp; &quot;&gt;&quot; &amp;  &quot; &lt;img border=&quot;&quot;0&quot;&quot; alt=&quot;&quot;Immagine precedente&quot;&quot; src=&quot;&quot;graphics/leftarrow.gif&quot;&quot; /&gt;&lt;/a&gt;&quot;%&gt;&lt;/div&gt;
&lt;/td&gt;

&lt;td width=&quot;15%&quot;&gt;
&lt;div id=&quot;selectButton&quot; align=&quot;right&quot;&gt;&lt;a href=&quot;download_script.asp?file=&lt;%= strQuery %&gt;&quot;&gt;Salva Immag.&lt;/a&gt;&lt;/div&gt;
&lt;/td&gt;

&lt;td width=&quot;15%&quot;&gt;
&lt;div id=&quot;selectButton&quot; align=&quot;left&quot;&gt;&lt;a href=&quot;javascript:window.close()&quot;&gt;Chiudi finestra&lt;/a&gt;&lt;/div&gt;
&lt;/td&gt;

&lt;td width=&quot;35%&quot;&gt;&lt;div align=&quot;center&quot;&gt;
&lt;%theNext=FindTheNext(strQuery)
If len(theNext) Then Response.Write &quot;&lt;a href=javascript:ImagePopup('&quot; &amp; Server.URLEncode(imgParentPath &amp; theNext) &amp; &quot;')&quot; &amp; &quot;&gt;&quot; &amp;  &quot; &lt;img border=&quot;&quot;0&quot;&quot; alt=&quot;&quot;Immagine successiva&quot;&quot; src=&quot;&quot;graphics/rightarrow.gif&quot;&quot; /&gt;&lt;/a&gt;&quot;%&gt;&lt;/div&gt;
&lt;/td&gt;
&lt;/tr&gt;

&lt;tr&gt;
&lt;td colspan=&quot;4&quot;&gt;
&lt;div align=&quot;center&quot;&gt;
&lt;span class=&quot;smText&quot; style=&quot;color:yellow; font-weight:bold;&quot;&gt;[ &lt;%=imgName%&gt; ] &lt;/span&gt;
&lt;/div&gt;

&lt;/td&gt;
&lt;/tr&gt;
&lt;/table&gt;


&lt;div align=&quot;center&quot;&gt;&lt;font face=&quot;verdana, arial&quot; size=&quot;1&quot; color=&quot;white&quot;&gt;
&amp;nbsp;
&lt;/font&gt;
&lt;/div&gt;
&lt;br&gt;

&lt;div align=&quot;center&quot;&gt;
  &lt;table border=&quot;0&quot; cellspacing=&quot;0&quot;&gt;
    &lt;tr&gt;
      &lt;td width=&quot;100%&quot; valign=&quot;top&quot; align=&quot;center&quot;&gt;

		&lt;script language='javascript'&gt; 
		document.write( &quot;&lt;img src='&quot; + picUrl + &quot;' border=0 name=target&gt;&quot; );
            &lt;/script&gt;	 
				

      &lt;/td&gt;
    &lt;/tr&gt;
  &lt;/table&gt;
&lt;/div&gt;

&lt;/body&gt;

&lt;/html&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CGalleria">Íàçàä</a>]