O Fórum BrTeam é uma comunidade de compartilhamento de informações na internet, aqui você encontra tutoriais, notícias atualizadas, jogos, curiosidades e muito mais!


    Inserindo notícias atualizadas em seu site *Tutorial

    Compartilhe

    Vinifire
    Admin
    Admin

    Masculino
    Número de Mensagens : 153
    Idade : 24
    Pontos : 4356
    Reputação : 2
    Data de inscrição : 09/01/2008

    Inserindo notícias atualizadas em seu site *Tutorial

    Mensagem por Vinifire em 18/2/2008, 8:26 pm

    Notícias atualizadas em seu site
    Inserindo notícias atualizadas em seu site buscando as informações através de um XML específico.

    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.

    Código:

    <%
    ' Script ASP Para leitura de  [url=http://www.oficinadanet.com.br/index.php?acao=colunas_show&id=221#]arquivos[/url] 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 =  [url=http://www.oficinadanet.com.br/index.php?acao=colunas_show&id=221#]html[/url] &"[b]"
          html = html &objNode2.firstChild.nodevalue
          html = html &"[/b]"
       
       Case "link"
        'Define Propriedades do link     
          html = html &"[url=http://brteam.forumr.net/]
    target=_blank href="& objNode2.firstChild.nodevalue &">"
          html = html & objNode2.firstChild.nodevalue
          html = html &"[/url]"
       
       Case "description"
        'Está desabilitado para exibir apenas os links
          html = html &"[i]"
          html = html & objNode2.firstChild.nodevalue
          html = html &"[/i]"
        End Select
        Next
      Next

      html = html &"[hr]"

      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 &"
    class='texto'><li>[b][url=http://brteam.forumr.net/]href="& strURL &">"& strTitle
    &"[/url][/b]
    "& strDescription
    &""
        strTitle = ""
        strURL = ""
        strDescription = ""
       End if
     
      Next
     
     'Variável onde gardamos o conteúdo do RSS
      html = ""& html &"[table][/table]"
      set objNodeList = Nothing
    End if
    %>






     
     
     
    [table border="0" cellpadding="0" cellspacing="0" width="100%"][tr][td]
       
       
       <%
       'Exibindo notícias do RSS escolhido
       Response.write (html)
       %>
       
      [/td][/tr][/table]


    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.

    Alguma dúvida?

    geek jocolor queen king


    _________________

      Data/hora atual: 3/12/2016, 10:35 am