<% option explicit %> Nouvelle page 1 <% const NAVBAR_HORIZONTAL = 0 ' Default const NAVBAR_VERTICAL = 1 Class NavBar ' Creating a private property using Get, Let, Set Private fOrientation Private fId ' XML ID Private fLinks Private fHeadWritten Public LinkBase '-- Constructor / Destructor -------------------- Private Sub Class_Initialize () fOrientation = NAVBAR_HORIZONTAL fHeadWritten = False fID = Empty set fLinks = CreateObject ("Scripting.Dictionary") 'Response.Write "

In initialize

" & vbCRLF End Sub Private Sub Class_Terminate () 'Response.Write "

In terminate

" & vbCRLF End Sub '-- Orientation ---------------------------------- Public Property Get Orientation() Orientation = fOrientation End Property Public Property Let Orientation(o) if (o = NAVBAR_VERTICAL) then fOrientation = o else fOrientation = NAVBAR_HORIZONTAL end if End Property '-- X(HT)ML ID --------------------------------------------------------------- Public Property Get ID() ID = fID End Property Public Property Let ID(value) ' En l'etat, c'est inutile, mais il est possible d'y ajouter un code de ' controle de validite de l'ID demande fID = value End Property '-- style output ---------------------------------- Public Sub WriteStyleHeader (byVal includeStyleElement) Const csBaseSelector = ".navH" Dim sBaseSelector sBaseSelector = csBaseSelector ' if not isEmpty (fID) then sBaseSelector = sBaseSelector & "#" & fID ' end if if includeStyleElement then Response.Write "" & vbCRLF Response.Write "" & vbCRLF end if end sub '-- Write the navbar out -------------------------- Public Sub Write () Dim i Dim ar ar = fLinks.Keys Response.Write "" & vbCRLF if fOrientation = NAVBAR_HORIZONTAL then Response.Write " " & vbCRLF for i = 0 to fLinks.Count - 1 Response.Write " " & vbCRLF next Response.Write " " & vbCRLF else for i = 0 to fLinks.Count - 1 Response.Write " " & vbCRLF next end if Response.Write "

" & fLinks(ar(i)) & "

" & vbCRLF End Sub Public Sub Add (byVal key, byVal value) dim ar fLinks.Add key, value End Sub '-- Exemple de Set (pour les objets) -- ' Public Property Set Guru(objGuru) ' Dim mobjGuru ' Set mobjGuru = objGuru ' End Property End Class '==================================================== dim nb set nb = new NavBar with nb .Orientation = NAVBAR_HORIZONTAL .LinkBase = "https://www4.osinet.fr" .Add "/", "Accueil" .Add "/press/", "Actualités" .Add "https://osinet.fr/contact", "Contacts" .Add "/osi/job.htm", "Emploi" .Add "/search.asp", "Rechercher" End with %>

Navigation

horizontale

<% nb.ID = "prems" nb.Write %>

Verticale

<% nb.ID = "deuze" nb.Orientation = NAVBAR_VERTICAL nb.Write %>

Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte. Un peu de texte.

<% nb.ID = "prems" nb.Orientation = NAVBAR_HORIZONTAL nb.Write %>

<% set nb = nothing %>