Ir para o conteúdo

Listar Favoritos Do Youtube


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

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:14

*
REVISÃO POPULAR!

Classe
<%
class YouTube
        private objXML
        private objLista
        private usuario
        private url
        private id, i
        private nome_objeto
        
        private sub objetosXML()
                set objXML = server.createObject("MSXML2.DOMdocument.3.0")
                        objXML.async = false
                        objXML.setProperty "ServerHTTPRequest", true
                        objXML.validateOnParse = false
                        objXML.load(url)
                set objLista = objXML.getElementsByTagName("*")
        end sub
        
        public sub carregarURL()
                usuario = "nome_do_seu_usuario"
                url = "http://gdata.youtube.com/feeds/api/users/"&usuario&"/favorites"
                call objetosXML()
                                
                for i = 16 to (objLista.length - 1)                     
                        select case (objLista.item(i).nodeName)
                                case "id"
                                        nome_objeto = objLista.item(i).text
                                        id = right(nome_objeto, len(nome_objeto) - instrRev(nome_objeto,"/"))
                                        
                                        tabela = tabela & "<table width=""494"" border=""0"" cellspacing=""0"" cellpadding=""0"">"
                                        tabela = tabela & "<tr><td colspan=""2"">"
                                        tabela = tabela & "<object width=225 height=144><param name=movie value=http://www.youtube.com/v/"&id&"></param>"
                                        tabela = tabela & "<param name=allowFullScreen value=true></param>"
                                        tabela = tabela & "<param name=allowscriptaccess value=always></param>"
                                        tabela = tabela & "<embed src=http://www.youtube.com/v/"&id&" type=application/x-shockwave-flash allowscriptaccess=always allowfullscreen=true width=225 height=144></embed>"
                                        tabela = tabela & "</object>"
                                        tabela = tabela & "</td></tr>"
                                        
                                case "title"
                                        tabela = tabela & "<tr><td width=""92"" valign=""top"" style=""font: 11px Arial;""><strong>TÍTULO:</strong></td>"
                                        tabela = tabela & "<td width=""402"" valign=""top"" style=""font: 11px Arial;"">"&objLista.item(i).text&"</td></tr>"
                                        
                                case "content"
                                        tabela = tabela & "<tr><td valign=""top"" style=""text-align: justify; font: 11px Arial;""><strong>DESCRIÇÃO:</strong></td>"
                                        tabela = tabela & "<td valign=""top"" style=""font: 11px Arial;"">"&objLista.item(i).text&"</td></tr>"
                                        tabela = tabela & "</table><br><br>"
                        end select
                next
                
                response.write(tabela)
        end sub
end class
%>

O HTML
<%@ Language="VBScript" %>
<!--#include file="Default.class.asp"-->
<%
dim yt
set yt = new YouTube
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR...nsitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<body>
<%=yt.carregarURL()%>
</body>
</html>

Resultado:
Imagem postada




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

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