Lector RSS con ASP

0 COMENTARIOS - Publicado hace 47 meses - Clasificado en: RSS, ASP, TUTORIALES

Script en asp para montar un lector de rss. El ejemplo lee el rss de digg, que presenta la siguiente estructura:

<item>
           <title></title>
           <link></link>
           <description></description>
           <pubDate></pubDate>
           <guid isPermaLink="true"></guid>
           <digg:diggCount></digg:diggCount>
</item>

Esta información es la que puede variar y sólo tendríamos que recoger el nodo adecuado a nuestros propósitos con objItem.childNodes(), de acuerdo a la estructura del xml que deseasemos recoger. CSS:

.titulo_rss a{
         font: bold 13px "Trebuchet MS", Verdana, Arial;
         color: #676D46;
         text-decoration:none;
         display:block;
         margin-top:30px;
}
.titulo_rss a:hover{
         color: #666;
}
.descripcion_rss {
         font: 11px Verdana, Arial, Helvetica, sans-serif;
         color: #888;
         display:block;
         margin-top:10px;
}
.fecha_rss {
         font: 10px "Lucida Sans Unicode", Verdana, Arial, Georgia;
         color: #CC6633;
}

ASP:

<%
Response.Charset = "iso-8859-1"
Dim objXML
Dim objItemList
Dim objItem
Dim strHTML
Set objXML = Server.CreateObject("MSXML2.FreeThreadedDOMDocument")
objXML.async = False
objXML.setProperty "ServerHTTPRequest", True
objXML.Load("http://www.digg.com/rss/index.xml")
If objXML.parseError.errorCode <> 0 Then
     Response.Write "<code>" & vbCrLf
     Response.Write "<strong>Error:</strong> " & objXML.parseError.reason
     Response.Write "<strong>Linea:</strong>  " & objXML.parseError.line & vbCrLf
     Response.Write "<strong>Texto:</strong>  " & Server.HTMLEncode(objXML.parseError.srcText) & vbCrLf
     Response.Write "</code>" & vbCrLf
End If
'OBTENEMOS TODOS LOS ITEM
Set objItemList = objXML.getElementsByTagName("item")
Set objXML = Nothing
For Each objItem In objItemList

'OBTENEMOS LOS DISTINTOS NODOS
TituloRSS = objItem.childNodes(0).text
LinkRSS = objItem.childNodes(1).text
DescripcionRSS = objItem.childNodes(2).text
FechaRSS = objItem.childNodes(3).text
Response.Write ("<span class=""titulo_rss""><a
href='" & LinkRSS & "'>" & TituloRSS & "</a></span>")
Response.Write ("<span class=""fecha_rss"">" &  FechaRSS & "</span>")
Response.Write ("<span class=""descripcion_rss"">" & DescripcionRSS & "</span>")

Next

Set objItemList = Nothing
Application.Lock
Application("LectorRSSContenido") = strHTML
Application("LectorRSSActualizado") = Now()
Application.UnLock
%>
<%= Application("LectorRSSContenido") %>
<%= Application("LectorRSSActualizado") %>