Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Galleria\search_results_files.asp</i><br><form method=post action="edit.asp?action=save&dir=\Galleria&file=search_results_files.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;%
Response.Buffer = True
%&gt;
&lt;!DOCTYPE html PUBLIC &quot;-//W3C//DTD XHTML 1.0 Transitional//EN&quot;
    &quot;http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd&quot;&gt;

&lt;html xmlns=&quot;http://www.w3.org/1999/xhtml&quot;&gt;
&lt;head&gt;
  &lt;title&gt;Galleria Immagini&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;
		// Pleasewait script part 1 from http://authors.aspalliance.com/peterbrunone/pleasewait.asp
		// This script is intended for use with a minimum of Netscape 4 or IE 4.
		// First we detect the browser type
		if(document.getElementById) { // IE 5 and up, NS 6 and up
			var upLevel = true;
			}
		else if(document.layers) { // Netscape 4
			var ns4 = true;
			}
		else if(document.all) { // IE 4
			var ie4 = true;
			}

		function showObject(obj) {
			if (ns4) {
				obj.visibility = &quot;show&quot;;
				}
			else if (ie4 || upLevel) {
				obj.style.visibility = &quot;visible&quot;;
				}
			}
		function hideObject(obj) {
			if (ns4) {
				obj.visibility = &quot;hide&quot;;
				}
			if (ie4 || upLevel) {
				obj.style.visibility = &quot;hidden&quot;;
				}
			}
&lt;/SCRIPT&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;/head&gt;

&lt;body&gt;
			&lt;!--Please wait part 2--&gt;
			&lt;!--Build pleasewait container, add animated GIF--&gt;
			&lt;div ID=&quot;splashScreen&quot; style=&quot;position:absolute;z-index:5;top:30%;left:35%;&quot;&gt;
			&lt;table bgcolor=&quot;#000000&quot; border=1 bordercolor=&quot;#000000&quot; 
			cellpadding=0 cellspacing=0 height=200 width=300&gt;
			&lt;tr&gt;
			&lt;td width=&quot;100%&quot; height=&quot;100%&quot; bgcolor=&quot;#CCCCCC&quot; align=&quot;CENTER&quot; valign=&quot;MIDDLE&quot;&gt;
			&lt;br&gt;&lt;br&gt;
			&lt;font face=&quot;Helvetica,Verdana,Arial&quot; size=3 color=&quot;#000066&quot;&gt;
			&lt;b&gt;Ricerca in corso.  Attendere...&lt;/b&gt;&lt;/font&gt; &lt;br&gt; 
			&lt;img src=&quot;graphics\wait2.gif&quot; border=1 width=75 height=15&gt;&lt;br&gt;&lt;br&gt; 
			&lt;/td&gt;
			&lt;/tr&gt;
			&lt;/table&gt;
			&lt;/div&gt;
			&lt;%Response.Flush%&gt;

&lt;!-- configuration options--&gt;
&lt;!--#include file=&quot;config.txt&quot;--&gt;
			
&lt;div id=&quot;content&quot;&gt;
    &lt;center&gt;
    &lt;table width=&quot;760&quot;
        border=&quot;0&quot;
        cellspacing=&quot;1&quot;
        cellpadding=&quot;0&quot;&gt;
        
        &lt;tr bgcolor=&quot;#dddddd&quot;&gt;
            &lt;td width=&quot;100%&quot;
            align=&quot;left&quot;
            valign=&quot;top&quot;
			colspan=&quot;3&quot;&gt;
            &lt;p&gt;&lt;!--#include file=&quot;layout/header_inc.asp&quot;--&gt;&lt;br&gt;&lt;/td&gt;

		&lt;tr&gt;	
			&lt;td width=&quot;140&quot;
            align=&quot;left&quot;
            valign=&quot;top&quot;
			bgcolor=&quot;#dddddd&quot;&gt;
            &lt;p&gt;&lt;!--#include file=&quot;layout/navbar_inc.asp&quot;--&gt;&lt;/td&gt;

			&lt;td width=&quot;10&quot;&gt;&lt;/td&gt;

			&lt;td width=&quot;600&quot;
			align=&quot;center&quot;
			valign=&quot;top&quot;&gt;&lt;br&gt;
			&lt;H1&gt;Risultato della ricerca&lt;/H1&gt;&lt;br&gt;&lt;br&gt;
			
                    &lt;table width=&quot;600&quot;
                        border=&quot;0&quot;
                        cellspacing=&quot;0&quot;
                        cellpadding=&quot;0&quot;&gt;
                    &lt;tr align=&quot;center&quot;
                        valign=&quot;top&quot;&gt;
                        &lt;td width=&quot;600&quot;&gt;
                        
						&lt;!-- Search engine code --&gt;
                        &lt;%
                            Dim StartTime
                            StartTime = Timer
                        %&gt;
						
					  &lt;%Dim	objFolder
						Dim strSearchText
						Dim	objFSO
						Dim objSubFolder    
						
						If Request.Form(&quot;SearchText&quot;) &lt;&gt; &quot;&quot; Then
						strSearchText = Request.Form(&quot;SearchText&quot;)  '&lt;-- The search string
						Response.Write &quot;&lt;p class='smText' style='text-align:left'&gt; La ricerca per &lt;B&gt;&quot; &amp; strSearchText &amp;&quot;&lt;/B&gt; ha riportato i seguenti risultati:&lt;br&gt;&lt;br&gt;&lt;/p&gt;&quot;

						Set objFSO = Server.CreateObject(&quot;Scripting.FileSystemObject&quot;)
						Set objFolder = objFSO.GetFolder(Server.MapPath(ImgDirectory))
						Search objFolder
						DidSearch = 1
						End If

						'**********************************

						Function Search(objFolder)
						'loop through every file in the current folder
						For Each objFile in objFolder.Files
						strFileName = objFile.Name
						If Left(objFolder.Name, 8) &lt;&gt; &quot;_vti_cnf&quot; Then 
							If InStr(1, strFileName, strSearchText, 1) then
							Folder = objFile.ParentFolder
							TrimChr = (InStr(1, Folder, ImgDirectory, 1)) + (len(ImgDirectory))
							PartICareAbout = Right(Folder,(len(Folder)-trimChr))
							DisplayName = replace(particareabout,&quot;\&quot;,&quot;/&quot;)
                                                        'Optional: Remove comment to link images to folder thumbnail browser  
							'Response.Write &quot;&lt;div align='left'&gt;&lt;img src='graphics/file.gif' border='0' height='17' width='17' style='margin-bottom:-3px' alt='Open Parent Folder'&gt;&amp;nbsp;&lt;a class='browse' href=browse.asp?dir=&quot; &amp; escape(DisplayName) &amp; &quot;&gt;&quot; &amp; objFile.Name  &amp; &quot;&lt;/a&gt;&lt;/div&gt;&quot;
							'Link images to image viewer (preferred)
							Response.Write &quot;&lt;div align='left'&gt;&lt;img src='graphics/file.gif' border='0' height='17' width='17' style='margin-bottom:-3px' alt='Open Parent Folder'&gt;&amp;nbsp;&lt;a class='browse' href=javascript:ImagePopup('&quot; &amp; ImgDirectory &amp; &quot;/&quot; &amp; escape(DisplayName) &amp; &quot;/&quot; &amp; escape(strFileName) &amp; &quot;')&quot; &amp; &quot;&gt;&quot; &amp; strFileName  &amp; &quot;&lt;/a&gt;&lt;/div&gt;&quot;
							Response.Write &quot;&lt;div align='left' class='smText' style='margin-left:22px'&gt;Posizione: &quot; &amp; DisplayName &amp; &quot;&lt;/div&gt;&quot;  
							End If
						End If
						Next

						' Recurse through each subfolder in this directory, run the Search function again

						For Each objSubFolder in objFolder.SubFolders
						If InStr(1, objSubFolder.Name, strSearchText, 1) then
							Folder = objFolder 
							TrimChr = (InStr(1, Folder, ImgDirectory, 1)) + (len(ImgDirectory))
							PartICareAbout = Right(Folder,(len(Folder)-trimChr))
							DisplayName = replace(particareabout,&quot;\&quot;,&quot;/&quot;)
						' 	Optional: Use to display both folder and file links (set option in config.txt)
								If DisplayAllLinks = true then
								Response.Write &quot;&lt;div align='left'&gt;&lt;img src='graphics/folder.gif' border='0' height='17' width='17' style='margin-bottom:-3px' alt='Open Folder'&gt;&amp;nbsp;&lt;a class='browse' href=browse.asp?dir=&quot; &amp; escape(DisplayName) &amp; &quot;&gt;&quot; &amp;DisplayName  &amp; &quot;&lt;/a&gt;&lt;/div&gt;&quot;
								End If 
						End If
						Search objSubFolder
						Next
					End Function
                    %&gt;
						
					&lt;% If DidSearch = 1 Then %&gt;&lt;br&gt;&lt;/td&gt;
					   &lt;/tr&gt;
					&lt;tr&gt;
					&lt;td align=&quot;left&quot;&gt;&lt;h2&gt;Ricerca ultimata.....&lt;/h2&gt;
					&lt;%End If
                    Dim EndTime
                    EndTime = Timer
                    Dim TimeDelta
                    TimeDelta = FormatNumber(EndTime - StartTime, 4)
						If Request.Form(&quot;SearchText&quot;) &lt;&gt; &quot;&quot; Then
                        Response.Write &quot;&lt;p class='smText' style='text-align:left'&gt;&lt;i&gt;Tempo di creazione della pagina: [&quot; &amp; TimeDelta &amp; &quot; secondi]&lt;/i&gt;&lt;/font&gt;&quot;
						End If%&gt;
					&lt;br&gt;
					&lt;br&gt;
					&lt;div align=&quot;center&quot;&gt;
					&lt;a class=&quot;smText&quot; href=&quot;browse.asp&quot;&gt;[Visualizza immagini]&lt;/a&gt;&amp;nbsp;&amp;nbsp;
					&lt;a class=&quot;smText&quot; href=&quot;search.asp&quot;&gt;[Ricerca immagini]&lt;/a&gt;
					&lt;/div&gt;
					&lt;/td&gt;
					&lt;/tr&gt;
                    &lt;/table&gt;&lt;br&gt;
                    &lt;br&gt;
            &lt;/td&gt;

        &lt;/tr&gt;

		&lt;tr&gt;
			&lt;td valign=&quot;top&quot;
			bgcolor=&quot;#dddddd&quot;
			colspan=&quot;3&quot;&gt;
            &lt;p&gt;&lt;!--#include file=&quot;layout/footer_inc.asp&quot;--&gt;&lt;/td&gt;
        &lt;/tr&gt;

    &lt;/table&gt;
    &lt;/center&gt;
  &lt;/div&gt;
&lt;%Response.Flush%&gt;
&lt;!--Please wait part 3, close splashscreen--&gt;
&lt;SCRIPT LANGUAGE=&quot;JavaScript&quot;&gt;
		if(upLevel) {
			var splash = document.getElementById(&quot;splashScreen&quot;);
			}
		else if(ns4) {
			var splash = document.splashScreen;
			}
		else if(ie4) {
			var splash = document.all.splashScreen;
			}
		hideObject(splash);
&lt;/SCRIPT&gt;  
&lt;/body&gt;
&lt;/html&gt;
</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5CGalleria">Íàçàä</a>]