sastgroup.com

Mostrare feed rss usando asp

Posted on 02. Feb, 2007 by Administrator in asp, tutorials

In questo articolo vedremo come mostrare i nostri feed rss leggendo i dati dal db. Un feed rss è un file xml che ha dei tag particolari. Un feed rss è un qualcosa del tipo:

Un nuovo file rss deve iniziare con

<rss version=”0.92″>

che specifica la versione del file rss in uso. Tutte le informazioni che metteremo nel nostro file rss devono essere
racchiuse tra i tag :

<channel>
…
</channel>

Poi dobbiamo mettere un blocco di tag che identificano la provenienza delle informazioni

- <title></title> indica il titolo del documento rss
- <description></description> indica la descrizione
- <link></link> indica il sito di provenienza
- <language></language> indica la lingua
- <copyright></copyright> indica il copyright
- <managingEditor></managingEditor> indica il responsabile delle informazioni

e poi mettere le singole informazioni/notizie tra i tag. Infatti ogni nuova notizia deve iniziare tra i tag

<item>
…
</item>

Per maggiori info, potete leggere http://www.sastgroup.com/tutorials/cosa-e-un-feed-rss.

Per leggere un feed rss è necessario istanziare un oggetto del tipo MSXML2.DOMDocument . questo oggetto ti permette di accedere a questi file XML tramite DOM (Document Object Model). Ad esempio per leggere un file RSS feed con l'oggetto XML DOM:

Set xmlDOM = Server.CreateObject("MSXML2.DOMDocument")
xmlDOM.async = False
xmlDOM.setProperty "ServerHTTPRequest", True
xmlDOM.Load("file_export.asp")

Fatto ciò realizziamo il nostro file asp

'prende tutti gli <item> tags nel feed
Set itemList = xmlDOM.getElementsByTagName("item")
strHTML = strHTML & "<ul>"
'esegui una iteraione
For Each item In itemList
  'Parsa i figli
  For each child in item.childNodes
    Select case lcase(child.nodeName)
        case "title"
          title = child.text
        case "link"
          link = child.text
        case "description"
          description = child.text
    End Select
  Next
  'costruisci l'output xml
  strHTML = strHTML & "<li>"
  strHTML = strHTML & "<a href='" & Server.HTMLEncode(link) & "'>"
  strHTML = strHTML & Server.HTMLEncode(title)  strHTML = strHTML & "</a>"
  strHTML = strHTML & "<br>"
  strHTML = strHTML & description
  strHTML = strHTML & "<br>&nbsp;"
  strHTML = strHTML & "</li>"
Next
strHTML = strHTML & "</ul>"
Set xmlDOM = Nothing
Set itemList = Nothing
Response.Write(strHTML)