Ir para conteúdo

POWERED BY:

Arquivado

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

williamot

Leitor RSS em ASP.NET 2.0

Por , em .NET

Recommended Posts

williamot    0

williamot
Postado

Gente eu tenho um código que peguei no imasters artigos.. é um leitor rss..

 

Poré estou com um site aqui em asp.net

Como transformo esse código para asp.net pq quando coloco do jeito q está ele dá pau..

 

Código antes do <body>

 

<%// Script ASP Para leitura de arquivos de RSS.url = "http://g1.globo.com/Rss2/0,,AS0-5597,00.xml" //Aqui vai o endereço do arquivo RSS, ou do arquivo "gerador"// Criando Objeto XMLSet objXML = Server.CreateObject("msxml2.DOMDocument.3.0")objXML.async = falseobjXML.setProperty "ServerHTTPRequest", True// Não validar o arquivoobjXML.validateOnParse = false // Retirar espaçosobjXML.preserveWhiteSpace = falseblnLoaded = objXML.Load(url)//Condição caso não tenha notícias no RSSIf 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 "link"//Define Propriedades do link     html = html &"<tr class=''><td><a target=_blank href="& objNode2.firstChild.nodevalue &">"  Case "description" //Está desabilitado para exibir apenas os links   html = html &"</i></td></tr>"  End Select  Next Next Set objNodeList = objXML.getElementsByTagName("item") contador = 0For Each objNode In objNodeList//Definindo quantidade de notícias que será exibida  if contador < 2 then  contador = contador + 1For 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 = NothingEnd if%>

e esse é dentro do <body>

 

<%//Exibindo notícias do RSS escolhidoResponse.write (html)%>				  <!--Codigo de exibição do RSS -->

Não manjo nadica de programação.. se for design beleza.. kk mas programação é froids.. se alguem ai souber.. brigadão msm.. :D

 

abraços

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos .NET
×

Informação importante

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

  Aceito