Avatar billede kasseper Nybegynder
24. november 2004 - 09:48 Der er 8 kommentarer og
2 løsninger

FileSystemObject spørgsmål

Hej

Jeg skal lave en ting, til at fremvise billeder dynamisk.

Jeg skal lave det sådan at jeg fra et givent sted på mit webhotel kan hive alle de billeder der ligger i en folder.
Skidtet skal så vurdere om der er mere en 5 billeder også skal jeg ha en skrolling mekanisme.....

Er der nogen der har noget eksempelkode de kan vise mig...?
Avatar billede kasseper Nybegynder
24. november 2004 - 09:49 #1
Og det er iøvrigt det her chili væsen asp....
Avatar billede ghost1 Nybegynder
24. november 2004 - 14:41 #2
Hvad siger du til denne her..


<%
Dim filesys, demofolder, fil, filecoll, filist
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder(server.MapPath("images")) 
Set filecoll = demofolder.Files

Response.Write("<table><tr><td><div style=""width:150;height:100;overflow:auto;"">")
Response.Write("<table><tr>")
For Each fil in filecoll
    Response.write("<td><img src='images/"&fil.name&"' width=20 height=20></td>") 
 
     
Next 
Response.Write("</tr></table></div")
Response.Write("</td></tr></table>")
%>
Avatar billede kasseper Nybegynder
24. november 2004 - 15:08 #3
Nu har jeg det sådan at jeg godt vil vide lidt om hvordan skidtet virker....
Så kan du ikke skrive bare små kommentare til hvad der sker...?
Det ser ud til at jeg skal ha en folder der hedder "images", og at min asp fil skal ligge samme sted som folderen ligger korrekt ????
Men hvordan virker det....Er det OK ?
Avatar billede ghost1 Nybegynder
24. november 2004 - 15:41 #4
Jamen selvfølgelig er det okay.. har du prøvet at køre det ?

<%
'I de først 4 linier åbner vi blot systemobjektet der gør os i stand til at læse hvad der ligger i folderen - og ja du har ret i at folderen den kigger i hedder images, server.MapPath funktionen henviser blot til din arbejdsfolder, altså den folder du kører din asp side fra, og images folderen ligger så under min hovedfolder.

Dim filesys, demofolder, fil, filecoll, filist
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder(server.MapPath("images")) 
Set filecoll = demofolder.Files

'Her benytter jeg så en div-tag til at lave et kunstigt vindue, ligner mest af alt en I-frame, men er det ikke - og her vil hvis der er flere billeder end længden af divtag´en automatisk komme en scroller på. efterfølgende looper den bare igennem alle fil navnene, så dvs du skal også ændre din image sti i IMG så det peger et andet sted hvis nu dit bibliotek ikke hedder images

Response.Write("<table><tr><td><div style=""width:150;height:100;overflow:auto;"">")
Response.Write("<table><tr>")
For Each fil in filecoll
    Response.write("<td><img src='images/"&fil.name&"' width=20 height=20></td>") 
 
     
Next 
Response.Write("</tr></table></div")
Response.Write("</td></tr></table>")

'du må sige til hvis du vil have det forklaret mere , eller på en anden måde.. ;)

%>
Avatar billede ghost1 Nybegynder
24. november 2004 - 15:42 #5
jeg går ud fra du kun gemmer billder i det bibliotek ik , eller kan man sætte et IF statement ind som så sorterer alle ikke acceptable filnavne-endelser fra...
Avatar billede ghost1 Nybegynder
24. november 2004 - 15:55 #6
og ja det virker som det er... - ingen grund til at lave noget kun halvt jo ;)
Avatar billede kasseper Nybegynder
24. november 2004 - 16:10 #7
perfekt, afprøver det iaften.....:)
Avatar billede kasseper Nybegynder
24. november 2004 - 21:38 #8
Hey ghost1 >>

Jeg tror måske at jeg har formuleret mig lidt forkert.
Men med en scroller mener jeg at, når siden loader så viser den de første 5 billeder, så er 2 knapper "næste" og "forrige", når jeg så klikker næste, så loader siden igen og viser de 5 næste, og når der så ikke er flere, så viser den ikke næste knappen.....sorry :)

Jeg runder op til 200 for det gode arbejde indtil nu...!
Avatar billede kasseper Nybegynder
24. november 2004 - 22:58 #9
Hmmmm, klarede resten selv.
Mange tak for hjælpen.
Avatar billede ghost1 Nybegynder
25. november 2004 - 16:06 #10
det var så lidt, men okay havde ikke lige forstået det sådan - men håber du fik det til at køre :) og tak for points
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
Kurser inden for grundlæggende programmering

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