ASP.NET Menu

Besides family and software, my main interests are ...

	Klemid's Home

Accelerator for Outlook

Copy Outlook Contacts

Musik

Inspect the source code of the menu seen on the left side

See how the menu on the left side of my pages is implemented. It is done by an ASP.NET pagelet. Of course, you can buy a full-blown ASP.NET menu control like the ones found at www.asp.net, but those are not free and they are mostly overkill for a small web site having only one menu.

Although the code here works only for ASP.NET it would be an easy exercise the adapt it for pure ASP.

Pagelet code (navbar.ascx):

<table cellspacing="1" cellpadding="3" bgcolor="white" align=center> <% for i=0 to MenuEntry.GetUpperBound(0) %> <% if MenuEntry(i,0) = "" Then 'separator line%> <tr> <td bgcolor="#dedebe" height="1"> </tr> <tr> <td bgcolor="#dedebe" height="1"> </tr> <% else 'normal link %> <% if i > 0 AndAlso MenuEntry(i-1, 2) <> "" AndAlso MenuEntry(i, 2) = "" AndAlso MenuEntry(i-1, 3) Then 'submenu ends %> </table> <% end if %> <% bSubmenuStarting = (i > 0 AndAlso MenuEntry(i, 2) <> "" AndAlso MenuEntry(i, 3) AndAlso MenuEntry(i+1, 2) = "") %> <% if bSubmenuStarting Then %> <td bgcolor="#f2f2e6" > <table border="0" cellspacing="0" bgcolor="#ececd9"> <% end if %> <% if MenuEntry(i, 2) <> "" Then 'submenu entry %> <% if MenuEntry(i, 3) Then %> <tr> <td width="100%" bgcolor="#f2f2e6" <%= IIf(MenuEntry(i,1)=strCurrentPage, "style=""FONT-WEIGHT: bold""", "") %> > <font size="2"><nobr> <a href="<%= MenuEntry(i,1) %>" class="NavLink"><%= MenuEntry(i,0)%></a> </nobr></font> </td> </tr> <% End if%> <% else 'main menu %> <tr> <td bgcolor="#dedebe" height="18" <%= IIf(MenuEntry(i,1)=strCurrentPage, "style=""FONT-WEIGHT: bold""", "") %> > <nobr> <a href="<%= MenuEntry(i,1) %>" class="NavLink"><%= MenuEntry(i,0)%></a> </nobr> </td> </tr> <% end if %> <% end if %> <% next %> </table>

This page's code:

<%@ Page Language="VB" MasterPageFile="~/klemid.master" title="ASP.NET Menu" %>
<%@ import Namespace="system.io" %>

<asp:Content ID="Content2" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
    <div visible="false" runat=server>
        <asp:Label ID="Subtitle" runat="server" Text="Besides family and software, my main interests are ..."></asp:Label>
    </div>
    <br>
	<script id="fill" runat="server">
	    Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
	        Dim SReadToEnd As Stream
	        'read the pagelet
	        SReadToEnd = File.OpenRead(Page.MapPath(".\navbar.ascx"))
	        Dim SrReadToEnd As StreamReader = New StreamReader(SReadToEnd, _
	         System.Text.Encoding.ASCII)
	        'SrReadToEnd.BaseStream.Seek(0, SeekOrigin.Begin)
	        txtPagelet.Text = SrReadToEnd.ReadToEnd()
	        SrReadToEnd.Close()
	        'read this page
	        SReadToEnd = File.OpenRead(Page.MapPath(Page.Request.FilePath()))
	        SrReadToEnd = New StreamReader(SReadToEnd, System.Text.Encoding.ASCII)
	        'SrReadToEnd.BaseStream.Seek(0, SeekOrigin.Begin)
	        txtThisPage.Text = SrReadToEnd.ReadToEnd()
	        SrReadToEnd.Close()
	    End Sub
	</script>
	<!-- actual body goes here --><a name="Oben"></a>
	<p style="MARGIN-TOP: 10px; MARGIN-BOTTOM: 5px" align="center">
	Inspect the source code of the menu seen on the left side
	<P>
	<P>
	<hr>
	See how the menu on the left side of my pages is implemented. It is done by an 
	ASP.NET pagelet. Of course, you can buy a full-blown ASP.NET menu control like 
	the ones found at <A href="http://www.asp.net">www.asp.net</A>, but those are 
	not free and they are mostly overkill for a small web site 
	having only one menu.
	<P></P>
	<P>Although the code here works only for ASP.NET it would be an easy exercise the 
		adapt it for pure ASP.
	</P>
	<P>Pagelet code (navbar.ascx):</P>
	<P>
		<asp:TextBox id="txtPagelet" runat="server" Width="100%" Height="114px" TextMode="MultiLine" ReadOnly="True"></asp:TextBox></P>
	<P>This page's code:</P>
	<p></p>
	<asp:TextBox id="txtThisPage" runat="server" Width="100%" Height="114px" TextMode="MultiLine" DESIGNTIMEDRAGDROP="282" ReadOnly="True"></asp:TextBox>
	<P></P>
</asp:Content>