Código Fonte - O melhor conteúdo para programadores

Este código tem nota

Autor

ASP

RSS

Compartilhe e guarde

Enquete

Você se preocupa em desenvolver usando Web Standards?

Não me procupo com isso
Procuro usar, mas quando não dá eu não uso
Sim, meus projetos são 100% padronizados
Às vezes eu uso

Home Código Fonte ASP Diversos

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).

<!-- #include file="Classe_LeitorRSS.asp" -->
<%
Dim objLeitorRSS
Dim Mensagem
Dim Cont
Dim objRSSChannel
Set objLeitorRSS    = New LeitorRSS
Mensagem            = ""
If Not objLeitorRSS.ReadURL("http://rss.terra.com.br/0,,EI4795,00.xml") Then
    Mensagem = objLeitorRSS.MensagemErro
Else
    Set objRSSChannel = New Channel
    Set objRSSChannel = objLeitorRSS.RSSChannel
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Leitor RSS 2.0</title>
</head>
<body>
<center>
<table border="0" cellpadding="0" bgcolor="#000000" cellspacing="1" width="500" height="100%"><tr><td valign="top">

    <table border="0" cellpadding="0" bgcolor="#ffffff" cellspacing="0" width="500" height="100%">
    <%If Not Mensagem = "" Then%>
        <tr><td height="100%" valign="top"><font face="verdana" size="2" color="#ff8500"><%=Mensagem%></font></td></tr>
    <%Else%>
        <tr bgcolor="#000000">
            <td align="center" valign="middle" height="35" colspan="2">
                <strong><a href="<%=objRSSChannel.Link%>"><font face="verdana" size="2" color="#ff8500"><%=objRSSChannel.Title%></font></a></strong>
                <br>
                <font face="verdana" size="1" color="#ff8500"><%=objRSSChannel.PubDate%></font>
            </td>
        <tr>
        <tr bgcolor="#f0f0f0">
            <td valign="top" height="1%">
                <a href="<%=objRSSChannel.Image.Link%>"><img src="<%=objRSSChannel.Image.Url%>" alt="<%=objRSSChannel.Image.Title%>" border="0" align=baseline></a>
            </td>
            <td align="left" valign="top" height="10">
                <font face="verdana" size="2" color="#000000"><%=objRSSChannel.Description%></font>
            </td>
        <tr>
        <tr><td> </td></tr>
        <%
        For Cont = 1 To objRSSChannel.Item.Count%>
        <tr>
            <td height="10" width="100%" colspan="2">
                <font face="verdana" size="2" color="#000000">
                <a href="<%=objRSSChannel.Item.Item(Cont).Link%>"><strong><%=objRSSChannel.Item.Item(Cont).Title%></strong></a>
                <br>
                <font size="1" color="#808080"><i><%=objRSSChannel.Item.Item(Cont).PubDate%></i></font>
                <br>
                <font size="1"><%=objRSSChannel.Item.Item(Cont).Description%></font>
                <br>
                <tt>Source: <%=objRSSChannel.Item.Item(Cont).Source.Url%></tt>
                </font>
                <p>
            </td>
        </tr>
        <%Next%>
    <%
    Set objRSSChannel = Nothing
    End If
    %>
    <tr><td height="100%"> </td></tr>
    </table>
    
</td></tr></table>
</center>

</body>
</html>
<%
Set objLeitorRSS = Nothing
%>

<%
Dim objLeitorRSS
Dim Mensagem
Dim Cont
Dim objRSSChannel
Set objLeitorRSS = New LeitorRSS
Mensagem = ""
If Not objLeitorRSS.ReadURL("http://rss.terra.com.br/0,,EI4795,00.xml") Then
 Mensagem = objLeitorRSS.MensagemErro
Else
 Set objRSSChannel = New Channel
 Set objRSSChannel = objLeitorRSS.RSSChannel
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>Leitor RSS 2.0</title>
</head>
<body>
<center>
<table border="0" cellpadding="0" bgcolor="#000000" cellspacing="1" width="500" height="100%"><tr><td valign="top">

<table border="0" cellpadding="0" bgcolor="#ffffff" cellspacing="0" width="500" height="100%">
 <%If Not Mensagem = "" Then%>
 <tr><td height="100%" valign="top"><%=Mensagem%></td></tr>
 <%Else%>
 <tr bgcolor="#000000">
 <td align="center" valign="middle" height="35" colspan="2">
 <a href="<%=objRSSChannel.Link%>"><%=objRSSChannel.Title%></a>
 
 <%=objRSSChannel.PubDate%>
 </td>
 <tr>
 <tr bgcolor="#f0f0f0">
 <td valign="top" height="1%">
 <a href="<%=objRSSChannel.Image.Link%>"><img src="<%=objRSSChannel.Image.Url%>" alt="<%=objRSSChannel.Image.Title%>" border="0" align=baseline></a>
 </td>
 <td align="left" valign="top" height="10">
 <%=objRSSChannel.Description%>
 </td>
 <tr>
 <tr><td> </td></tr>
 <%
 For Cont = 1 To objRSSChannel.Item.Count%>
 <tr>
 <td height="10" width="100%" colspan="2">
 
 <a href="<%=objRSSChannel.Item.Item(Cont).Link%>"><%=objRSSChannel.Item.Item(Cont).Title%></a>
 
 <%=objRSSChannel.Item.Item(Cont).PubDate%>
 
 <%=objRSSChannel.Item.Item(Cont).Description%>
 
 <tt>Source: <%=objRSSChannel.Item.Item(Cont).Source.Url%></tt>
 
 
 </td>
 </tr>
 <%Next%>
 <%
 Set objRSSChannel = Nothing
 End If
 %>
 <tr><td height="100%"> </td></tr>
 </table>
 
</td></tr></table>
</center>

</body>
</html>
<%
Set objLeitorRSS = Nothing
%>

Arquivo	Tipo	Tamanho	Hits
Classe_LeitorRSS.asp	Arquivo ASP	27,1 Kb	1655
Documentação Técnica LeitorRSS.doc	Arquivo DOC	110 Kb	1441

Este código foi útil para você?

Nota	Comentário
10	denunciar vbraun comentou em 26/11/2009 erro no script Gabriel, tentei usar a classe pas está retornoando o erro abaixo. pode ajudar ? Microsoft VBScript runtime error '800a01b6' Object doesn't support this property or method: 'TagName' /Classe_LeitorRSS.asp, line 247
8	denunciar rlpa comentou em 22/9/2007 Leitor de RSS para ASP Gabriel, achei muito bacana o script ajudou mesmo! parabéns!

Regras:
Os comentários seguem as seguintes regras:

Todos os comentários são enviados por membros cadastrados no site.
A pontuação de comentários de conteúdo do próprio membro não serão computados.
Os comentários serão pré-aprovados, porém a equipe do site revisará o conteúdo de todos os comentários podendo ser invalidados (inclusive a pontuação).
Os comentários precisam ter, obrigatóriamente, coerência sobre o conteúdo que será comentado.
O membro que atingir 5 comentários invalidados não poderá mais comentar dentro do site. Com isso o membro não poderá mais ganhar pontos com comentários.
Há um limite de 10 comentários por dia para cada membro.
Qualquer comentário após ter sido publicado poderá ser retirado através da opção ( denunciar)

Comente

Autenticação:	Apelido: Senha: (ainda não tem cadastro? clique aqui!)

Título:	Máximo de 30 caracteres
Comentário:	Máximo de 255 caracteres
Avaliação:

Equipe | Tabela de Pontos e Estrelas | Política de Privacidade | Mapa do Site | Fale Conosco

Autor

Gabriel Fróes

Tags

ASP

RSS

XML

Compartilhe e guarde

Enquete

Você se preocupa em desenvolver usando Web Standards?

Leitor de RSS para ASP

erro no script

Leitor de RSS para ASP

Comente