nu kan jag börja ägna mig åt presentationen av menyn koden för sidan som bygger upp menyn finns i kodavsnittet nedan, och det den gör är att gå igenom alla Huvudkategorier, och för varje kategori så kollar den om det finns några underkategorier med samma parentID som huvudkategorins id. Gör det det, så skriver den först ut huvudmenyn, och sedan undermenyerna fast med ett + famför dessa(+ Finns endast för testsyfte så att jag ser att det är en underkategori).
Nu ska menyn snyggas till, t.ex. så att man måste klicka på ett + vid huvudmenyn för att undermenyalternativen för den kategorin ska visas. Jag tänkte, går det inte att göra ett + som en länk, och lägga på typ ?catsubmenu=catid
alltså, id't för huvudkategorin, och om det finns request.querystring("catid") så visas underalternativen för huvudkategorin för just det ID't.
Jag börjar testa mig fram, kom gärna med synpunkter ^^
här kommer koden:
slängde ihop den här länken, får se hur det går!: <a target='_self' href='main.asp?catid='"& RecSet("KategoriID") &"'>+</a>
Nu ska menyn snyggas till, t.ex. så att man måste klicka på ett + vid huvudmenyn för att undermenyalternativen för den kategorin ska visas. Jag tänkte, går det inte att göra ett + som en länk, och lägga på typ ?catsubmenu=catid
alltså, id't för huvudkategorin, och om det finns request.querystring("catid") så visas underalternativen för huvudkategorin för just det ID't.
Jag börjar testa mig fram, kom gärna med synpunkter ^^
här kommer koden:
Kod:
<table width="120" border="0" align="left" cellpadding="3" cellspacing="2" class="menu"> <tr> <td align="left" valign="middle" class="MenuItem" style="cursor: hand;" onmouseover="this.style.backgroundColor='#FFFFFF';" onmouseout="this.style.backgroundColor='';" onClick="document.location='main.asp'"><strong><a href="main.asp" target="_self"> Startsidan</a></strong></td> </tr> <% 'IF nTYP = 0 And Session("VisaPris") <> False Then %> <% IF Session("VisaPris") <> False Then %> <tr> <td align="left" valign="middle" class="MenuItem" style="cursor: hand;" onmouseover="this.style.backgroundColor='#FFFFFF';" onmouseout="this.style.backgroundColor='';" onClick="document.location='forfragan.asp'"><strong><%= "<a href='forfragan.asp' target='_self'><font color='#999999'>e</font>Offert</a><br>" %></strong></td> </tr> <% End IF Sel = "Select * from Sidor Where Osynlig = False And Year(Datum) < 2100" RecSet.Open Sel, Connect if not recset.eof then RecSet.Movefirst Do Until RecSet.Eof IF RecSet("StartSida") = False And UCASE(RecSet("Namn")) <> "GSTEXT" Then %> <tr> <td align="left" valign="middle" class="MenuItem" style="cursor: hand;" onmouseover="this.style.backgroundColor='#FFFFFF';" onmouseout="this.style.backgroundColor='';" onClick="document.location='page.asp?s=<%= RecSet("ID") %>';"><strong> <% Response.Write("<a href='page.asp?s=" & RecSet("ID") & "' target='_self'>" & RecSet("Namn") & "</a><br>") %> </strong></td> </tr> <% End IF RecSet.MoveNext Loop end if RecSet.Close %> <tr> <td align="left" valign="middle" class="MenuItem" style="cursor: hand;" onmouseover="this.style.backgroundColor='#FFFFFF';" onmouseout="this.style.backgroundColor='';" onClick="document.location='stadmin/logout.asp';"><strong><a href="stadmin/logout.asp" target="_self" title="Logga alltid ut så att obehöriga inte kan visa sidan.">Logga ut</a> </strong></td> </tr> <tr> <td align="left" valign="middle"> <strong><br> Kategorier</strong></td> </tr> <% response.write("Grenställsoffert: " & Session("GrenstallOffert")) ' Kolla om användare har rättighet att se offert i menyn IF Session("GrenstallOffert") = TRUE THEN %> <tr> <td align="left" valign="middle" class="MenuItem" onmouseover="this.style.backgroundColor='#FFFFFF';" onmouseout="this.style.backgroundColor='';" style="cursor: hand;" onClick="document.location='grenstall.asp'">· <a href="grenstall.asp" target="_self">Grenställ (offert)</a></td> </tr> <% END IF IF nTYP = 0 or nTYP = 2 Then 'Nummer1 Sel = "Select * from Kategorier Where Osynlig = False Order By pos_cat"' hämtar Kategorier RecSet.Open Sel, Connect if not RecSet.Eof then 'Nummer2 RecSet.Movefirst Do Until RecSet.Eof Sel2 = "Select ID, parentID, namn, beskrivning from Underkategorier Where parentID =" & RecSet("KategoriID") %> <tr> <td align="left" valign="middle" class="MenuItem" onmouseover="this.style.backgroundColor='#FFFFFF';" onmouseout="this.style.backgroundColor='';" onClick="document.location='products.asp?cat=<%= RecSet("KategoriID") %>'" style="cursor: hand;"> <% RecSet2.Open Sel2, Connect IF NOT RecSet2.EOF THEN Response.Write("<a target='_self' href='main.asp?catid='"& RecSet("KategoriID") &"'>+</a> <a href='products.asp?cat=" & RecSet("KategoriID") & "' target='_self'>" & RecSet("KategoriNamn") & "</a>") & vbcrlf ELSE Response.Write("· <a href='products.asp?cat=" & RecSet("KategoriID") & "' target='_self'>" & RecSet("KategoriNamn") & "</a>") & vbcrlf END IF %> </td> </tr> <% if not RecSet2.Eof and Request.QueryString("catid") = RecSet("KategoriID") then 'Nummer3 RecSet2.Movefirst IF RecSet2("parentID") = RecSet("KategoriID") THEN'Nummer4 Do Until RecSet2.Eof %> <tr> <td align="left" valign="middle" class="MenuItem" onmouseover="this.style.backgroundColor='#FFFFFF';" onmouseout="this.style.backgroundColor='';" onClick="document.location='products.asp?undercat=<%= RecSet2("ID") %>'" style="cursor: hand; padding-left: 6px;"> <% Response.Write("- <a href='products.asp?undercat=" & RecSet2("ID") & "' target='_self'>" & RecSet2("namn") & "</a>") & vbcrlf %> </td> </tr> <% RecSet2.Movenext Loop End IF'Nummer4 End IF'Nummer3 RecSet2.Close RecSet.MoveNext Loop end if'Nummer2 RecSet.Close End IF 'Nummer1 IF Session("VisaPris") = False Then %> <tr> <td><font size="1"><br> Hej <%= Session("AnvNamn") %>, du är inloggad som gäst och inga priser kommer att visas på sidan.</font></td> </tr> <% End IF %> </table>
Kommentera