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%>
<%=Mensagem%>
<%=objRSSChannel.Title%>
<%=objRSSChannel.PubDate%>
<%=objRSSChannel.Description%>
<%=objRSSChannel.Item.Item(Cont).Title%>
<%=objRSSChannel.Item.Item(Cont).PubDate%>
<%=objRSSChannel.Item.Item(Cont).Description%>
Source: <%=objRSSChannel.Item.Item(Cont).Source.Url%>
<%Next%>
<%
Set objRSSChannel = Nothing
End If
%>
<%
Set objLeitorRSS = Nothing
%>
