RSS sans ASP?

RSS sans ASP? - ASP - Programmation

Marsh Posté le 12-02-2010 à 02:02:19    

Salut,
 
Il y a quelques années moi et un collègue avions codé pour le plaisir un script RSS avec de l'asp pour obtenir la météo à partir de Yahoo pour l'afficher sur un écran géant dans notre centre de traitement informatique. Le script était sur un serveur web intranet. Seulement voilà, récemment il y a eu un changement à la sécurité et tous les serveurs ne peuvent aller sur Internet sans login donc ça a cassé notre script puisque le lien vers Yahoo ne fonctionne plus. J'ai temporairement remédié à la situation en mettant le script sur un autre serveur avec accès à Internet mais comme ce n'est pas un serveur web il ne gère pas l'asp donc la mise en forme du RSS est plutôt basique, voir inexistante.  
 
Je suis assez rouillé en asp et en relisant notre code je ne comprends même plus et je voudrais savoir s'il est possible de changer le code asp pour mettre du javascript ou quelque chose d'autre à la place qui pourrait fonctionner sans serveur web. Voici la partie asp du script:
 

Code :
  1. <%
  2.    ' URL to RSS Feed to display
  3.    URLToRSS = "http://xml.weather.yahoo.com/forecastrss?p=CAXX0243&u=c"
  5.    ' Nombre maximum d'items affichés
  6.    MaxNumberOfItems = 1
  7.    MaxNumberOfChannels = 1
  9.    ' Attribution des données
  10.    RSSItemTemplate = "<center><table><tr><td align=center><font color=#CC0033 size=+1>T° Ambiante</color><br><font size=+3 color=#CC0033>{TEMP} °C</font></td><td>{IMG}</td><td align=center><font color=#CC0033 size=+1>T° Ressentie</font><br><font size=+3 color=#CC0033>{TERE} °C</font></td></tr></table><font size=+2>{CONDITIONS}</font><br>Demain: <i>{DEM}</i> <font color=#777777>|</font> T° <i>{TEDE1}</i> - <i>{TEDE2} °C</i></center>"
  12.    ' Message d'erreur si aucun item n'a été renvoyé par le feed
  13.    ErrorMessage = "Une erreur est survenue lors de l'accès à " &URLToRSS & "<br />Veuillez contacter l'administrateur du site"
  15.    Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP.3.0" )
  16.    xmlHttp.Open "Get", URLToRSS, false
  17.    xmlHttp.Send ""
  18.    RSSXML = xmlHttp.ResponseText
  20.    Set xmlDOM = Server.CreateObject("MSXML2.DomDocument.3.0" )
  21.    xmlDOM.async = false
  22.    xmlDOM.LoadXml(RSSXML)
  23.    Set xmlHttp = Nothing
  25.    Set RSSItems = xmlDOM.getElementsByTagName("item" )
  26.    Set RSSChannels = xmlDOM.getElementsByTagName("channel" )
  27.    Set xmlDOM = Nothing
  29.    RSSItemsCount = RSSItems.Length - 1
  30.    RSSChannelsCount = RSSChannels.Length - 1
  32.    k=-1
  34.    For l = 0 To RSSChannelsCount
  35.      Set RSSChannel = RSSChannels.Item(l)
  37.      For each child in RSSChannels.item(l).childNodes
  38.        Select case lcase(child.nodeName)
  39.          case "yweather:wind"
  40.            RSStere = child.attributes.item(0).nodeValue
  41.            RSSvent = child.attributes.item(2).nodeValue
  42.        End Select
  43.      Next
  45.      k=k+1
  47.    Next
  49.    ' Check si une erreur est survenu lors de la réception du RSS et affiche un message
  50.    if RSSChannelsCount < 0 then
  51.      Response.Write ErrorMessage
  52.    End If
  54.    j=-1
  56.    For i = 0 To RSSItemsCount
  57.      Set RSSItem = RSSItems.Item(i)
  59.      For each child in RSSItems.item(i).childNodes
  60.        Select case lcase(child.nodeName)
  61.          case "pubdate"
  62.            RSSdate = child.text
  63.          case "title"
  64.            RSStitle = child.text
  65.          case "link"
  66.            RSSlink = child.text
  67.          case "description"
  68.            RSSdescription = child.text
  69.            RSSimgstartpos = InStr(RSSdescription, "<img" )
  70.            RSSimgstr = Right(RSSDescription, len(RSSdescription) + 1 - RSSdescription1)
  71.    RSSimgendpos = InStr(RSSimgstr, ">" )
  72.            RSSimgstr = Left(RSSimgstr, RSSimgendpos)
  73.          <!-- case "yweather:wind" -->
  74.            <!-- RSStere = child.attributes.item(0).nodeValue -->
  75.          case "yweather:condition"
  76.            RSSconditions = child.attributes.item(0).nodeValue
  77.            Select case RSSconditions
  78.              case "Unknown"
  79.                RSSconditions = "Climat actuel indisponible"
  80.            End Select
  81.            RSStemp = child.attributes.item(2).nodeValue
  82.          case "yweather:forecast"
  83.            RSSdemain = child.attributes.item(4).nodeValue
  84.            Select case RSSdemain
  85.              case "Unknown"
  86.                RSSdemain = "Climat indisponible"
  87.              End Select
  88.              RSStempdemain1 = child.attributes.item(2).nodeValue
  89.              RSStempdemain2 = child.attributes.item(3).nodeValue
  90.            End Select
  91.      Next
  93.      j = j+1
  95.      if j < MaxNumberOfItems then
  96.        RSSItemContent = Replace(RSSItemTemplate,"{IMG}", RSSimgstr)
  97.        RSSItemContent = Replace(RSSItemContent, "{TERE}", RSStere)
  98.        RSSItemContent = Replace(RSSItemContent, "{TEMP}", RSStemp)
  99.        RSSItemContent = Replace(RSSItemContent, "{DEM}", RSSdemain)
  100.        RSSItemContent = Replace(RSSItemContent, "{VENT}", RSSvent)
  101.        RSSItemContent = Replace(RSSItemContent, "{TEDE1}", RSStempdemain1)
  102.        RSSItemContent = Replace(RSSItemContent, "{TEDE2}", RSStempdemain2)
  103.        RSSItemContent = Replace(RSSItemContent, "{CONDITIONS}", RSSconditions)
  104.        'RSSItemContent = Replace(RSSItemContent, "{DATE}", RSSdate)
  105.        Response.write RSSItemContent
  106.        'Response.write RSSdescription
  107.      End if
  109.    Next
  111.    ' Check si une erreur est survenu lors de la réception du RSS et affiche un message
  112.    if RSSItemsCount < 0 then
  113.      Response.Write ErrorMessage
  114.    End If
  115.    %>


 
Merci.
 
Edit: En fait si vous connaissez un autre moyen totalement de prendre les données du RSS et des les afficher comme on veut ça me convient aussi, pas besoin de continuer avec le code ci-haut.


Message édité par Dreossk le 12-02-2010 à 02:07:35
Reply

Marsh Posté le 12-02-2010 à 02:02:19   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed