Accueil > > > ASP - EXEMPLE SIMPLE DE GÉNÉRATION DE FLUX RSS
ASP - EXEMPLE SIMPLE DE GÉNÉRATION DE FLUX RSS
Information sur la source
Description
Dans cet exemple, nous utiliserons une connexion ODBC dont le DSN est déclaré sur le serveur. La Table possède les champs suivant : - ID : Id de la nouvelle en cours - AUTEUR : Auteur de la nouvelle en cours - DATENEWS : Date de la nouvelle en cours - MESSAGE : Message de la nouvelle
Source
- <%
- Set objconn= server.CreateObject("ADODB.connection")
- Set objrec=Server.CreateObject("ADODB.recordset")
- objconn.open "DSNNouvelles"
-
- SQL = "SELECT * FROM NOUVELLES ORDER BY DATENEWS DESC"
-
- objrec.ActiveConnection = objconn
- objrec.Source = SQL
- objrec.CursorType = 0
- objrec.CursorLocation = 2
- objrec.LockType = 3
- objrec.Open()
-
- if Not Objrec.eof Then
- Response.Charset = "UTF-8"
- response.ContentType = "text/xml"
- xml = "<?xml version=""1.0"" encoding=""UTF-8""?><rss version=""2.0""><channel>"
- xml = xml &"<title>Exemple de flux RSS en ASP</title>"
- xml = xml &"<link>http://www.aspfr.com</link>"
- xml = xml &"<description>Les dernières nouvelles</description>"
- xml = xml &"<managingEditor>adressemail@fournisseur.com</managingEditor>"
- xml = xml &"<language>fr</language>"
- xml = xml &"<generator>ASPFR</generator>"
- xml = xml &"<copyright>ASPFR</copyright>"
- xml = xml &"<webMaster>ASPFR Webmaster</webMaster>"
- While not Objrec.eof
- id = objrec("ID")
-
- titre = objrec("AUTEUR") &" - Nouvelle Du Site"
- news = trim(objrec("MESSAGE"))
- news = replace(news, "<BR>", "<BR/>")
- news = replace(news, "&", "&")
- news = replace(news, "<", "<")
- news = replace(news, ">", ">")
-
- xml = xml &"<item>"
- xml = xml &"<author>"& objrec("AUTEUR") &"</author>"
- xml = xml &"<title>"& titre &"</title>"
- xml = xml &"<link>http://VotreSiteWeb/VotrePagedeLecture.asp?ValeurID="& id &"</link>"
- xml = xml &"<pubDate>"& objrec("DATENEWS") &" GMT</pubDate>"
- xml = xml &"<guid>http://VotreSiteWeb/VotrePagedeLecture.asp?ValeurID="& id &"</guid>"
- xml = xml &"<comments>http://VotreSiteWeb/VotrePagedeLecture.asp?ValeurID="& id &"</comments>"
- xml = xml &"<description>"
-
- xml = xml &" news
-
- xml = xml &"</description></item>"
- objrec.movenext
- Wend
-
- xml = xml &"</channel></rss>"
- Response.Write xml
- End If
- %>
<%
Set objconn= server.CreateObject("ADODB.connection")
Set objrec=Server.CreateObject("ADODB.recordset")
objconn.open "DSNNouvelles"
SQL = "SELECT * FROM NOUVELLES ORDER BY DATENEWS DESC"
objrec.ActiveConnection = objconn
objrec.Source = SQL
objrec.CursorType = 0
objrec.CursorLocation = 2
objrec.LockType = 3
objrec.Open()
if Not Objrec.eof Then
Response.Charset = "UTF-8"
response.ContentType = "text/xml"
xml = "<?xml version=""1.0"" encoding=""UTF-8""?><rss version=""2.0""><channel>"
xml = xml &"<title>Exemple de flux RSS en ASP</title>"
xml = xml &"<link>http://www.aspfr.com</link>"
xml = xml &"<description>Les dernières nouvelles</description>"
xml = xml &"<managingEditor>adressemail@fournisseur.com</managingEditor>"
xml = xml &"<language>fr</language>"
xml = xml &"<generator>ASPFR</generator>"
xml = xml &"<copyright>ASPFR</copyright>"
xml = xml &"<webMaster>ASPFR Webmaster</webMaster>"
While not Objrec.eof
id = objrec("ID")
titre = objrec("AUTEUR") &" - Nouvelle Du Site"
news = trim(objrec("MESSAGE"))
news = replace(news, "<BR>", "<BR/>")
news = replace(news, "&", "&")
news = replace(news, "<", "<")
news = replace(news, ">", ">")
xml = xml &"<item>"
xml = xml &"<author>"& objrec("AUTEUR") &"</author>"
xml = xml &"<title>"& titre &"</title>"
xml = xml &"<link>http://VotreSiteWeb/VotrePagedeLecture.asp?ValeurID="& id &"</link>"
xml = xml &"<pubDate>"& objrec("DATENEWS") &" GMT</pubDate>"
xml = xml &"<guid>http://VotreSiteWeb/VotrePagedeLecture.asp?ValeurID="& id &"</guid>"
xml = xml &"<comments>http://VotreSiteWeb/VotrePagedeLecture.asp?ValeurID="& id &"</comments>"
xml = xml &"<description>"
xml = xml &" news
xml = xml &"</description></item>"
objrec.movenext
Wend
xml = xml &"</channel></rss>"
Response.Write xml
End If
%>
Conclusion
Bon coding
Romelard Fabrice (Alias F___)
Historique
- 23 août 2004 23:48:39 :
- Correction de petites erreurs.
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
génération HTML d'après XML [ par chris53 ]
Je dois générer doit marcher pour tous les navigateurs... Les données sont présentes dans un fichier XML.Je souhaite donc générer le document HTML côt
RSS et publication [ par gyzmo222 ]
Salut,Mon problème n'est surement pas très compliqué mais je ne m'y connais vraiment pas en rss.J'ai réussi à créer un r
flux rss sur page .asp [ par sliverdust ]
Bonjour,j'ai utilisé le script Générer un flux RSS en asp3.En utilisant le script que j'ai légèrement modifier pour l'adapter à mon cas(base access).
Génération d'XML avec ASP.net via une BDD [ par fabienfs ]
Bonjour, J'ai conçu une galerie produits en Flash et j'ai besoin de récupérer dynamiquement des donnés via du XML. Pour l'instant mes données sont don
rss et asp [ par drjey ]
Salut j'aimerais savoir comment faire construire une page rss avec des elements tires d'une base de donnee.C'est a dire un fichier rss (xml) qui soit
xml [ par imedgamra ]
bonjour,je veux créer un flux rss qui s'affiche sur le bureau j'ai installé un lecteur rss(infoscape 1.7) je sais bien que ce lecteur doit consulter u
Géréner de l'RSS en ASP : l'extension peut-elle être XML [ par gipp ]
Bonjour,Lorque je génére de l'RSS en ASP, l'extension de l'URL est naturellement ".asp" !Je souhaiterai savoir comment faire si je désire que mon URL
[ASP][XML] probleme lecture du fichier xml [ par dragonrunne ]
Salut,j'ai un soucis avec ce code : dir = Server.MapPath("..\") Set objxlang= Server.CreateObject("Microsoft.XMLDOM") xml_lang="http://www.pl
fichier xml [ par marmarak ]
miraje suis en train de realiser une application qui consiste a creer un fichier xml pour afficher un flux rss , je veux savoir si ce fichier sera mis
XML [ par imedgamra ]
Bonjourje code en php pour créer un fichier xml , les informations de ce fichier sont récupérées d'uune base de donnée ,je veux savoir si ce fichier s
|
Derniers Blogs
XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Forum
RE : FORMULAIRERE : FORMULAIRE par ap24dp
Cliquez pour lire la suite par ap24dp RE : FORMULAIRERE : FORMULAIRE par jopop
Cliquez pour lire la suite par jopop RE : FORMULAIRERE : FORMULAIRE par ap24dp
Cliquez pour lire la suite par ap24dp RE : FORMULAIRERE : FORMULAIRE par jopop
Cliquez pour lire la suite par jopop
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|