Efetuar login

Oficina da Net - Construindo conhecimento

Widgets | Contato | Cadastro | Fórum | Promoções

ASP

Notícias atualizadas em seu Site

Publicado em: 20/03/2007 | ASP | Visualizações: 11.283 | 9 Comentário(s)

Nesta coluna vamos aprender a colocar notícias em nosso site através de um XML especificado no código com a escolha do tema a ser exibido.

Com isso seu site ficará atualizado com as notícias do dia-dia.



<%

' Script ASP Para leitura de arquivos de RSS.

url = "http://www.euquerotrabalharnogoogle.com/feed/" '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 



' Retirar espaços

objXML.preserveWhiteSpace = false



blnLoaded = objXML.Load(url)





'Condição caso não tenha notícias no RSS

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"

      'Define Propriedades do Titulo

	  html = html &"<tr class='texto'><td><b>"

      html = html &objNode2.firstChild.nodevalue

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

    

	Case "link"

	 'Define Propriedades do link   	

      html = html &"<tr class='texto'><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 class='texto'><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")

  

contador = 0

For Each objNode In objNodeList



	'Definindo quantidade de notícias que será exibida

    if contador <  5 then

    contador = contador + 1

	

	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 class='texto'><td><li/><b><a target=_blank href="& strURL &">"& strTitle &"</a></b><br>"& strDescription &"</td></tr>"

    strTitle = ""

    strURL = ""

    strDescription = ""

	End if 

  

  Next

  

 'Variável onde gardamos o conteúdo do RSS

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

  set objNodeList = Nothing

End if

%>

<html>

<head>

<style type="text/css">

<!--

.texto {

	font-family: Verdana;

	font-size: 11px;

	color: #000000;

}

-->

</style>

</head>

<body>

<table width="100%" border="0" cellspacing="0" cellpadding="0">

 <tr>

  <td>

	<span class="texto">

    

	<%

	'Exibindo notícias do RSS escolhido

	Response.write (html)

	%>

	</span>

  </td>

 </tr>

</table>

</body>

</html>

Vocês podem alterar o XML para um especifico, aconselho usar do site da Folha. No caso eu utilizei o da Folha Online informática, mas fiquem a vontade.

Simples né?

Qualquer dúvida entre em contato comigo deixando um comentário.

Abraços!

Alexandre de Luccia

9 Comentário(s) comentários

compartilhe

» clique aqui para comentar

Preencha o formulário para comentar:

Publicado em: 21/03/2007 - 10:39

Olá amigo.. muito legal esse tutorial, mas como eu só mecho com PHP, tem como rodar ASP em meu server local? Ou só em um Host que aceite ASP? Abraços

Publicado em: 21/03/2007 - 10:50

Você consegue rodar local usando o iis. Para instalar verifique este link: http://www.baboo.com.br/absolutenm/templates/content.asp?articleid=9761&zoneid=4&resumo= Ajudou? Boa sorte, Alexandre de Luccia

Publicado em: 21/03/2007 - 11:51

Olá amigo! Fiz tudo corretamente.. mas meu WindowsXP pediu o cd de instalaçã.. e não tenho, quando conseguir 1, irei tentar novamente e lhe aviso.. obrigado! Abraços Danilo Bezerra / http://danilobezerra.dicasweb.com

Júnior Dias

Publicado em: 25/06/2007 - 11:02

Excelente artigo! gostei bastante e estou usando pra puxar noticias do site da globo esportes,, só tenho um probleminha ta dando erro de acentuação em vez de apárecer i aparece � como resolveria isso? existe algo q seja parecido com htmlencode pra suar no xml? vc poderia mne dar uma luz? obrigado e parabéns pelo artigo!

Raphael Antinori

Publicado em: 27/07/2007 - 10:47

Olá, como eu faço para colocar notícias da folha no meu site? Não entendi direito como direciono o html para que eu tenha as noticias em meu site. Estou precisando com urgencia de noticias, e pelo o que eu vi esse tutorial é muito bom! Obrigado

Nina Abreu

Publicado em: 05/09/2007 - 19:01

Nina abreu Produções precisa-se de 2 atrizes Profissionais com idade acima de 25 anos quer resida na região sul da Bahia para temporada e excurção tel=73 8833-1581

Anderson Oliveira

Publicado em: 17/09/2007 - 15:56

Boa Tarde ! Achei bem interessante o artigo, porém, gostaria de saber se é possível disponibilizar esse mesmo conteúdo em uma área de Intranet e em PHP ? Um grande abraço, Anderson Oliveira

Carlos

Publicado em: 17/05/2008 - 16:02

eu só sei mexer com html o xml precisa de algum programa específico? e aonde colo estes códigos

Wander

Publicado em: 06/11/2008 - 20:19

Gostaria de saber se com esse script posso ler as notícias direto do meu site ou esse recurso tenho apenas um link para a notícia. Obrigado

Autor

Alexandre de Luccia
Analista e Desenvolvedor de Sistemas desde 2005, atualmente desenvolvendo sistemas na Telefônica Bra.
» Site do colunista

Todas as matérias de Alexandre de Luccia

Links Patrocinados