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>
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