Notícias atualizadas em seu Site

Inserindo notícias atualizadas em seu site buscando as informações através de um XML específico podendo definir a quantidade que irá aparecer.

Por | @oficinadanet Programação
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 &""
      html = html &objNode2.firstChild.nodevalue
      html = html &"
"
    
Case "link"
'Define Propriedades do link  
      html = html &""
      html = html & objNode2.firstChild.nodevalue
      html = html &"
"
    
Case "description"
'Está desabilitado para exibir apenas os links
      html = html &""
      html = html & objNode2.firstChild.nodevalue
      html = html &"
"
    End Select
    Next
  Next

  html = html &"
"

  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 &"
  • "& strTitle &"
    "& strDescription &""
        strTitle = ""
        strURL = ""
        strDescription = ""
    End if
      
      Next
      
    'Variável onde gardamos o conteúdo do RSS
      html = ""& html &"
    "
      set objNodeList = Nothing
    End if
    %>







      



        
    <%
    'Exibindo notícias do RSS escolhido
    Response.write (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

    Mais sobre:
    Share Tweet
    DESTAQUESRecomendado
    Mais compartilhados
    Comentários