Hvis du får overleveret et PageID fra adresselinien, kan venstremenuen klares således:
Det er faktisk en temmelig omstændelig proces :-) Hvert fald som jeg løser det... men det kan sikkert gøres smartere...
Du skal først finde antallet af niveauer og deres ID-numre.
if request(PageID) <> "" then
'finder ud af antallet af niveauer og deres ID-numre
Set rsOpslag = MyConn.Execute("SELECT * FROM Pages WHERE PageId = "& PageID &"")
strParent = ""& rsOpslag("PageID") &"§"
strParent = strParent & ""& GetParent(rsOpslag("ParentPageID")) &""
'§-tegnet er skrevet mellem alle tal
'vi fjerner det sidste §
strParent = left(strParent,len(strParent)-1)
'hvornår kommer der et §-tegn (fra højre)?
LastSign = InStrRev(strParent,"§")
'hvis der er ikke er noget §-tegn, er der klikket på et niveau0-link
if LastSign = 0 then
LevelOneID = strParent
LevelTwoID = ""
else
'ParentID er det sidste tal
LevelOneID = Mid(strParent,LastSign+1)
'Niveau2 er det næstsidste tal
'vi fjerner LevelOneID og det sidste §
strParent = left(strParent,len(strParent)-(len(LevelOneID)+1))
'sætter tilgæld et § ind i starten
strParent = "§" & strParent
'hvornår kommer der et §-tegn (fra højre)?
LastSign = InStrRev(strParent,"§")
'Niveau2 er nu det sidste tal
LevelTwoID = Mid(strParent,LastSign+1)
'hvis længden af strParent nu er længere end en karakter (altså §)
'så er der også et niveau3
if len(strParent) > 1 then
'Niveau3 er det næstsidste tal
'vi fjerner LevelTwoID og det sidste §
strParent = left(strParent,len(strParent)-(len(LevelTwoID)+1))
'hvornår kommer der et §-tegn (fra højre)?
LastSign = InStrRev(strParent,"§")
'Niveau3 er nu det sidste tal
LevelThreeID = Mid(strParent,LastSign+1)
'hvis længden af strParent nu er længere end en karakter (altså §)
'så er der også et niveau4
if len(strParent) > 1 then
'Niveau4 er det næstsidste tal
'vi fjerner LevelThreeID og det sidste §
strParent = left(strParent,len(strParent)-(len(LevelThreeID)+1))
'hvornår kommer der et §-tegn (fra højre)?
LastSign = InStrRev(strParent,"§")
'Niveau4 er nu det sidste tal
LevelFourID = Mid(strParent,LastSign+1)
end if
end if
end if
rsOpslag.Close
Set rsOpslag = Nothing
end if
I ovenstående bruges en rekursiv funktion, der hedder GetParent. Den ser således ud:
Function GetParent(Id)
Dim strParent
'finder niveau0 til den aktuelle side, hvis et ID er angivet
SQL = "SELECT PageID,ParentPageID FROM Pages WHERE (PageID = "& Id &")"
Set oRS = MyConn.Execute(SQL)
If oRS.EOF Or oRS.BOF OR (Id = 0) then
strParent = ""
Else
While not oRS.EOF
strParent = strParent & ""& oRS("PageID") &"§"
If not GetParent(oRS("ParentPageId")) = "" Then
strParent = strParent & GetParent(oRS("ParentPageId")) & ""
End If
oRS.MoveNext
wend
End If
oRS.Close
Set oRS = Nothing
GetParent = strParent
End Function
Når du således har fundet antallet af niveauer og deres ID-numre, så går du videre med:
SelectedPage = request("PageID")
if SelectedPage <> "" then
response.write "<div class=""menu"">"
response.write LevelTwo(SelectedPage)
response.write "</div>"
end if
Der kaldes en funktion, som hedder LevelTwo. Den ser således ud:
Function LevelTwo(PageID)
'vi finder niveau2 sider til den valgte side. De skrives i menuen
SQL = "SELECT * FROM Pages WHERE ParentPageID = "& LevelOneID &" "
Set rsLevelTwo = MyConn.Execute(SQL)
while not rsLevelTwo.eof
strLevelTwo = strLevelTwo & "<div class=""LevelTwo"">"
strLevelTwo = strLevelTwo & "<a href=""default.asp?PageID="& rsLevelTwo("PageID") &""""
if cint(rsLevelTwo("PageID")) = cint(request("PageID")) then
strLevelTwo = strLevelTwo & " class=""SelectedLevelTwo"""
end if
strLevelTwo = strLevelTwo & ">"& rsLevelTwo("Title") &""
strLevelTwo = strLevelTwo & "</a>"
strLevelTwo = strLevelTwo & "</div>"
if LevelTwoID <> "" then
if cint(LevelTwoID) = cint(rsLevelTwo("PageID")) then
strLevelTwo = strLevelTwo & ""& LevelThree(rsLevelTwo("PageID")) &""
end if
end if
rsLevelTwo.MoveNext
wend
rsLevelTwo.Close
Set rsLevelTwo = Nothing
LevelTwo = strLevelTwo
End Function
Bemærk, at hvis cint(LevelTwoID) = cint(rsLevelTwo("PageID")), så kaldes funktionen LevelThree, som til forveksling ligner
funktionen LevelTwo:
Function LevelThree(PageID)
'vi finder undersider til den valgte. De skrives i menuen
SQL = "SELECT * FROM Pages WHERE ParentPageID = "& PageID &""
Set rsLevelThree = MyConn.Execute(SQL)
while not rsLevelThree.eof
strLevelThree = strLevelThree & "<div class=""LevelThree"">"
strLevelThree = strLevelThree & "<a href=""default.asp?PageID="& rsLevelThree("PageID") &""""
if cint(rsLevelThree("PageID")) = cint(request("PageID")) then
strLevelThree = strLevelThree & " class=""SelectedLevelThree"""
end if
strLevelThree = strLevelThree & ">• "& rsLevelThree("Title") &""
strLevelThree = strLevelThree & "</a>"
strLevelThree = strLevelThree & "</div>"
if LevelThreeID <> "" then
if cint(LevelThreeID) = cint(rsLevelThree("PageID")) then
strLevelThree = strLevelThree & ""& LevelFour(rsLevelThree("PageID")) &""
end if
end if
rsLevelThree.MoveNext
wend
rsLevelThree.Close
Set rsLevelThree = Nothing
LevelThree = strLevelThree
End Function
På tilsvarende vis kaldes her funktionen LevelFour. Og sådan kan man blive ved.... :-)
Fremhævningen af menupunktet sker ved tildeling af en css-class, fx class="SelectedLevelThree"
