1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48
| <%@ Language=VBScript %>
<%
'9 Paramètres
RSS = "http://www.tf1.fr/xml/rss/0,,1,00.xml"
TitreRSS = "tf1.fr - France"
Prompt = "L'actualité en France..."
NomRSS = "tf1France"
'15 Requette Http pour récupérer la la rss en format text
Set xmlHttp = CreateObject("MSXML2.XMLHTTP.3.0")
xmlHttp.Open "Get", RSS, false
xmlHttp.Send()
RSSXML = xmlHttp.ResponseText
'21 Chargement du rss précédemment récupéré avec la fonction de traitement XML
Set xmlDOM = CreateObject("MSXML2.DomDocument.3.0")
xmlDOM.async = false
xmlDOM.LoadXml(RSSXML)
'26 Supprimer la rss issue de la requête http
Set xmlHttp = Nothing
'29 Récupérer les éléments contenue dans la balise item
Set RSSItems = xmlDOM.getElementsByTagName("item")
'32 On supprime la rss de la mémoire
Set xmlDOM = Nothing
'35 On compte le nombre d'item
RSSItemsCount = RSSItems.Length-1
[...]
'53 On récupère le contenue de chaque balise incluses dans item
for each child in RSSItem.childNodes
Select case lcase(child.nodeName)
case "title"
'On récupère les titres de chaque item
RSStitle = child.text
case "link"
'Là normalement on récupère le lien vers la page html correspondante
case "description"
'On récupère la brève description de chaque item
RSSdescription = child.text
End Select
next
[...]
%> |
Partager