Hej.
Jeg er igang med at hente noget data ud fra en database.
Jeg har lavet en menu der henter data ud fra en databvase på
følgende måde med en rekursiv funktion.
'' Kører SQL og gemmer data som kommasepareret liste
strSQL = "Select * from tblTags where (tblTags.[public] > " &
SafeSQL(session("qUserGroup") -1) & ") order by tblTags.[tag]"
Set rs = Conn.Execute(strSQL)
Do while not rs.eof
arrUID = arrUID & "," & rs("UID")
arrTag = arrTag & "," & rs("tag")
arrOwner = arrOwner & "," & rs("ownerUID")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
Conn.Close
Set Conn = Nothing
arrUID = split(arrUID,",")
arrTag = split(arrTag,",")
arrOwner = split(arrOwner,",")
qTempElement = 0
function Tags(startTag,levels,helptext)
for i = lbound(arrUID) +1 to ubound(arrUID)
if arrOwner(i) +0 = startTag +0 then
select case levels
case 0
TempLevel = ""
case 1
TempLevel = "class='child1'"
case 2
TempLevel = "class='child2'"
case else
TempLevel = "class='child3'"
end select
prt "<a href='#' title='" & utf9(cPageTags & helptext & "
--> " & arrTag(i)) & "' " & TempLevel & "
onclick='ToogleDisplay(" & qTempElement & ",""" & qPath &
"view.asp?type=tag&uid=" & arrUID(i) & """);'>" & utf9(arrTag(i))
& "</a>"
prt "<div id='l" & qTempElement & "' style='display:none'>"
qTempElement = qTempElement + 1
prt Tags(arrUID(i),levels+1,helptext & " --> " & arrTag(i))
prt "</div>"
end if
next
end function
prt Tags(0,0,"")
Det virker fint og man kan åbne og lukke de enkelte punkter.
På den enkelte side skal man så vise det aktuelle menupunkt og
alle undermenupunkter.
Samtisig med at den henter de enkelte punkter ud skal den også
sortere dem som det er i menuen.
Test mærke 1
Test mærke 2
.. Test mærke 4
.. . Test mærke 5
.. Test mærke 6
Test mærke 3
Hvis man vælger mærke 1 vises kun billeder herfra.
Vælger man mærke 2 skal alle punkter i mærke 2 vises.
Derefter skal der vises alle punkter i mærke 4.
Under mærke 4 skal mærke 5 vises.
Til slut skal der vises mærke 6.
Jeg vil vise det på følgende måde:
Mærke 2:
Billede 1, billede 2, billede 3, ect
Mærke 4:
Billede 4, billede 5, billede 6, ect
Mærke 5:
Billede 7, billede 8, billede 9, ect
Mærke 6:
Billede 10, billede 11, billede 12, ect
MVH
Christian
--
Vil du lære at kode HTML, XHTML, CSS, SSI, ASP eller ASP.NET?
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! =>
http://www.html.dk/tutorials