Classe que mostrar dados da Conta do Twitter
Olá a todos, nesse artigo vamos aprender a criar um exemplo simples de como mostrar os dados de uma conta do twitter em sua página, resgatando informações de um XML:
O link é Simples: http://twitter.com/users/show/imasters.xml
Usando um Objeto para ler o XML e um layout agradável, chegamos a essa conclusão:
Criei uma classe chamada UserTwitter, dentro criei uma sub chamada LerXML() para fazer todo o processo:
página default.class.asp
class UserTwitter<br />public sub LerXML()<br />set objXMLDOM = server.createObject("MSXML2.DOMDocument.3.0")<br />objXMLDOM.async = false<br />objXMLDOM.setProperty "ServerHTTPRequest", true<br />objXMLDOM.validateOnParse = false <br />objXMLDOM.load("http://twitter.com/users/show/"request.queryString("username")".xml")<br /><br />set raiz = objXMLDOM.getElementsByTagName("*")OBS: coloquei o request.queryString para ter um resgate do nome do usuário mais objetivo!
E, um laço de repetição para pegar a posição de cada nó e para cada nome no XML, assim:
for i = 0 to raiz.length - 1<br />select case (raiz.item(i).nodeName)<br />case ("name") : tw.nome = raiz.item(i).text<br />case ("screen_name") : tw.screen_name = raiz.item(i).text<br />case ("location") : tw.location = raiz.item(i).text<br />case ("profile_image_url") : tw.profile_image_url = raiz.item(i).text<br />case ("url") : tw.url = raiz.item(i).text<br />case ("followers_count") : tw.followers_count = raiz.item(i).text<br />case ("friends_count") : tw.friends_count = raiz.item(i).text<br />case ("favourites_count") : tw.favourites_count = raiz.item(i).text<br />case ("statuses_count") : tw.statuses_count = raiz.item(i).text<br />case ("time_zone") : tw.time_zone = raiz.item(i).text<br />case ("profile_background_image_url") : tw.profile_background_image_url = raiz.item(i).text<br />case ("profile_background_color") : tw.profile_background_color = ucase(raiz.item(i).text)<br />case ("profile_text_color") : tw.profile_text_color = ucase(raiz.item(i).text)<br />case ("profile_link_color") : tw.profile_link_color = ucase(raiz.item(i).text)<br />case ("profile_sidebar_fill_color") : tw.profile_sidebar_fill_color = ucase(raiz.item(i).text)<br />case ("profile_sidebar_border_color") : tw.profile_sidebar_border_color = ucase(raiz.item(i).text)<br />end select<br />nextNo código dentro do CASE coloquei o nome das tags do XML. fazendo o seguinte:
Quando encontrar o “nodeName”“tal”, mostre “tal”case, como uma condicional IF
raiz.item(i).nodeNameObservando também que uso essa propriedade do XML (.text) para imprimir o que há na tag.
raiz.item(i).textCriando um objeto e chamando ele na tela:
set tw = new UserTwitter<br />tw.LerXML()criei uma página chamada default.asp
< Language="VBScript" ><br /><!--include file="Default.class.asp"-->… o restante do código
Para ter acesso o código completo e o layout clique aqui para baixar
Programador WEB com conhecimento em várias linguagens de programação. Sócio-Fundador e Desenvolvedor na AgênciaOFF, desenvolvendo o Front-End de Sites e criando interatividades com JavaScript, HTML5 (Games em JavaScript). Desenvolvo também em Objective-C (para iPhone/iPad), Ardunio (C/C++), PHP, ASP e ASP.NET (C# e VB). Programo desde 1997 e tenho uma grande experiência na área.
