Ir para conteúdo

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Salgado

Leitor de Feeds RSS

Por , em ASP Clássico

Recommended Posts

Salgado    4

Salgado
Postado

ASP
<%

' Script ASP Para leitura de arquivos de RSS.

url = "http://www.overbo.com.br/backend.php" 'Aqui vai o endereço do arquivo RSS, ou do arquivo "gerador"

 

' Criando Objeto XML

Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0")

objXML.async = false

objXML.setProperty "ServerHTTPRequest", True

 

' Não validar o arquivo

objXML.validateOnParse =false' true

 

' Retirar espaços

objXML.preserveWhiteSpace = false

 

blnLoaded = objXML.Load(url)

If Not blnLoaded Then

        Response.write "Nenhum notícia na fonte!"

Else

        set objNodeList = objXML.getElementsByTagName("channel")

 

        For Each objNode In objNodeList

                For Each objNode2 In objNode.childNodes

 

                Select Case objNode2.nodeName

                Case "title"

                        html = html &"<tr><td><b>"

                        html = html &objNode2.firstChild.nodevalue

                        html = html &"</b></td></tr>"

                Case "link"

                        html = html &"<tr><td><a target=_blank href="& objNode2.firstChild.nodevalue &">"

                        html = html & objNode2.firstChild.nodevalue

                        html = html &"</a></td></tr>"

                Case "description" 'Está desabilitado para exibir apenas os links

                        html = html &"<tr><td><i>"

                        html = html & objNode2.firstChild.nodevalue

                        html = html &"</i></td></tr>"

                End Select

                Next

        Next

 

        html = html &"<tr><td><hr></td></tr>"

 

        Set objNodeList = objXML.getElementsByTagName("item")

        For Each objNode In objNodeList

                For Each objNode2 In objNode.childNodes

                        Select Case objNode2.nodeName

                        Case "title"

                                strTitle = objNode2.firstChild.nodevalue

                        Case "link"

                                strURL = objNode2.firstChild.nodevalue

                        Case "description"

                                strDescription = objNode2.firstChild.nodevalue

                        End Select

                Next

 

                html = html &"<tr><td><li/><b><a target=_blank href="& strURL &">"& strTitle &"</a></b><br>"& strDescription &"</td></tr>"

                strTitle = ""

                strURL = ""

                strDescription = ""

        Next

 

        html = "<table>"& html &"</table>"

        set objNodeList = Nothing

End if

%>

<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

</head>

 

<body>

<%

Response.write (html)

%>

</body>

</html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

dolci    0

dolci
Postado

Salgado.Adorei seu post, mas estou tendo problemas.No meu caso não são em todos os registros que possui a mesma quantidade de campos por exemplo:<clientes><nome></nome><email></email></clientes><clientes><nome></nome><email /> ' Em alguns registro tá assim, aí dá o erro</clientes>Quando o For chega no campo do XML que está do geito acima dá o erro abaixo:Microsoft VBScript runtime error '800a01a8' Object required: '[object]' O erro dá na linha onde está:email = objNode2.firstChild.nodevalueSe poder me ajudar agradeço muito, pois estou precisando muito!

Compartilhar este post

Link para o post
Compartilhar em outros sites

Gabriel Fróes    0

Gabriel Fróes
Postado

Eu criei um classe em ASP que faz a leitura de Feeds em RSS e cria uma estrutura de dados baseada em Collection.

 

É bem simples de utilizar e muito poderoso pois independe totalmente da interface. Você terá em sua estrutura somente os dados e formatação você faz como quiser.

 

Quem tiver interesse aí vai o link: http://www.codigofonte.com.br/codigo/asp/d...de-rss-para-asp

 

Abraços.

Compartilhar este post

Link para o post
Compartilhar em outros sites

diego gruber    0

diego gruber
Postado

Eu preciso importar links de um del.icio.us para uma página. É possível importar os dados para outro site de forma dinâmica? Com o código disponibilizado não consegui carregar o arquivo. Alguém tem alguma idéia de como eu faço isso?

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito