Tags html (head body form) dynamiquement remplis ou crees
Soyez le premier à donner votre avis sur cette source.
Snippet vu 10 360 fois - Téléchargée 43 fois
Contenu du snippet
on peut demarrer une page aspx a zero, ici ce n'est pas tout a fait a zero mais le principe est le meme
Source / Exemple :
lapage.aspx (pour ceux qui n'utilisent pas visual studio remplacer codebehind par src)
-----------------------------------------------------------------------------------------------------
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="lapage.aspx.vb" Inherits="monespace.lapage"%>
<HTML>
<HEAD id="Head" runat="server">
<title id="title" runat="server"></title>
<meta name="keywords" content="" id="keywords" runat="server"></meta>
<meta name="description" content="" id="description" runat="server"></meta>
<meta name="robots" content="" id="robots" runat="server"></meta>
<meta HTTP-EQUIV="imagetoolbar" content="" id="imagetoolbar" runat="server"></meta>
<LINK href="" type='text/css' rel='stylesheet' id="Style_1" runat="server"></LINK>
</HEAD>
<BODY id="Body" runat="server">
<form id="Frm" method="post" runat="server">
</form>
</BODY>
</HTML>
-----------------------------------------------------------------------------------------------------
lapage.aspx.vb
-------------------------------------------------------------------------------------------------------
Imports System.Web.UI.HtmlControls
et dans le page load
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
title.InnerText = "un titre tres texto"
keywords.Attributes("content") = "des,mots,clefs"
description.Attributes("content") = "comment tout ca qu'on fait"
robots.Attributes("content") = "INDEX,FOLLOW"
imagetoolbar.Attributes("content") = "yes"
style_1.Attributes("href") = "Styles/Test.css"
Body.Attributes.Add("scroll", "no")
Dim plh As New PlaceHolder()
Frm.Controls.Add(plh)
Dim lit As New Literal()
Dim h As New System.Web.UI.HtmlControls.HtmlAnchor()
h.Name = "Haut"
lit.Text = title.InnerText + "<br/>"
Dim i As Int32
For i = 0 To 40
lit.Text += i.ToString + "<br/>"
Next
Dim hp As New HyperLink()
hp = CreeAncre()
plh.Controls.Add(h)
plh.Controls.Add(lit)
plh.Controls.Add(hp)
End Sub
Public Function CreeAncre(Optional ByVal Page As String = "default.aspx", Optional ByVal ou As Boolean = True) As HyperLink
Page = "tete.aspx"
Dim hp As New HyperLink()
Dim ancre As String
If ou Then
ancre = "Haut"
Else
ancre = "Bas"
End If
hp.NavigateUrl = Page + "#" + ancre
hp.Text = ancre ' dans la langue
Return hp
End Function
A voir également
- Tags html (head body form) dynamiquement remplis ou crees
- Javascript : Gestion d'onglets en html + mise à jour dynamique du contenu des onglets ! - Cod - Guide
- Javascript : Sélectionner des éléments en fonction de leur classe et tags html - Guide
- Javascript : Tri décroissant et croissant d'un tableau dynamique remplie par un internaute - - Guide
- C# / .NET : Supprimer les tags html dans un texte (StripHTML) - CodeS SourceS - Guide
- Java : Supprimer les tags html dans un texte (StripHTML) - CodeS SourceS - Guide
Commentaire
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.