Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\Galleria\search_results_folders.asp</i><br><form method=post action="edit.asp?action=save&dir=\Galleria&file=search_results_folders.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;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;
		// 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;/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;&amp;nbsp;&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 objSubFolder
                            Dim objFSO
					  						
						    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
							
							'recurse through folders
					    	If Request.Form(&quot;SearchText&quot;) &lt;&gt; &quot;&quot; Then
							Function Search(objFolder)
							Set mainSubFolders = objFolder.Subfolders

							For Each objSubFolder in mainSubFolders

								If InStr(1, objSubFolder.Name, strSearchText, 1) Then
								Folder = objFolder
								TrimChr = (InStr(1, Folder, ImgDirectory, 1)) + (len(ImgDirectory))
								'PartICareAbout = Right(Folder,(len(Folder)- trimChr))
								PartICareAbout = (len(Folder)- trimChr)
								DisplayName = replace(particareabout,&quot;\&quot;,&quot;/&quot;)
								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; Server.URLEncode(DisplayName) &amp; &quot;&gt;&quot; &amp; DisplayName  &amp; &quot;&lt;/a&gt;&lt;/div&gt;&quot;
								End If

							Search objSubFolder
							Next
							End Function
							End If
						
                        %&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;Time to perform search: [&quot; &amp; TimeDelta &amp; &quot; seconds]&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>]