Questo box nel tuo sito?
Fai click su "Get widget".



Mostrare e aggregare feed rss in un sito asp

Cerchiamo di capire ora come sia possibile integrare in una pagina ASP i contenuti provenienti da altri siti sotto forma di flussi RSS o meglio conosciuti feed RSS.
Incominciamo con il rimarcare che una pagina web realizzata tramite tecnologia ASP ( Active Server Pages ) sono pagine scritte in linguaggio HTML che però contengono script ed ossia parti di codice scritte tipicamente in Java che verranno eseguite direttamente dal Server al fine di generare in tempo reale altro codice HTML che sarà inviato al browser ( Internet Explorer, Mozilla Firefox, Google Chrome o altri) utilizzato dall’utente per generare e quindi visualizzare dei contenuti dinamici.
Il nostro scopo, dunque, è appunto quello di creare uno script che ci consenta di integrare in pagine ASP i feed RSS in maniera tale di avere una pagina web che risulti sempre aggiornata in tempo reale per quel determinato argomento che abbiamo a cuore.
Qui sotto vi proponiamo il codice da copiare ed inserire nella nostra pagina ASP con l’unica attenzione di mettere al posto della dicitura ETICHETTA l’argomento scelto, ovviamente, tra quelli disponibili.

    <%
    rssURL = "http://feeds.feedburner.com/rssnews.it/ETICHETTA"
    Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")
    objXML.async = false
    objXML.setProperty "ServerHTTPRequest", True
    objXML.validateOnParse =false
    objXML.preserveWhiteSpace = false
    rssFile = objXML.Load(rssURL)
    'Se ci sono errori stampo a video
    If Not rssFile Then
    Response.write "Non ci sono news<br>per favore avvisate il webmaster"
    'Se NON ci sono errori proseguo...
    Else
    limite_max=15
    limite_min=1
    conta=0
    'Recupero i dati dai nodi Item (e sotto nodi)
    Set objNodeList = objXML.getElementsByTagName("item")
    On Error Resume Next
    For Each objNode In objNodeList
     'stampo a video...
     conta=conta+1
     IF conta>=limite_min AND conta<=limite_max THEN
    
      For Each objNode2 In objNode.childNodes
       Select Case objNode2.nodeName
        Case "title"
        strTitle = objNode2.firstChild.nodevalue
        Case "link"
        strURL = objNode2.firstChild.nodevalue
        Case "description"
        strDesc = objNode2.firstChild.nodevalue
       End Select
      Next
    
      Response.write "<a href=""" & strURL & """>" &_
      Left(strTitle,280) & "</a><br>" & Left(strDesc,500) & "...<br clear""all"">"
     END IF
     'azzero tutto per il prossimo passaggio
     strTitle = ""
     strURL = ""
     strDescription = ""
    Next
    set objNodeList = Nothing
    End if
    %>