1. Accueil
  2. Tous les snippets
  3. Snippets ASP / ASP.NET
  4. Asp.net - exemple simple de génération de flux rss

Asp.net - exemple simple de génération de flux rss

Soyez le premier à donner votre avis sur cette source.

Snippet vu 13 958 fois - Téléchargée 33 fois

Commenter

Contenu du snippet

Dans le même principe que :
- http://www.aspfr.com/code.aspx?ID=25633

Nous prendrons le même exemple mais cette fois en ASP.NET (VB.NET). Nous enverrons la requette sur le serveur MySQL en direct sans avoir de DSN.

Source / Exemple : 


' --------------------------------------------------------------------------
' Le fichier RSSNouvelles.ASPX :
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="RSSNouvelles.aspx.vb" Inherits="VotreProjet.RSSNouvelles"%>

' --------------------------------------------------------------------------
' Le fichier RSSNouvelles.ASPX.VB :

Public Class RSSNouvelles
    Inherits System.Web.UI.Page

#Region " Code généré par le Concepteur Web Form "

     ' --------------------------------------------------------------------------
   'Cet appel est requis par le Concepteur Web Form.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    ' --------------------------------------------------------------------------
    'REMARQUE : la déclaration d'espace réservé suivante est requise par le Concepteur Web Form.
    'Ne pas supprimer ou déplacer.
    Private designerPlaceholderDeclaration As System.Object

    ' --------------------------------------------------------------------------
    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN : cet appel de méthode est requis par le Concepteur Web Form
        'Ne le modifiez pas en utilisant l'éditeur de code.
        InitializeComponent()
    End Sub

#End Region

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

        Dim TableRubriqueMessage As New DataTable
        Dim mRow As DataRow
        Dim LaChaine As New System.Text.StringBuilder
        Dim LaDescription As String

        ' ------------------------------
        ' Chargement des Données
        Dim SQL as String = "SELECT * FROM NOUVELLES ORDER BY DATENEWS DESC;"
        Dim MonDatasetTemp As DataSet 
        MonDatasetTemp = MyODBCDataset(SQL, "VotreBase", "VotreServeurMySQL", &_
        "VotrePassWord", "VotreLogin", "MaTable")

        context.Response.AddHeader("content-type", "text/xml")

        LaChaine.Append("<?xml version=""1.0"" encoding=""UTF-8""?>")
         LaChaine.Append ("<rss version=""2.0""><channel>" & vbCrLf)
        LaChaine.Append("<title>Exemple de flux RSS en ASP.NET</title>" & vbCrLf)
        LaChaine.Append("<link>http://www.asp-php.net</link>" & vbCrLf)
        LaChaine.Append("<description>Les dernières nouvelles</description>" & vbCrLf)
        LaChaine.Append("<language>fr</language>" & vbCrLf)
        LaChaine.Append("<generator>ASP-PHP</generator>" & vbCrLf)
        LaChaine.Append("<copyright>ASP-PHP</copyright>" & vbCrLf)
        LaChaine.Append("<webMaster>ASP-PHP Webmaster</webMaster>" & vbCrLf)

        If MonDatasetTemp.Tables("MaTable").Rows.Count > 0 Then
            For Each mRow In MonDatasetTemp.Tables("MaTable").Rows
                LaChaine.Append("<item>" & vbCrLf)

                LaChaine.Append("<author>" & mRow("AUTEUR") & "</author>" & vbCrLf)
                LaChaine.Append("<title>" & mRow("AUTEUR") & " - Nouvelles Du Site</title>" & vbCrLf)
                LaChaine.Append("<link>http://VotreSiteWeb/VotrePagedeLecture.aspx?ValeurID=")
                LaChaine.Append (mRow("ID") &"</link>" & vbCrLf)
                LaChaine.Append("<pubDate>" & mRow("DATENEWS") & "</pubDate>" & vbCrLf)
                LaChaine.Append("<guid>http://VotreSiteWeb/VotrePagedeLecture.aspx?ValeurID=")
                LaChaine.Append (mRow("ID") &"</guid>" & vbCrLf)
                LaChaine.Append("<comments>http://VotreSiteWeb/VotrePagedeLecture.aspx?ValeurID=")
                LaChaine.Append (mRow("ID") &"</comments>" & vbCrLf)

                LaDescription = Replace(Trim(mRow("MESSAGE")), "<br>", "<BR/>")
                LaDescription = Replace(LaDescription, "<BR>", "<BR/>")
                LaDescription = Replace(LaDescription, "&", "&amp;")
                LaDescription = Replace(LaDescription, "<", "<")
                LaDescription = Replace(LaDescription, ">", ">")

                LaChaine.Append("<description>" & LaDescription & "</description>" & vbCrLf)

                LaChaine.Append("</item>" & vbCrLf)
            Next
        End If
        LaChaine.Append("</channel></rss>" & vbCrLf)
        HttpContext.Current.Response.Write(LaChaine.ToString)
    End Sub

    ' --------------------------------------------------------------------------
    Public Shared Function MyODBCDataset(ByVal ReqSQL As String, ByVal LaBase As String, &_
    ByVal Server As String, ByVal Password As String, &_
    ByVal User As String, ByVal NomDataSet As String) As DataSet
    ' Connexion à un server MySQL avec le Driver ODBC 3.51 avec requette qui renvoie un dataset
        Dim MyConString As String = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=" 
        MyConString & = Server & ";DATABASE=" & LaBase & ";UID=" & User & ";PASSWORD=" 
        MyConString &= Password & ";OPTION=3;"
        Dim MyODBCConnexion As New OdbcConnection(MyConString)
        Try
            Dim ds As New DataSet()
            Dim cmd As OdbcDataAdapter = New OdbcDataAdapter(ReqSQL, MyConString)
            Dim MyCommand As New OdbcCommand()
            Dim MyDataReader As OdbcDataReader

            cmd.Fill(ds, NomDataSet)
            MyODBCConnexion.Close()
            Return ds
        Catch MyOdbcException As OdbcException
            ' HttpContext.Current.Response.Write(MyOdbcException.ToString)
        Catch MyException As Exception
            ' HttpContext.Current.Response.Write(MyException.ToString)
        End Try
    End Function

    ' -----------------------------------------------------
End Class

Conclusion :


Bon coding

Romelard Fabrice (Alias F___)

A voir également

Ajouter un commentaire

Commentaires

Signaler
Messages postés
822
Date d'inscription
vendredi 25 mai 2001
Statut
Modérateur
Dernière intervention
1 août 2014
A noter également la présence de cet article pour ceux qui désirent un article complet : http://www.dotnet-tech.com/tutoriels/rss/

Orion
Signaler
Messages postés
496
Date d'inscription
mercredi 30 juin 2004
Statut
Membre
Dernière intervention
29 juillet 2009
 1
Pas mal oui effectivement...
BOn code
G_____
S'inscrire maintenant

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.

Du même auteur (cs_fabrice69)