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 Novataris
25. februar 2003 - 21:29
#1
25. februar 2003 - 21:38
#2
thx, så skal de bare laves til links!
25. februar 2003 - 21:43
#3
Hvis du skriver det, er der points ;)
25. februar 2003 - 21:44
#4
Hmm.... Kan man ikke også angive størrelsen på filerne?
25. februar 2003 - 21:48
#5
Jeg skal bruge et hurtigt svar!
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:12
#8
når man klikker på linket, kommer man til en tom side
25. februar 2003 - 22:13
#9
og der bliver jo kun linket til mapper, ikke filer! Jeg er n00b sååh... ;)
25. februar 2003 - 22:14
#10
oki det med linksne ordede jeg selv, men så er det bare filerne...!
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 %>
25. februar 2003 - 22:25
#12
Okay prøver
Kurser inden for grundlæggende programmering