ASP billedearkiv

Jeps:

For Each oFile In CreateObject("Scripting.FileSystemObject").GetFolder(Server.MapPath("din sti her..")).Files
    Response.Write "Navn: " & oFile.Name & "<br>Url:" & oFile.Path
Next

Så skal du bare ændre "Navn ..... Url" til at lave et link.
Fx:

Response.Write "<a href="""&oFile.Path&""">"&oFile.Name&"</a>"

Måske der skal lidt http:// eller dit domæne foran oFile.Path, men det kan du jo lige lege med :)

Jeg kan ikke helt få det til at virke.

(Server.MapPath("din sti her..")). <-- hvis jeg har en mappe images, er det så /images jeg skal skrive der?

Jeg har lagt et billede ind i mappen, men det ser ikke rigtig ud til at virke.. Jeg mangler et eller andet..

Ja, hvis mappen "images" ligger i roden (hovedmappen) af din server, så kan du skrive "/images".

Det er korrekt det w13 skriver.

Jeg kan bare ikke få det til at virke.
Lad os sige jeg har lagt 1 billede ind i min mappe /images , så skulle der ske noget lign.: IMG_1 <-- link og når jeg klikker skulle billede vises.
Men som det ser ud pt, så loader siden enormt og viser til sidst fejl.

Hvis du har mange store billeder, der skal hentes, vil det naturligvis skulle loade længe.
Og hvad er det for en fejl? Hele idéen med fejlmeddelelser er jo trods alt, at de skal give et praj om problemet...

Fejlen der kommer kan du se: www.agnvig.dk/arkiv

Den siger jo, at din index.asp-fil ikke findes? Så du må åbenbart linke fra arkiv/ over til index.asp.

--> www.agnvig.dk/arkiv/index.asp

Jeg kan godt se, den står meget længe. Fejlen ser jeg dog ikke.
Hvor mange billeder drejer det sig om?

Indtil videre har jeg kun lagt 1 billede ind i mappen.. Er der evt. en anden måde at lave koden på, for det virker jo som sagt ikke..

Prøv lige at vise her, hvordan din kode er. For det burde være den rigtigste og simpleste. Så der er et eller andet helt galt.

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">

<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>agnvig.dk</title>

<style type="text/css">
<!--
a {
    font-size: 10px;
    text-decoration: none;
    color: #CC0000;
}
a:hover {
    font-size: 10px;
    text-decoration: none;
    color: #457846;
}
p {
    font: Verdana, Arial, Helvetica, sans-serif 10pkt;
    color: #457846;
    white-space: 5px;
    margin: 0px 0px 0px 0px;
    padding: 5px;
}
body,td,th {
    font-family: Verdana, Arial, Helvetica, sans-serif;
    font-size: 10px;
}
-->
</style>
</head>

<body>


<%
For Each oFile In CreateObject("Scripting.FileSystemObject").GetFolder(Server.MapPath("/images")).Files
    Response.Write "Navn: " & oFile.Name & "<br>Url:" & oFile.Path
Next
%>

</body>
</html>

Prøv lige med:

<%
Set oFSO=CreateObject("Scripting.FileSystemObject").GetFolder(Server.MapPath("/images")).Files
Response.Write "<p>I alt "&oFSO.Count&" filer!</p>"
For Each oFile In oFSO
    Response.Write "Navn: " & oFile.Name & "<br>Url:" & oFile.Path
Next
Set oFSO=nothing
%>

Den viser en fejl i øverste linje: Set oFSO=CreateObject("Scripting.FileSystemObject").GetFolder(Server.MapPath("/images")).Files

Error Type:
Sun ONE ASP VBScript runtime (0x800A004C)
Path not found
/arkiv/index.asp, line 43

som fejl selv siger - der er angivet en sti der ikke findes.

Så må "/images" være forkert, itmouse.

Ja, for koden virker rigtigt hvert fald :)

Super det kom sku til at virke med:
<%
Set oFSO=CreateObject("Scripting.FileSystemObject").GetFolder(Server.MapPath("images")).Files
    Response.Write "<p>Der er "&oFSO.Count&" billeder i arkivet :)</p>"
For Each oFile In oFSO
    Response.Write "<a href=""http://www.agnvig.dk/mili/arkiv/images/"&oFile.Name&""">"&oFile.Name&"<br></a>"
Next
Set oFSO=nothing
%>

I smider bare nogle svar.

Nu hvor i svare så lystigt, er det så muligt at få billederne i alfabetisk rækkefølge. De er sat ind helt blandet, hvor imod dem i mappen er i rækkefølge..

Mange tak.

Her er et svar.

Du må kunne sortere rækkefølgen af billederne på din server. På min server er de automatisk alfabetisk.

Her