<% 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.QueryString("storename") & "\files") else Set objFolder = FSO.GetFolder(Request.QueryString("mypath")) end if Response.Write "" 'Response.Write "" 'Response.Write "" 'Response.Write "" 'Response.Write "" folderCounter = 1 'For each item in objFolder.subfolders For each item in objFolder.subfolders 'Response.Write "" 'Response.Write "" 'Response.Write "" if folderCounter = 1 then myFolder_1 = ucase(item.Name) elseif folderCounter = 2 then myFolder_2 = ucase(item.Name) elseif folderCounter = 3 then myFolder_3 = ucase(item.Name) elseif folderCounter = 4 then myFolder_4 = ucase(item.Name) elseif folderCounter = 5 then myFolder_5 = ucase(item.Name) elseif folderCounter = 6 then myFolder_6 = ucase(item.Name) elseif folderCounter = 7 then myFolder_7 = ucase(item.Name) else myFolder_8 = ucase(item.Name) end if folderCounter = folderCounter + 1 next 'detect & show up folder icon if Request.QueryString("mypath") <> "" then if Request.QueryString("mypath") <> server.MapPath("../../member/") & "\" & Request.QueryString("storename") then Response.Write "" Response.Write "" end if end if folderCounter = 1 do until folderCounter = 8 if folderCounter = 1 then Set objFolder = FSO.GetFolder(server.MapPath("../../member/") & "\" & Request.QueryString("storename") & "\files\" & myFolder_1) folder_Name = myFolder_1 elseif folderCounter = 2 then Set objFolder = FSO.GetFolder(server.MapPath("../../member/") & "\" & Request.QueryString("storename") & "\files\" & myFolder_2) folder_Name = myFolder_2 elseif folderCounter = 3 then Set objFolder = FSO.GetFolder(server.MapPath("../../member/") & "\" & Request.QueryString("storename") & "\files\" & myFolder_3) folder_Name = myFolder_3 elseif folderCounter = 4 then if len(myFolder_4) > 0 then Set objFolder = FSO.GetFolder(server.MapPath("../../member/") & "\" & Request.QueryString("storename") & "\files\" & myFolder_4) folder_Name = myFolder_4 else exit do end if elseif folderCounter = 5 then if len(myFolder_5) > 0 then Set objFolder = FSO.GetFolder(server.MapPath("../../member/") & "\" & Request.QueryString("storename") & "\files\" & myFolder_5) folder_Name = myFolder_5 else exit do end if elseif folderCounter = 6 then if len(myFolder_6) > 0 then Set objFolder = FSO.GetFolder(server.MapPath("../../member/") & "\" & Request.QueryString("storename") & "\files\" & myFolder_6) folder_Name = myFolder_6 else exit do end if elseif folderCounter = 7 then if len(myFolder_7) > 0 then Set objFolder = FSO.GetFolder(server.MapPath("../../member/") & "\" & Request.QueryString("storename") & "\files\" & myFolder_7) folder_Name = myFolder_7 else exit do end if else if len(myFolder_8) > 0 then Set objFolder = FSO.GetFolder(server.MapPath("../../member/") & "\" & Request.QueryString("storename") & "\files\" & myFolder_8) folder_Name = myFolder_8 else exit do end if end if Response.Write "" 'For each item in objFolder.files For each item in objFolder.files Response.Write "" Response.Write "" Response.Write "" Response.Write "" next folderCounter = folderCounter + 1 Response.Write "" loop 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 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 "" Response.Write ".." Response.Write "
" Response.Write "" Response.Write " " & folder_Name Response.Write "
" Response.Write "	" Response.Write "" Response.Write "" & mid(ucase(item.Name),1,len(item.Name) - 4) & " " 'Response.Write item.Type & "    " 'Response.Write item.DateLastModified & "    " Response.Write "	" Response.Write "" Response.Write FormatSize(item.Size) Response.Write "
" Response.Write " " Response.Write "

" set objFolder = nothing set fso = nothing %>