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 <% Set objLeitorRSS = Nothing %>
<%If Not Mensagem = "" Then%>
<%Else%> <%=Mensagem%> <%=objRSSChannel.Title%>
<%=objRSSChannel.PubDate%><%=objRSSChannel.Description%> <% For Cont = 1 To objRSSChannel.Item.Count%> <%Next%> <% Set objRSSChannel = Nothing End If %> <%=objRSSChannel.Item.Item(Cont).Title%>
<%=objRSSChannel.Item.Item(Cont).PubDate%>
<%=objRSSChannel.Item.Item(Cont).Description%>
Source: <%=objRSSChannel.Item.Item(Cont).Source.Url%>