<% If LCase(Request.Cookies("IWGalleryAccess")) <> "amministratore" Then Response.Redirect("logout.asp?reason=Accesso negato") %> <% Dim objZip, objItem Set objZip = Server.CreateObject("XStandard.Zip") %> <% pau_AutoCreatePath(Server.MapPath(strPublicPath & "/zip")) %> <% Dim objFSO, Folder, Files, FilesCount Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set Folder = objFSO.GetFolder(Server.MapPath(strPublicPath & "/zip/")) Set Files = Folder.Files FilesCount = Files.Count If Request.Form("action") = "DeleteAll" Then For Each File in Files objFSO.DeleteFile(Folder & "\" & File.Name) Next Response.Redirect("../admin/zip_listing.asp") End If %> <% ' *** Delete Listed File fm_DeleteListedFile %> <% ' *** Folder List 1.0.3 Dim ZipFiles Set ZipFiles = New FolderList With ZipFiles .Path = strPublicPath & "/zip" .allowedExtensions = "" .includeFolders = false .ShowThumbnailsOnly = false .ThumbnailsSuffix = "_small" .officeAttributes = false .ReadFolder() End With %> <% ' *** Folder List Repeater Vars 1.0.3 ZipFiles.pageRecs = 0 ZipFiles.pageCols = 1 %>
Zip
Files: <%= FilesCount %> Nota: si consiglia di cancellare periodicamente i files .zip per risparmiare spazio su disco
<% If FilesCount > 0 Then %> <% ' *** Folder List Repeater Start while ZipFiles.CanRepeat() %> <% 'if ZipFiles.IsLastColumn() then %> <% 'end if ZipFiles.MoveNext wend ZipFiles.EndRepeater ' *** Folder List Repeater End %>
Nome Data  
','zip','scrollbars=yes,resizable=yes,width=320,height=240')"><%= ZipFiles.Files("Name") %> (<%= ZipFiles.Files("Size_name") %>) <%= DoDateTime( ZipFiles.Files("DateLastModified") , 2, 2057) %> Cancella
<% End If %>
<% set ZipFiles = Nothing ' *** End Folder List %> <% Set Files = Nothing Set Folder = Nothing Set objFSO = Nothing %>