Categorias

Leitor de RSS para ASP

Depois de passar um tempo pesquisando na internet material sobre a leitura de notícias no formato RSS 2.0 com ASP 3, percebi que não havia muitos códigos disponíveis. Decidi então desenvolver uma classe para a leitura de RSS 2.0.

Após algumas horas desenvolvendo terminei a primeira versão do “Leitor RSS 2.0”.

Neste leitor existem diversas classes e métodos que são responsáveis pela leitura das URL’s no formato RSS. A utilização está bastante simplificada e também DOCUMENTADA em um arquivo no formato DOC, neste documento é possível perceber toda a estrutura da classe, propriedades e métodos do Leitor RSS.

Este Leitor RSS é “Open Source”, podem utilizar a vontade, modificar, aperfeiçoar, etc… (só não esqueçam dos créditos, ok?).

A quem tiver interesse, peço que me enviem suas modificações para que eu possa analisar implementar para sempre distribuir novas atualizações. (Os contribuintes terão seus créditos inseridos na documentação).

<%
Dim objLeitorRSS
Dim Mensagem
Dim Cont
Dim objRSSChannel
Set objLeitorRSS    = New LeitorRSS
Mensagem            = ""
If Not objLeitorRSS.ReadURL("https://rss.terra.com.br/0,,EI4795,00.xml") Then
    Mensagem = objLeitorRSS.MensagemErro
Else
    Set objRSSChannel = New Channel
    Set objRSSChannel = objLeitorRSS.RSSChannel
End If
%>



Leitor RSS 2.0


<%If Not Mensagem = "" Then%> <%Else%> <% For Cont = 1 To objRSSChannel.Item.Count%> <%Next%> <% Set objRSSChannel = Nothing End If %>
<%=Mensagem%>
<%=objRSSChannel.Title%>
<%=objRSSChannel.PubDate%>
<%=objRSSChannel.Image.Title%> <%=objRSSChannel.Description%>
<%=objRSSChannel.Item.Item(Cont).Title%>
<%=objRSSChannel.Item.Item(Cont).PubDate%>
<%=objRSSChannel.Item.Item(Cont).Description%>
Source: <%=objRSSChannel.Item.Item(Cont).Source.Url%>

<% Set objLeitorRSS = Nothing %>

Arquivos para Download:

Classe_LeitorRSS.asp.txtDocumentação Técnica LeitorRSS.doc