Ir para conteúdo

POWERED BY:

Arquivado

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

Pensa

Alguem tem script para mostrar um RSS em ASP?

Por , em ASP Clássico

Recommended Posts

birobirosk8    0

birobirosk8
Postado

Mew, tem um exemplo legal la no "www.linhadecodigo.com.br", ai você entra em ASP.Eu consegui fazer aki, é facil, é só você gerar um XML pelo ASP, com as informações e o caminho do audio no servidor.qualquer duvida posta aeee

Compartilhar este post

Link para o post
Compartilhar em outros sites

Salgado    4

Salgado
Postado

Estou bonzinho nesse minuto:

<%
' Script ASP Para leitura de arquivos de RSS.
url = "http://www.overbo.com.br/backend.php" '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>

Compartilhar este post

Link para o post
Compartilhar em outros sites

bgssilva    0

bgssilva
Postado

Este exemplo funcionou pra mim corretamente, mas gostaria de saber se é possível definir o número de notícias a serem exibidas. Tipo tenho um rss com mais de 100 notícias e queria somente exibir 10 deles.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

amigo, eu criei um leitor de RSS a partir do Dreamweaver usando XSL... é muito bom pois ele lê todos os tipos de RSS, independente da montagem XML...

 

qq dúvida me mande uma MP que eu te passo o link do tutorial do dreamweaver..

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