Bildvisningsscript

Hellojsan!

Jag hade tänkt o skriva ett ett bildvisnings script, men jag vet inte riktigt hur strukturen för detta script skall se ut!

jag har en mapp som heter Galleri i denna mapp finns det andra mappar, säg t.ex Bilmässan 2003 och kanske Båt mässan 2003 i varje undermapp finns det bilder, samt 1 bild som heter index.jpg samt index.txt och alla övriga bilder från det evenemanget!

Men jag vill lixom i ASP dokumentet kategorier.asp ha index.jpg samt index.txt från varje subdirectory i mappen Galleri.

detta skall altså vara rörligt, dvs jag kommer att skapa mappar o ladda upp bilder genom upload script och vill inte behöva ändra i filen Kategorier.asp.. om ni förstår hur jag menar.

Sen i filen Visa_bild.asp så tar jag emot en querystring o loopar ut alla bilder i mappen

MVH

hallojsan.. har börjat lite smått... har kommit så långt att den hämtar ut index.jpg från alla undemappar =) wooohooo... koden hittills ser ut som sådan, kan medela att jag har tagit lite kod snuttar från gruvsjö =) så ingen behöver hoppa på mej =)

Men hmmm, hur skall jag jag öppna textfilen och skriva ut texten som finns i filen? meningen med textfilen är att den skall fungera som en beskrivning till vad som finns i den valda kategorin!

<%
Antal = 6

MappNamn = "Galleri"

height = "70"

Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))

Set MyDrive = Mapp.subFolders

For Each Folder in MyDrive%>

<a href="#"><IMG height="<%=height%>" SRC="<%=MappNamn%>/<%=Folder.Name%>/index.jpg"></a>&nbsp;
<%Next%>

Okej nu börjar det närma sig :P hehe.. men nu har jag stött på ett problem jag INTE vet hurm an löser... den hämtar ut index.txt från varje mapp.. MEN, när jag skriver i textfilen och trycker enter 2 ggr för att hoppa ner rader.. och loopar ut innehållet å loopar den ut index bilden för varje radbrytning jag har =/

<%
Antal = 6

MappNamn = "Galleri"

height = "70"

Set Mappkoll = Server.CreateObject("Scripting.FileSystemObject")
Set Mapp = Mappkoll.GetFolder(Server.MapPath(MappNamn))

Set MyDrive = Mapp.subFolders

For Each Folder in MyDrive

Set objFso = Server.CreateObject("Scripting.FileSystemObject")
strFilePath = Server.Mappath(MappNamn) & "\" & folder.Name & "\index.txt"
set objFile = objFso.OpenTextFile( strFilePath, 1 )
arrFsoLines = Split( objFile.ReadAll, vbcrlf )
for i = 0 to ubound( arrFsoLines )
%>

<a href="#"><IMG height="<%=height%>" SRC="<%=MappNamn%>/<%=Folder.Name%>/index.jpg"></a><BR>
<% Response.Write arrFsoLines( i ) & vbcrlf %><BR>

<%Next
Next
objFile.Close
Set objFile = Nothing
Set objFso = Nothing
%>

Det är klart. Indexbilden ligger ju i din loop. Flytta den utanför istället.

OveRRidE skrev:

Det är klart. Indexbilden ligger ju i din loop. Flytta den utanför istället.

Ahhh.. d var så enkelt :P haha =) jaja ibland e man trött tack så mkt!