<% if Request.Cookies("storename") <> "" then Server.ScriptTimeout = 300 dim conn dim ssql dim rs dim MaxSize dim TotalSize dim UploadSupport %> <% ssql = "select * from tbl_setting" set rs = server.CreateObject("adodb.recordset") rs.Open ssql,conn,3,3 MaxSize = cdbl(rs("max_download_section_size")) Function FormatSize(givenSize) If (givenSize < 1024) Then FormatSize = givenSize & " B" ElseIf (givenSize < 1024*1024) Then FormatSize = FormatNumber(givenSize/1024,2) & " KB" ElseIf (givenSize < 1024*1024*1024) Then FormatSize = FormatNumber(givenSize/(1024*1024),2) & " MB" Else FormatSize = FormatNumber(givenSize/(1024*1024*1024),2) & " GB" End If End Function Function GetIcon(fileName, isFolder) Dim ext If isFolder Then GetIcon = "" Else ext = FSO.GetExtensionName(fileName) Set re = new regexp re.IgnoreCase = true re.Pattern = "^" & ext & ",|," & ext & ",|," & ext & "$" If re.test(editableExtensions) Then GetIcon = "" ElseIf re.test(viewableExtensions) Then GetIcon = "" Else GetIcon = "" End If End If End Function set fso = server.CreateObject("Scripting.FileSystemObject") if Request.QueryString("mypath") = "" then Set objFolder = FSO.GetFolder(server.MapPath("../../../../../member/") & "\" & Request.Cookies("storename") & "\files") else Set objFolder = FSO.GetFolder(Request.QueryString("mypath")) end if Response.Write "" Response.Write "" 'For each item size in objFolder.subfolders For each item in objFolder.subfolders TotalSize = TotalSize + item.Size next Response.Write "" Response.Write "" Response.Write "" if TotalSize > MaxSize then UploadSupport = false else UploadSupport = true end if Response.Write "" Response.Write "" Response.Write "" Response.Write "" Response.Write "" 'For each item in objFolder.subfolders For each item in objFolder.subfolders Response.Write "" Response.Write "" Response.Write "" Response.Write "" next 'detect & show up folder icon if Request.QueryString("mypath") <> "" then if Request.QueryString("mypath") <> server.MapPath("../../../../../member/") & "\" & Request.Cookies("storename") then Response.Write "" Response.Write "" end if end if 'For each item in objFolder.files For each item in objFolder.files Response.Write "" Response.Write "" Response.Write "" Response.Write "" next Response.Write "" Response.Write "

" Response.Write "" Response.Write "FILE MANAGER" Response.Write "
" Response.Write " " Response.Write "	" Response.Write "" Response.Write "MAX SPACE : " & FormatSize(MaxSize) Response.Write "	" Response.Write "" Response.Write "USED SPACE : " & FormatSize(TotalSize) Response.Write "
" Response.Write "" Response.Write "      " if Request.QueryString("folder") <> "" then Response.Write ucase(Request.QueryString("folder")) end if Response.Write "
" Response.Write " " Response.Write "	" Response.Write "" Response.Write "NAME" Response.Write "	" Response.Write "" Response.Write "SIZE" Response.Write "	" Response.Write "" Response.Write "ACTION" Response.Write "
" Response.Write GetIcon(item.Name, true) & " " Response.Write "	" Response.Write "" Response.Write "" Response.Write ucase(item.Name) & " " Response.Write "	" Response.Write "" Response.Write FormatSize(item.Size) Response.Write "	" Response.Write "" Response.Write " " Response.Write " " if UploadSupport = true then Response.Write "" end if Response.Write "
" Response.Write " " Response.Write "	" Response.Write "" Response.Write ".." Response.Write "
" Response.Write GetIcon(item.Name, false) & " " Response.Write "	" Response.Write "" Response.Write "" & ucase(item.Name) & " " 'Response.Write item.Type & "    " 'Response.Write item.DateLastModified & "    " Response.Write "	" Response.Write "" Response.Write FormatSize(item.Size) Response.Write "	" Response.Write "" Response.Write " " Response.Write "
" Response.Write " " Response.Write "

" set objFolder = nothing set fso = nothing else Response.Redirect "../../index.asp" end if %>