Ir para o conteúdo

Ver Os Dados Do Usuário Do Twitter


Criado por Ted k', Out 04 2010 16:12

Não há respostas para este tópico
  • Por favor, faça o login para responder

#1 Ted k'

Ted k'
  • Ted k'
  • Colaborador
  • 17 Revisões
  • LocalizaçãoSalvador - {BA}

Revisou 04 outubro 2010 - 16:12

<%
class UserTwitter
private objXMLDOM
private raiz, i
public nome, screen_name, location
public profile_image_url, url
public followers_count, friends_count
public favourites_count, statuses_count
public time_zone, profile_background_color
public profile_text_color, profile_link_color
public profile_sidebar_fill_color, profile_sidebar_border_color
public profile_background_image_url

public sub LerXML()
set objXMLDOM = server.createObject("MSXML2.DOMdocument.3.0")
objXMLDOM.async = false
objXMLDOM.setProperty "ServerHTTPRequest", true
objXMLDOM.validateOnParse = false  
objXMLDOM.load("http://twitter.com/users/show/"&request.queryString("username")&".xml")

set raiz = objXMLDOM.getElementsByTagName("*")

for i = 0 to raiz.length - 1
select case (raiz.item(i).nodeName)
case ("name") : tw.nome = raiz.item(i).text
case ("screen_name") : tw.screen_name = raiz.item(i).text
case ("location") : tw.location = raiz.item(i).text
case ("profile_image_url") : tw.profile_image_url = raiz.item(i).text
case ("url") : tw.url = raiz.item(i).text
case ("followers_count") : tw.followers_count = raiz.item(i).text
case ("friends_count")  : tw.friends_count      = raiz.item(i).text
case ("favourites_count") : tw.favourites_count = raiz.item(i).text
case ("statuses_count") : tw.statuses_count = raiz.item(i).text
case ("time_zone") : tw.time_zone = raiz.item(i).text
case ("profile_background_image_url") : tw.profile_background_image_url = raiz.item(i).text
case ("profile_background_color") : tw.profile_background_color = ucase(raiz.item(i).text)
case ("profile_text_color"): tw.profile_text_color= ucase(raiz.item(i).text)
case ("profile_link_color"): tw.profile_link_color= ucase(raiz.item(i).text)
case ("profile_sidebar_fill_color") : tw.profile_sidebar_fill_color = ucase(raiz.item(i).text)
case ("profile_sidebar_border_color") : tw.profile_sidebar_border_color = ucase(raiz.item(i).text)
end select
next
set objXMLDOM = nothing
end sub

end class

set tw = new UserTwitter
tw.LerXML()
%>

Resultado:
Imagem postada

Baixar o Script:
http://tedk.com.br/b...ser_twitter.rar




1 usuário(s) está(ão) lendo este código

1 membro(s), 0 visitante(s) e 0 membros anônimo(s)