DCSIMG
οριζόντιο μενού σελίδων/υποσελίδων σε vb - Web programming - Προγραμματισμός - StudentGuru
  • Not Answered

οριζόντιο μενού σελίδων/υποσελίδων σε vb

Γειά σας

Ένα ερώτημα από έναν αρχάριο

Ο κώδικας που παραθέτω είναι από ένα οριζόντιο μενού σελίδων/υποσελίδων σε vb.

Αυτό που προσπαθώ να πετύχω είναι στη γραμμή που δημιουργείται το link να μπαίνει η κλάση active ώστε όταν είναι στη συγκριμένη σελίδα να φένεται με διαφορετικό χρώμα.

πχ

<a href="<%=FileName%>" class="dropdown-toggle active" data-hover="dropdown" data-delay="0" data-close-others="false">



Ο κώδικας μου είναι ο παρακάτω. Ευχαριστώ για τη βοήθεια.

<%@ Import Namespace="System.Data" %>

<%@ Import Namespace="System.Data.OleDb" %>

<%@ Import Namespace="Shop" %>

<script runat="server">

Public Function GetVisiblePages() As DataTable

Dim command As New OleDbCommand()

command.CommandType = CommandType.Text

command.Connection = DB.GetConnection()

command.CommandText = "SELECT * FROM Pages WHERE Pages.Visible = True ORDER BY Pages.Ordinal"

Dim adapter As New OleDbDataAdapter(command)

Dim dataTable As New DataTable()

adapter.Fill(dataTable)

Return dataTable

End Function

Public Function GetVisibleSubPages(ByVal parentId As Integer) As DataTable

Dim command As New OleDbCommand()

command.CommandType = CommandType.Text

command.Connection = DB.GetConnection()

command.CommandText = "SELECT * FROM SubPages WHERE SubPages.Visible = True AND ParentId = @ParentId ORDER BY SubPages.Ordinal"

command.Parameters.Add(New OleDbParameter("@ParentId", SqlDbType.Int)).Value = parentId

Dim adapter As New OleDbDataAdapter(command)

Dim dataTable As New DataTable()

adapter.Fill(dataTable)

Return dataTable

End Function

</script>

<ul class="nav navbar-nav navbar-left">

<li class="dropdown">

<a href="default.aspx" class=" " data-hover="dropdown" data-delay="0" data-close-others="false">

Αρχική
<i class="icon-angle-down"></i>
</a>

</li>

<% Dim pagesTable = GetVisiblePages()

For Each pagesRow As DataRow In pagesTable.Rows

Dim header As String = CStr(pagesRow("Header" & CX.Lang))

Dim pageId As Integer = pagesRow("PageId")

Dim FileName As String = CStr(pagesRow("FileName"))

%>

<li class="dropdown">

ψ

<%=Server.HtmlEncode(header)%>

<i class="icon-angle-down"></i>

</a>

<%Dim subpagesTable = GetVisibleSubPages(pageId)

If subpagesTable.Rows.Count > 0 Then%>

<ul class="dropdown-menu">

<% For Each subpagesRow As DataRow In subpagesTable.Rows

Dim subheader As String = CStr(subpagesRow("Header" & CX.Lang).ToString())

Dim SubFileName As String = CStr(subpagesRow("FileName"))

%>

<li><a href="<%=SubFileName%>"><%=Server.HtmlEncode(subheader)%></a></li>

<%

Next

%>

</ul>

<% End If%>

</li>

<%

Next

%>

</ul>