Ir para conteúdo
Fórum Script Brasil
  • 0

Rss


Marcos-rj

Pergunta

Segue abaixo,Script ASP Para leitura de arquivos de RSS.

Como ainda tem muita gente procurando, está aí.

<%
' Script ASP Para leitura de arquivos de RSS.
url = "http://oglobo.globo.com/rss/plantao.xml" '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>
<font face="Verdana" style="font-size: 9pt">
<%
Response.write (html)
%>
</font>
</body>
</html>

Link para o comentário
Compartilhar em outros sites

3 respostass a esta questão

Posts Recomendados

  • 0

porque nunca consigo fazer funcionar ?

sempre aparece nenhuma noticia na fonte...

tenho que configurar alguma coisa para fazer para que o asp possa criar esse objeto ("msxml2.DOMDocument.3.0") ??? ou só com o comando ( Set objXML = Server.CreateObject("msxml2.DOMDocument.3.0") ) ele funciona ?

Editado por caiomor
Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...