%@ Language=VBScript %> <% option explicit Response.Expires = -1 Server.ScriptTimeout = 600 %> <% dim command dim dir dim fulldir dim title dim from dim pictsize dim rootDir dim originalsDir dim thumbnailsDir dim imagesSmallDir dim imagesBigDir dim filename dim oldfilename Dim objFSO command = Request("command") dir = Request("dir") from = Request("from") title = Request("title") pictsize = Request("pictsize") filename = Request("filename") oldfilename = request("oldfilename") rootDir = Request.ServerVariables("APPL_PHYSICAL_PATH") originalsDir = rootDir & "gallery\" & dir & "\originals\" thumbnailsDir = rootDir & "gallery\" & dir & "\thumbnails\" imagesSmallDir = rootDir & "gallery\" & dir & "\imagesSmall\" imagesBigDir = rootDir & "gallery\" & dir & "\imagesBig\" if command = "delete" then set objFSO = CreateObject("Scripting.FileSystemObject") If (objFSO.FileExists(imagesBigDir & filename)) Then objFSO.DeleteFile(imagesBigDir & filename) end if If (objFSO.FileExists(thumbnailsDir & filename)) Then objFSO.DeleteFile(thumbnailsDir & filename) end if If (objFSO.FileExists(imagesSmallDir & filename)) Then objFSO.DeleteFile(imagesSmallDir & filename) end if If (objFSO.FileExists(originalsDir & filename)) Then objFSO.DeleteFile(originalsDir & filename) end if set objFSO = nothing Response.Redirect("galleryLeft.asp?dir=" & dir & "&title=" & title & "&from=" & from) end if if command = "Rename" then response.write(filename & " - " & oldfilename) set objFSO = CreateObject("Scripting.FileSystemObject") If (objFSO.FileExists(imagesBigDir & oldfilename)) Then objFSO.MoveFile imagesBigDir & oldfilename, imagesBigDir & filename end if If (objFSO.FileExists(thumbnailsDir & oldfilename)) Then objFSO.MoveFile thumbnailsDir & oldfilename, thumbnailsDir & filename end if If (objFSO.FileExists(imagesSmallDir & oldfilename)) Then objFSO.MoveFile imagesSmallDir & oldfilename, imagesSmallDir & filename end if If (objFSO.FileExists(originalsDir & oldfilename)) Then objFSO.MoveFile originalsDir & oldfilename, originalsDir & filename end if set objFSO = nothing Response.Redirect("galleryLeft.asp?dir=" & dir & "&title=" & title & "&from=" & from) end if if command = "Cancel" then Response.Redirect("galleryLeft.asp?dir=" & dir & "&title=" & title & "&from=" & from) end if %>
<% if command = "rename1" then %> Rename file <% end if %>