<%@ Language=VBScript %> <% Option Explicit Response.Expires = -1 Dim folpath, goingup, ImageGalleryPath, filename,action, fso, newname folpath = Request.QueryString("loc") goingup = Request.QueryString("u") ImageGalleryPath = Request.QueryString("DP") If Right(ImageGalleryPath,1) <> "/" Then ImageGalleryPath = ImageGalleryPath & "/" End If If folpath <> "" And goingup <> "y" Then folpath = folpath & "/" End If action = Request.QueryString("action") Set fso = Server.CreateObject("Scripting.FileSystemObject") Select Case action Case "deletefile" fso.DeleteFile Server.MapPath(Request.QueryString("filename")), True Case "renamefile" fso.MoveFile Server.MapPath(Request.QueryString("filename")), Server.MapPath(Request.QueryString("newname")) Case "renamefolder" fso.MoveFolder Server.MapPath(Request.QueryString("filename")), Server.MapPath(Request.QueryString("newname")) Case "downloadfile" filename = Request.QueryString("filename") Call downloadfile(Server.MapPath(filename)) Case "deletefolder" fso.DeleteFolder Server.MapPath(Request.QueryString("foldername")), True End Select %> <% Response.Write ListFilesandFolders(Server.MapPath(ImageGalleryPath & folpath)) %> <% Function ListFilesandFolders(spec) Dim folders, sf, fol, files, fil, s, ext, counter Dim fso Set fso = Server.CreateObject("Scripting.FileSystemObject") Set folders = fso.GetFolder(spec) Set sf = folders.SubFolders s = s & "" s = s & "" s = s & "" s = s & "" s = s & "" s = s & "" s = s & "" s = s & "" s = s & "" s = s & "" For Each fol In sf 'add the html for the folders s = s & "" s = s & "" s = s & "" s = s & "" s = s & "" s = s & "" s = s & "" s = s & "" Next Set files = folders.Files For Each fil In files 'add the html for the files s = s & "" s = s & "" s = s & "" s = s & "" s = s & "" s = s & "" s = s & "" s = s & "" Next s = s & "
NameSizeDate CreatedLast Modified
" s = s & " " & fol.name & "  " & FormatSize(folders.size) & "" & folders.DateCreated & "" & folders.DateLastModified & "
" s = s & "
" s = s & fil.name & "
" & FormatSize(fil.size) & "" & fil.DateCreated & "" & fil.DateLastModified & "
" ListFilesandFolders = s set folders=nothing set fso=nothing End Function Function GetExtension(str_FileName) dim allextensions allextensions = "arj,asa,asax,ascx,asmx,asp,aspx,au,avi,bat,bmp," allextensions = allextensions &"cab,chm,com,config,cs,css,disco,dll,doc," allextensions = allextensions &"exe,gif,hlp,htm,html,jpg,jpeg,inc,ini," allextensions = allextensions &"log,mdb,mid,midi,mov,mp3,mpg,mpeg," allextensions = allextensions &"pdf,ppt,swf,sys,txt,tif,vb,vbs,vsdisco," allextensions = allextensions &"wav,wri,xls,xml,zip,png" dim temp temp = LCase(Right(str_FileName,(Len(str_FileName)-InStrRev(str_FileName,".")))) dim Array_allextensions Array_allextensions = split(allextensions,",") dim i for i = 0 to ubound(Array_allextensions) if Array_allextensions(i) = temp then GetExtension = temp exit for else GetExtension = "unknown" end if next End Function function FormatSize(fileSize) ' need to check later ........adam if Isnumeric(fileSize) then if fileSize < 1024 then FormatSize = fileSize &" B" elseif fileSize < 1024*1024 then FormatSize = FormatNumber(fileSize/1024,2) &" KB" else FormatSize = FormatNumber(fileSize/(1024*1024),2)&" MB" end if else FormatSize = "" end if end function '' this is a simple download file function. Make sure that you have MDAC 2.5+ installed in order for this to work........adam function downloadfile(file) dim objFSO,objFile,objStream Set objFSO = Server.CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.GetFile(file) dim name, size name = objFile.Name size = objFile.Size Set objFile = Nothing Set objFSO = Nothing Response.Clear Response.AddHeader "Content-Disposition", "attachment; filename=" & name Response.AddHeader "Content-Length", size Response.ContentType = "application/octet-stream" Set objStream = Server.CreateObject("ADODB.Stream") objStream.Open objStream.Type = 1 Response.CharSet = "UTF-8" objStream.LoadFromFile(file) Response.BinaryWrite(objStream.Read) objStream.Close Set objStream = nothing end function %>