Ir para conteúdo

POWERED BY:

Arquivado

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

Patrique

[Resolvido] class youtube favorites ted

Por , em ASP Clássico

Recommended Posts

Patrique    0

Patrique
Postado

Galera, tentei executar aqui a função que o ted fez para pegar os dados do video lá no youtube, so que não funfou

 

é desta class aqui que estou falando

 

http://imasters.com.br/artigo/11717

 

estou tentando pegar os favoritos do usuário foreverman e não ta funfando.

 

estou fazendo assim

 

<%
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 = "foreverman"
		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/watch?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/watch?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
%>

Por que será que não ta funfando?

 

opa consegui heheheheh, olhei lá no blog dele e lá tinha a sequencia que no caso é essa aqui

 

<%@ 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/xhtml1/DTD/xhtml1-transitional.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>

eu não tinha prestado atenção haahuauhauaha

 

[]'s

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