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
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>
<%Next%>
Okej nu börjar det närma sig 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
%>
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 =/