Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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
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
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>