GESTION DE L'ENTETE D'UNE PAGE ASPX

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim Header As New HtmlGenericControl

        Header = Me.FindControl("Header")

        Dim Head As New Cyril.Web.Utility.Head

        ''' Ces 5 methodes ajouterons aux mots clé : 
        ''' Bonjour , je , suis , Cyril

        Head.AddKeyWords("bonjour je suis Cyril", " ")

        Head.AddKeyWords("Bonjour,je,suis,Cyril")

        Dim array() As String = {"Bonjour", "je", "suis", "Cyril"}
        Head.AddKeyWords(array)

        Dim arraylist As New ArrayList
        arraylist.Add("Bonjour")
        arraylist.Add("je")
        arraylist.Add("suis")
        arraylist.Add("Cyril")

        Head.ClearKeywords()

        ''' Une autre méthode pour mettre les mots clés :
        ''' mais ca enleve tout ca qui sont deja présent
        Dim array2() As String = {"Bonjour", "je", "suis", "Cyril"}
        Head.KeyWords = array2


        Head.Title = "Titre de la page"
        Head.AddJsFile("cyril.js")
        Head.ClearJsFile()
        Head.AddJsFile("Function.js")
        Head.AddCssFile("Cyril.Css")
        Head.Author = "Cyril"
        Head.Lang = "fr"
        Head.Description = "Description du site"
        Head.ShortCut_Icon = "monicone.ico"
        Head.Content_Type = "text/html; charset=iso-8859-15" 'Valeur par defaut


        '''Dans notre cas on vide tout le contenu de l'entete
        ''' et on met ce qu'on vient de faire
        ''' pour ajouter on ferais &=
        Header.InnerHtml = Head.HeaderContent

        ''' C'est bien beau tout ca mais dans la plupart des cas
        ''' On aimerais bien avoir à faire ce travail qu'une fois 
        ''' pour la plupart des propriétés
        ''' et ce qui serait top c'est qu'on changerais ces valeurs qu'une seule fois
        ''' et ce serait pris en compte dans les autres pages
        ''' 
        ''' A ce problème il existe une solution (comme tout pb d'ailleur)
        ''' nous allons serialiser tout ca :)
        Dim oXMLserialiser As New XmlSerializer(GetType(Cyril.Web.Utility.Head))
        Dim osW As New System.IO.StreamWriter(Server.MapPath("head.xml"))
        oXMLserialiser.Serialize(osW, Head)
        osW.Close()
        ''' La serialisation est finit nous avons traduit notre classe dans un fichier xml


' Mettez ca dans une autre page aspx 

        ''' il suffit alors de deserialiser dans les autres pages 
        ''' et on aura exactement les memes propriétés que dans la premiere page

        'Déserialisons

        'Dim Head As Cyril.Web.Utility.Head

        'Dim oxmlserialiser As New XmlSerializer(GetType(Cyril.Web.Utility.Head))
        'Dim osW As New System.IO.StreamReader(Server.MapPath("head.xml"))
        'Head = CType(oxmlserialiser.Deserialize(osW), Cyril.Web.Utility.Head)

        'osW.Close()

        'Header.InnerHtml = Head.HeaderContent

    End Sub