25. februar 2003 - 21:25
Der er
12 kommentarer og 1 løsning
Vis alle filer i en mappe
Jeg vil gerne have skrevet denne om til ASP, hvis nogen lige kendte et script :-) (Husk det med filstørrelse) Hvis der er nogen som også ved hvordan jeg tilføjer en "upload ny fil" så sætter jeg 40 ekstra points på! <html> <head> <style> td {font-family: tahoma; font-size: 10pt; color: black;} a {font-family: tahoma; font-size: 10pt; color: maroon;} a:hover {font-family: tahoma; font-size: 10pt; color: red;} </style> </head> <body> <table> <tr><td>Name</td><td>Size</td></tr> <? $d = dir("."); while (false !== ($entry = $d->read())) { $size = round(filesize($entry) / 1024, 2) . " kb"; if ($entry == ".."){ echo " <tr><td><a href=\"..\">Parent Directory</a></td><td></td></tr>\n"; } elseif ($entry <> "."){ echo " <tr><td><a href=\"" . $entry . "\">" . $entry . "</a></td><td align=\"right\">" . $size . "</td></tr>\n"; } } $d->close(); ?> </table> </body> </html>
Annonceindlæg fra DE-CIX
Edge computing: behandling ved kilden
Edge computing revolutionerer den måde, data behandles på, ved at bringe kapacitet og ydeevne tættere på dér, hvor der er behov for det.
15. april 2025
25. februar 2003 - 22:03
#6
ok den skulle være her: <% folder = Server.Mappath(".") if request.querystring("folder") <> "" then folder = (request.querystring("folder")) end if Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(folder) folder = fso.GetFolder(folder) response.write "<a href='filename.asp?folder=" & folder & "\.." & "'>Forrige mappe</a><br>" Set fc = f.SubFolders For Each f1 in fc response.write "<a href='filename.asp?folder=" & folder & "\" & f1.name & "'>" & f1.name & "</a><br>" Next %>
25. februar 2003 - 22:04
#7
du kan også sagtens få størrelsen på filerne det er bare: f1.size omregnet til kilobyte: Formatnumber(f1.size/1024,2)
25. februar 2003 - 22:21
#11
ok, tilføj nedenstående kode under den første kode. Visning af filer: <% response.write "<hr>" Set fc = f.Files For Each f1 in fc response.write f1.name & "<br>" Next response.write "<br>Antal filer: " & fc.Count %>