Avatar billede itmouse Nybegynder
06. april 2008 - 14:05 Der er 21 kommentarer og
2 løsninger

ASP billedearkiv

Jeg leder efter et enkelt asp script, som tager alle billederne i en given mappe og lægger dem ind på en side som alm. links..

IMG.1
IMG.2
IMG.3
osv.

Kan det gøres, findes sådan et?
Avatar billede soerenlyn Nybegynder
06. april 2008 - 14:10 #1
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
Avatar billede soerenlyn Nybegynder
06. april 2008 - 14:10 #2
Så skal du bare ændre "Navn ..... Url" til at lave et link.
Fx:

Response.Write "<a href="""&oFile.Path&""">"&oFile.Name&"</a>"
Avatar billede soerenlyn Nybegynder
06. april 2008 - 14:11 #3
Måske der skal lidt http:// eller dit domæne foran oFile.Path, men det kan du jo lige lege med :)
Avatar billede itmouse Nybegynder
06. april 2008 - 14:29 #4
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..
Avatar billede w13 Novice
06. april 2008 - 14:37 #5
Ja, hvis mappen "images" ligger i roden (hovedmappen) af din server, så kan du skrive "/images".
Avatar billede soerenlyn Nybegynder
06. april 2008 - 15:00 #6
Det er korrekt det w13 skriver.
Avatar billede itmouse Nybegynder
11. april 2008 - 19:25 #7
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.
Avatar billede w13 Novice
11. april 2008 - 22:18 #8
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...
Avatar billede itmouse Nybegynder
13. april 2008 - 10:23 #9
Fejlen der kommer kan du se: www.agnvig.dk/arkiv
Avatar billede w13 Novice
13. april 2008 - 10:28 #10
Den siger jo, at din index.asp-fil ikke findes? Så du må åbenbart linke fra arkiv/ over til index.asp.
Avatar billede itmouse Nybegynder
13. april 2008 - 10:29 #11
Avatar billede w13 Novice
13. april 2008 - 10:40 #12
Jeg kan godt se, den står meget længe. Fejlen ser jeg dog ikke.
Hvor mange billeder drejer det sig om?
Avatar billede itmouse Nybegynder
13. april 2008 - 12:21 #13
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..
Avatar billede w13 Novice
13. april 2008 - 12:36 #14
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.
Avatar billede itmouse Nybegynder
13. april 2008 - 13:35 #15
<!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>
Avatar billede w13 Novice
13. april 2008 - 13:41 #16
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
%>
Avatar billede itmouse Nybegynder
13. april 2008 - 15:34 #17
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
Avatar billede keysersoze Ekspert
13. april 2008 - 16:44 #18
som fejl selv siger - der er angivet en sti der ikke findes.
Avatar billede w13 Novice
13. april 2008 - 17:09 #19
Så må "/images" være forkert, itmouse.
Avatar billede soerenlyn Nybegynder
13. april 2008 - 18:28 #20
Ja, for koden virker rigtigt hvert fald :)
Avatar billede itmouse Nybegynder
14. april 2008 - 12:13 #21
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.
Avatar billede w13 Novice
14. april 2008 - 14:39 #22
Her er et svar.

Du må kunne sortere rækkefølgen af billederne på din server. På min server er de automatisk alfabetisk.
Avatar billede soerenlyn Nybegynder
14. april 2008 - 16:30 #23
Her
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
IT-kurser om Microsoft 365, sikkerhed, personlig vækst, udvikling, digital markedsføring, grafisk design, SAP og forretningsanalyse.

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester