Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

CafeNeon

Estilo em arquivo RSS

Por , em ASP Clássico

Recommended Posts

CafeNeon    0

CafeNeon
Postado

Olá Pessoal.

Tenho um portal e estou querendo colocar uma página de notícias que puxa um RSS de outro portal. Até aí tudo bem, conseguir configurar as 2 páginas e ela está recebendo o RSS normal, mas não estou conseguindo alterar a fonte e as cores dessas notícias, elas ficam com o link em azul padrão e fonte Times, saindo totalmente fora do padrão de meu portal.

 

Será que alguém sabe como que faço para alterar isso??

Vou postar abaixo o código da página de notícias e o da página RSS

 

RSS

 

ASP
<%

' Script ASP Para leitura de arquivos de RSS.

url = "http://maplink.p.rss.uol.com.br/rss/noticiasmaplink.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>

<%

Response.write (html)

%>

</body>

</html>

 

 

Notícias

 

[url="http-~~-//december.com/html/4/element/td.html"]<td[/url] width="800" height="1000" valign="top">[url="http-~~-//december.com/html/4/element/iframe.html"]<iframe[/url] width="500" height="300" src="rss.asp" class="style2" id="noticias"></iframe>

 

valeu galera

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito