[VB.NET] Comment modifier le head et le body d'une page aspx

**Immobilis** · 12/12/2005, 14h35

Salut,
Je souhaite modifier le <HEAD> de ma page pour y mettre du javascript.
Je suis allé voir la FAQ et ai tenté d'adapter le code.Comment modifier le head et le body d'une page aspx?
Je reçois l'erreur suivante:

Cannot get inner content of myHeader because the contents are not literal

De plus, on dirait qu'il a du mal à conserver l'attribut "runat=server".

Qqn a-t-il une solution?

Merci

**neguib** · 12/12/2005, 14h38

Salut Immobilis
si tu catch quelle est la ligne de code qui lève l'exception

:

**Immobilis** · 12/12/2005, 14h48

Salut neguib,

Celle ci:

header.InnerHtml = header.InnerHtml + "<script language=""javascript"">function myfct{alert('Hello');}</script>"

Merci

**neguib** · 12/12/2005, 14h50

ok et pourquoi tu n'utilises pas plutôt le InnerHtml

:
Edit: ok tu as modifié je viens de le voir bon je regardes de mon côté et je te dis quoi

**neguib** · 12/12/2005, 15h57

Alors j'ai fait ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
   InitializeComponent()
   Me.head = CType(FindControl("head"), HtmlGenericControl)
   Me.head.InnerHtml += "<script language=""javascript"">function fctjavascript{alert('Hello');}</script>"
   Me.body = CType(FindControl("body"), HtmlGenericControl)
   Me.body.Attributes("onclick") = "fctjavascript()"
End Sub

Donc après execution, j'ai verifier le code de la page et tout à bien été ajouté. Cela est donc reglé apparemment avec le transtypage si tu confirme, je verrais à revoir l'article de la Faq ok

**Immobilis** · 12/12/2005, 16h15

Dans mon web form, je déclare:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<HEAD id="myHeader" runat=server>

dans le code behind

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Protected myHeader As HtmlGenericControl

Puis,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
        Try
            Me.myHeader = CType(FindControl("myHeader"), HtmlGenericControl)
            Me.myHeader.InnerHtml += "<script language=""javascript"">function fctjavascript{alert('Hello');}</script>"
 
        Catch ex As Exception
            Response.Write(ex.Message)
 
        End Try
 
    End Sub

Mais, j'ai tjrs la mm erreur.
Dans la mesure où "myHeader est déclaré comme "HtmlGenericControl" est-il utile de le convertir?

A+

**neguib** · 12/12/2005, 16h34

Envoyé par Immobilis

Dans la mesure où "myHeader est déclaré comme "HtmlGenericControl" est-il utile de le convertir?
A+

ce n'est pas header qui est transtyper mais bien le resultat de la fonction FindControl qui elle renvoit un Web.UI.Control
Mais le code peut être dans le Page_Load chez moi çà fonctionne toujours
Mon seul souci effectivement c'est de garder le runat=server dans le Head
Apparemment j'y arrive en fermant le designer avant generation quelconque

**Immobilis** · 12/12/2005, 16h52

Il y a des post sur le net à propos, voici deux liens.

http://www.c-sharpcorner.com/Code/20...SP.NETForm.asp

http://www.dotnet247.com/247referenc...27/135691.aspx

Ce dernier fait référence à l'attribut runat=3D"server". Cela te dit-il qqch?

A+

**neguib** · 12/12/2005, 17h00

Envoyé par Immobilis

Il y a des post sur le net à propos, voici deux liens.

http://www.c-sharpcorner.com/Code/20...SP.NETForm.asp

http://www.dotnet247.com/247referenc...27/135691.aspx

Ce dernier fait référence à l'attribut runat=3D"server". Cela te dit-il qqch?

A+

: désolé, faudrait qu'une pointure vienne à notre rescousse

**Immobilis** · 12/12/2005, 17h04

C'est qui la cavalerie?

En tous les cas, chez moi, ça change pas.
Il detecte 6 autres objets dans le controle <HEAD>:
1 <TITLE>
4 <META>
1 <LINK>
Cela pourrait-il être le pb?

Je viens de mp Neo51 qui est l'auteur de la FAQ.

A+

**neguib** · 12/12/2005, 17h15

Je sais pas je te mets tout ce que j'ai fait et qui fonctionne à toi de voir

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" Inherits="TestInnerHtml.WebForm1"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//FR">
<html>
 <head id="head" runat="server">
  <title>WebForm1</title>
  <meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
  <meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
  <meta name="vs_defaultClientScript" content="JavaScript">
  <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
 </head>
 <body id="body" runat="server" ms_positioning="GridLayout">
  <form id="Form1" method="post" runat="server">
  </form>
 </body>
</html>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Public Class WebForm1
 Inherits System.Web.UI.Page
 <System.Diagnostics.DebuggerStepThrough()> _
 Private Sub InitializeComponent()
 End Sub
 Protected WithEvents body As HtmlGenericControl
 Protected WithEvents head As HtmlGenericControl
 Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
  InitializeComponent()
 End Sub
 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Try
    Me.head = CType(Me.FindControl("head"), HtmlGenericControl)
    Me.head.InnerHtml += "<script language=""javascript"">function fctjavascript{alert('Hello');}</script>"
    Me.body = CType(Me.FindControl("body"), HtmlGenericControl)
    Me.body.Attributes("onclick") = "fctjavascript()"
    Response.Write("çà marche!")
  Catch ex As Exception
    Response.Write(ex.Message)
  End Try
 End Sub
End Class

resultat

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//FR">
<html>
 <head id="head">
  <title>WebForm1</title>
  <meta name="GENERATOR" content="Microsoft Visual Studio.NET 7.0">
  <meta name="CODE_LANGUAGE" content="Visual Basic 7.0">
  <meta name="vs_defaultClientScript" content="JavaScript">
  <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
  <script language="javascript">function fctjavascript{alert('Hello');}</script></head>
 <body id="body" ms_positioning="GridLayout" onclick="fctjavascript()">
   <form name="Form1" method="post" action="WebForm1.aspx" id="Form1">
<input type="hidden" name="__VIEWSTATE" value="blablabla ...=" />
   </form>
 </body>
</html>

**Gigottine** · 12/12/2005, 20h30

Salut,
Je ne sais pas si ca peut changer quelque chose mais moi pour retrouver le control j 'utilise :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

head = Page.FindControl("head")

à la place :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

head= ctype(me.FindControl("head"), HtmlGenericControl)

Et je suis comme vous le runat = "server" disparait comme par magie lors de la compilation de temps en temps

**Immobilis** · 12/12/2005, 21h17

J'ai copié collé ton code et ça marche pas... Sauf pour le body.

Va falloir trouver autre chose. La disparition du runat est peut-être symptomatique.

A+

PS : J'utilise le Framework 2.0. Il existe apparement un controle System.Web.UI.HtmlControls.HtmlHead mais VS2003 ne le reconnait pas.

**neo.51** · 13/12/2005, 11h24

Envoyé par Immobilis

PS : J'utilise le Framework 2.0. Il existe apparement un controle System.Web.UI.HtmlControls.HtmlHead mais VS2003 ne le reconnait pas.

tu ne peux pas utiliser le framework .NET 2.0 sous Visual Studio 2003.

La solution de la FAQ a été testé avec VS.NET 2003 et le framework .NET 1.1.

**Immobilis** · 13/12/2005, 11h46

Bon,

Je suis passé sous le Framework 1.1 et ça marche. Excellente compatibilité descendante

Envoyé par neo.51

tu ne peux pas utiliser le framework .NET 2.0 sous Visual Studio 2003.

Insaller le Framework 2.0 ne sert à rien alors?
Cela ne permet-il pas d'utiliser des composant du FW mis à jour?

Ou alors il faut se procurer obligatoirement VS2005... BIIIILLL

A+

**dymezac** · 21/11/2006, 12h01

Je sais que le post date un peu mais au cas ou d'autres aient le même problème,
vu que j'ai eu la même erreur même en suivant les indications de la faq et de ce post, voila comment j'arrive à faire (.NET 2.0 avec VS2005):

Code C# :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
protected HtmlHead head;
...
head = (HtmlHead)Page.FindControl("head");
HtmlLink link = new HtmlLink();
link.Attributes.Add("rel", "stylesheet");
link.Attributes.Add("type", "text/css");
link.Attributes.Add("href", "../style/monStyle.css");
head.Controls.Add(link);

et ça marche nickel

(c'est du C# par contre)

ça serait cool de le rajouter dans la faq si ça aide

CUCARACHA · 20/10/2007, 00h24

Salut

ça ça marche pas mal...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<title><%=strTitre%></title>

Il te suffit de déclarer la chaine strTitle en public dans la classe de la page...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
public strTitle as string
 
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
strTitle = "Mon titre"
    End Sub

Ca marche en VB et en C# en version 1.1 et 2.0

++

Laurent

[VB.NET] Comment modifier le head et le body d'une page aspx

ASP.NET

Discussions similaires

Partager

Partager