Capturar Notícias De Outro Site Usando Rss

nadia_xidea · Novembro 21, 2006

Peguei este código que captura as notícias da Folha On-line e exibe no seu site numa página pelo rss. Eu gostaria de saber de que forma eu faço para exibir apenas a categoria da notícia, a data e o título... Veja neste site como o webmaster fez, só que tá em PHP...

www.webradiocidade.com.br

Ele fez algo até que eu nunca tinha visto... ele fez de uma forma aonde eu clico no link da notícia e não vai pro site da Folha, abre no site dele mesmo a notícia e aparece os créditos para a folha...

Como eu consigo fazer isso usando o meu código abaixo.

Veja abaixo o código funcionando que chama as notícias...

P.S.: Já fiz busca no site mas não achei nada que ajudasse a fazer isso...

<%
' Script ASP Para leitura de arquivos de RSS.
url = "http://feeds.folha.uol.com.br/folha/emcimadahora/rss091.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 "Nenhuma 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>

DackAle · Novembro 21, 2006

Isso é fácil e chato... rs

Para você criar suas notícias personalizadas pegas de outro site, você não pode depender da RSS, vai ter que usar um componente que leia o código fonte, por exemplo xmlhttp (Não lembro se é este o nome realmente)

Aonde você vai pegar o código fonte e trabalhar em cima dele, é muito usado para pegar cotação do dolar, o chato é limpar o código só para deixar o que você quer, mas requisitar o código e mostrar é o de menos...

Busque no fórum por cotação do dolar, pegar cep e coisas desse tipo que você irá achar muitos exemplos :)

nadia_xidea · Novembro 21, 2006

Oi dack, bem achei um exemplo pra começar... ele pega a cotação do dolar e exibe na página... ele está funcionando...

Eu gostaria de fazer como nessa página da folha:

http://www1.folha.uol.com.br/folha/emcimadahora/

Mostrar as 5 últimas notícias, categoria, data e título e a data.

Pode me ajudar a criar esta página que vai capturar as notícias da folha de SP?

o arquivo é em xmlhttp.

Como eu acho o link que eu tenho que chamar no site da folha? No exemplo ele chama a cotação do dolar.

Vejam código abaixo:

<%
Set XMLHttp = Server.CreateObject("Microsoft.XMLHTTP")
XMLHttp.open "GET","http://www.investshop.com.br/mer/include/Dolar.csv", false
XMLHttp.send()
cotacao = XMLHttp.ResponseText
cotacoes = replace(cotacao,"Nome;Compra;Venda;Variacao","") ' Tira a primeira parte que e lixo
response.Write(cotacoes)
dim valores()
dim cont, cont_valores
for cont = 1 to len(cotacoes) step 1
if (mid(cotacoes,cont,1) = ";" or mid(cotacoes,cont,1) = " " or mid(cotacoes,cont,1) = Chr(10)) then
cont_valores = cont_valores + 1
Redim Preserve valores(cont_valores)
valores(cont_valores) = Cstr(str)
str = ""
else
str = str + mid(cotacoes,cont,1)
end if 
next
' Fim Coloca valores em uma Array

' Coloca os valores nas variaveis
DOLAR_COMERCIAL_COMPRA = valores(3)
DOLAR_COMERCIAL_VENDA = valores(4)
DOLAR_COMERCIAL_VARIACAO = valores(5)

DOLAR_PARALELO_COMPRA = valores(7)
DOLAR_PARALELO_VENDA = valores(8)
DOLAR_PARALELO_VARIACAO = valores(9)

DOLAR_TURISMO_COMPRA = valores(11)
DOLAR_TURISMO_VENDA = valores(12)
DOLAR_TURISMO_VARIACAO = valores(13)


'PTAX_COMPRA = valores(15)
'PTAX_VENDA = valores(16)
'PTAX_VARIACAO = valores(17)
' Fim coloca os valores nas variaveis

%>

Entrar

Capturar Notícias De Outro Site Usando Rss

Pergunta

nadia_xidea

Link para o comentário

Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

DackAle

Link para o comentário

Compartilhar em outros sites

nadia_xidea

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades