/ Forside / Teknologi / Udvikling / HTML / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
HTML
#NavnPoint
molokyle 11184
Klaudi 5506
bentjuul 3377
severino 2040
smorch 1950
strarup 1525
natmaden 1396
scootergr.. 1320
e.c 1150
10  miritdk 1110
Ultra dynamisk menu
Fra : Michael Maymann


Dato : 02-07-01 17:41

Hej NG.

Jeg har en svær opgave (for mig), som jeg håber der er en (gerne flere) som
kan hjælpe mig med.

Jeg vil oprette en dynamisk menu som selv udvider sig udfra
directory-strukturen :
eksempel:
1. hoveddir: hej
2. mellemdir: goddag
2. mellemdir: hallo
2. mellemdir: hejsa
2.1 underdir: goddagsa
2.1 underdir: goddagdu
2.1 underdir: goddagde
2.2 underdir: halloI
2.2 underdir: halloda
2.3 underdir: hejsamed

Der vil i eksemplet ovenfor være dannet 1 hoveddirectory med 3
mellemdirectory's.
Under det første mellemdirectory (goddag) er der 3 underdirectory's
(goddagsa,..), under det andet mellemdirectory (hallo) er der 2
underdirectory's og under det sidste mellemdirectory (hejsa) er der et
underdirectory.

Mit problem er nu at jeg ikke kan implementere denne problemstilling:
Hvordan opdaterer hjemmesiden sig selv udfra directory-strukturen.


På forhånd tusind tak for hjælpen
Michael



 
 
Jørn Andersen (02-07-2001)
Kommentar
Fra : Jørn Andersen


Dato : 02-07-01 18:06

On Mon, 2 Jul 2001 18:40:55 +0200, "Michael Maymann"
<maymann@jubiipost.dk> wrote:


Hej Michael,

>Jeg vil oprette en dynamisk menu som selv udvider sig udfra
>directory-strukturen :
<SNIP>

>Mit problem er nu at jeg ikke kan implementere denne problemstilling:
>Hvordan opdaterer hjemmesiden sig selv udfra directory-strukturen.

Du skal have fat i FileSystemObject (FSO). Se i VBScript-hjælpen under
"FileSystemObject User's Guide".

Måske kan denne funktion (som jeg ikke kan huske, hvor jeg har fra)
hjælpe dig. Den henter alle subfolders fra et givet sted.

<%
function GetSubFolder(sti)
   Response.Write sti & "<BR>"
   if right(sti,1) <> "/" Then
      sti = sti + "/"
   End if

   set fs = CreateObject("Scripting.FileSystemObject")
   set f = fs.GetFolder(Server.MapPath(sti))

   Set fc = f.SubFolders
   For Each f1 in fc
      NySti = sti & f1.name
      GetSubFolder(NySti)
   Next
   set fs = nothing
   set f = nothing
   set fc = nothing
End function

GetSubFolder(".")

%>

I stdet for at udskrive, skal du så formentlig gemme i nogle variable
(et array), som du kan arbejde videre med.


Good luck,
Jørn

--
Jørn Andersen
Brønshøj

Jørn Andersen (02-07-2001)
Kommentar
Fra : Jørn Andersen


Dato : 02-07-01 18:10

On Mon, 02 Jul 2001 19:05:54 +0200, Jørn Andersen <jorn.a@email.dk>
wrote:

>Du skal have fat i FileSystemObject (FSO). Se i VBScript-hjælpen under
>"FileSystemObject User's Guide".

Ups - jeg glemte helt, at du altså nok skal have fat i noget
serverside-scripting. Mit eksempel er med ASP, men jeg går ud fra, at
du kan lave noget lignende i PHP.

Good luck,
Jørn

--
Jørn Andersen
Brønshøj

Michael Maymann (02-07-2001)
Kommentar
Fra : Michael Maymann


Dato : 02-07-01 18:48

Tak for hjælpen jørn

"Jørn Andersen" <jorn.a@email.dk> wrote in message
news:3ka1ktsp7c87p1f88gf55qjqm04oigapjv@4ax.com...
> On Mon, 02 Jul 2001 19:05:54 +0200, Jørn Andersen <jorn.a@email.dk>
> wrote:
>
> >Du skal have fat i FileSystemObject (FSO). Se i VBScript-hjælpen under
> >"FileSystemObject User's Guide".
>
> Ups - jeg glemte helt, at du altså nok skal have fat i noget
> serverside-scripting. Mit eksempel er med ASP, men jeg går ud fra, at
> du kan lave noget lignende i PHP.
>
> Good luck,
> Jørn
>
> --
> Jørn Andersen
> Brønshøj



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408883
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste