Ir para conteúdo

POWERED BY:

Arquivado

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

1sys

Capturar Links e Textos

Por , em ASP Clássico

Recommended Posts

1sys    0

1sys
Postado

Olá galera estou com duvidas como eu poderia capturar links e texto de uma outra pagina de um assunto especifico, isso e possivel andei vendo sobre "Microsoft.XMLHTTP" masi ñ consegui nada o um site q vi e prtendo pegar algumas informaç~es e o http://news.google.com/?ned=pt-BR_br&topic=m alguem pode me indicar onde posso obter mais informações ou exemplos....

 

fico aguardando contatos

Compartilhar este post

Link para o post
Compartilhar em outros sites

Elbrinner    0

Elbrinner
Postado

Tem isso no forum eu mesmo peguei esse:

 

para ver funcionando entre em http://www.meupais.com/rsssite1.asp

 

<%' Script ASP Para leitura de arquivos de RSS.url = "http://www.meupais.com/rss.asp" 'Aqui vai o endereço do arquivo RSS, ou do arquivo "gerador"' Criando Objeto XMLSet objXML = Server.CreateObject("msxml2.DOMDocument.3.0") objXML.async = false objXML.setProperty "ServerHTTPRequest", True ' Não validar o arquivoobjXML.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

1sys    0

1sys
Postado

eu testei aki este script e deu erro buscando o link da http://news.google.com/?ned=pt-BR_br&topic=m&output=rss se ñ for pedir muito você poderia me enviar o sitema http://forum.imasters.com.br/public/style_emoticons/default/joia.gif http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

 

erro q deu:

Objeto Server error 'ASP 0177 : 800401f3' Falha em Server.CreateObject /captura.asp, line 6 Seqüência de classe inválida

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