Ajouter des options a adrotator

Soyez le premier à donner votre avis sur cette source.

Snippet vu 9 135 fois - Téléchargée 36 fois

Contenu du snippet

ajouter un texte sous adrotator, mais on peut ajouter ce qu'on veut (autres textes, miniatures...)

adrotator pour asp net est la suite de celui de asp 3 mais au lieu de lire un fichier texte il lit un fichier xml

Source / Exemple :


' le fichier XML classique :
<Advertisements>
	<Ad>
		<ImageUrl>..\images\aleas\a0.jpg</ImageUrl>
		<NavigateUrl>..\default.aspx?cat=40</NavigateUrl>
		<AlternateText>produits</AlternateText>
		<Keyword>prod</Keyword>
		<Impressions>100</Impressions>
	</Ad>
	<Ad>
		<ImageUrl>..\images\aleas\a1.jpg</ImageUrl>
		<NavigateUrl>..\default.aspx?cat=41</NavigateUrl>
		<AlternateText>publications</AlternateText>
		<Keyword>publi</Keyword>
		<Impressions>100</Impressions>
	</Ad>
</Advertisements>

' version avec ajout personnalisé : on met un Titre puis enregistrer sous entree.xml

<Advertisements>
	<Ad>
		<ImageUrl>..\images\aleas\a0.jpg</ImageUrl>
		<NavigateUrl>..\default.aspx?cat=40</NavigateUrl>
		<AlternateText>produits</AlternateText>
		<Keyword>prod</Keyword>
		<Impressions>100</Impressions>
		<Titre>titre un</Titre>
	</Ad>
	<Ad>
		<ImageUrl>..\images\aleas\a1.jpg</ImageUrl>
		<NavigateUrl>..\default.aspx?cat=41</NavigateUrl>
		<AlternateText>publications</AlternateText>
		<Keyword>publi</Keyword>
		<Impressions>100</Impressions>
		<Titre>titre deux</Titre>
	</Ad>
</Advertisements>

' dans la page.aspx le rotator et un label pour recevoir le titre

<asp:AdRotator id="rtEntree" runat="server" CssClass="rtEntree" OnAdCreated="rotate_AdCreated"></asp:AdRotator>
<asp:label id="lblRotator" runat="server" CssClass="lblRotator"></asp:label>

'dans la page.vb

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

 ' adresse du fichier xml
rtEntree.AdvertisementFile = "rotate\entree.xml"

end sub

 Public Sub rotate_AdCreated(ByVal sender As System.Object, ByVal e As AdCreatedEventArgs) Handles rtEntree.AdCreated

        lblRotator.Text = e.AdProperties("Titre").ToString
	' on ajoute la fonction qui lit le texte

    End Sub

Conclusion :


on peut ainsi etendre simplement les besoisn rotatifs ... ;-))

A voir également

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.