Tocar musica do site

[lezão 0]

Ola galera.

Boa tarde!

Galera estou precisando de um codigo q faz tocar as musicas do site como eu faço isso

 

tipo assim:

 

Nome da musica 01 -- play

Nome da musica 02 -- play

Nome da musica 03 -- play

 

E qnd as pessoas clicam no play a musica toca.

 

Alguem pode me ajudar ?

[Ted k' 126]

usa javascript ou flash para fazer isso, melhor!!

[lezão 0]

você conhece algum script q faça essa função?

[~Thiago Lara 0]

Com apenas ASP você não conseguirá fazer isso, terá que usar xml com Flash por exemplo... Sugiro que de uma procurada na área de Flash ou solicite o pessoal que mova o tópico para lá!

 

Abs

[Ted k' 126]

usei muito esse:

http://www.jplayer.org/latest/demos/

[Patrique 0]

Tem esse aqui, é um dos mais completos e cheio de exemplos.

 

http://www.schillmania.com/projects/soundmanager2/

[xanburzum 169]

você pode usar um plugin para ser executado, ter as mesmas funcionalidades de um player ou usar flash com dito acima, aki um exemplo, como também usar SilverLight

 

abixo um simples exemplos de code:

 

<object id="MediaPlayer" classid="CLSID:22D6f312-B0F6-11D0-94AB-0080C74C7E95" codebase="http://activex.microsoft.com/activex/controls/mplayer/en/nsmp2inf.cab#Version=5,1,52,701" standby="Loading Microsoft® Windows® Media Player components..." type="application/x-oleobject" viewastext="" align="bottom" height="27" hspace="0" vspace="0" width="238">
   <param name="FileName" value="ENDEREÇO DA MUSICA">
   <param name="AutoStart" value="True">
   <param name="TransparentAtStart" value="True">
   <param name="ShowControls" value="0">
   <param name="ShowDisplay" value="true">
   <param name="ShowStatusBar" value="1">
   <param name="AutoSize" value="0">
   <param name="AnimationAtStart" value="true">
   <!--NETSCAPE PLUG-IN STARTS HERE-->
   <embed autostart="True" type="application/x-mplayer2" id="MediaPlayer" transparentatstart="True" showcontrols="0" showdisplay="true" showstatusbar="1" animationatstart="true" filename="ENDEREÇO DA MUSICA" autosize="0" align="bottom" height="27" width="238"></embed>
 </object>

 

tem um exemplo que coloquei no fórum, tipo uma rádio-online, um bom exemplo

[lezão 0]

Ola xan estou usando o seu codigo valeu

 

mas cara estou com outro problema naun estou conseguindo fazer upload para carregar a musica tem algum codigo especifico pra sons eu alterei um codigo q faz upload de imagens

 

<!-- #include file = "funcoes.asp" -->
<%
' Chamando Funções, que fazem o Upload funcionar
byteCount = Request.TotalBytes
RequestBin = Request.BinaryRead(byteCount)
Set UploadRequest = CreateObject("Scripting.Dictionary")
BuildUploadRequest RequestBin

' Recuperando os Dados Digitados ----------------------

Nome = UploadRequest.Item("Nome").Item("Value")
Number = UploadRequest.Item("Number").Item("Value")

data = (date)
hora = (time)

' Tipo de arquivo que esta sendo enviado
tipo_Som = UploadRequest.Item("Som").Item("ContentType")

' Caminho completo dos arquivos enviados
caminho_Som = UploadRequest.Item("Som").Item("FileName")

' Nome dos arquivos enviados
nome_Som = Right(caminho_Som,Len(caminho_Som)-InstrRev(caminho_Som,"\"))

' Conteudo binario dos arquivos enviados
Som = UploadRequest.Item("Som").Item("Value")

' pasta onde as imagens serao guardadas
pasta = Server.MapPath("Som/")
nome_Som = "/"&nome_Som

' pasta + nome dos arquivos
cSom = "som/" + nome_Som

'---Fim---

' Fazendo o Upload do arquivo selecionado
if Som <> "" then
Set ScriptObject = Server.CreateObject("Scripting.FileSystemObject")
Set MyFile = ScriptObject.CreateTextFile(pasta & nome_Som)
For i = 1 to LenB(Som)
MyFile.Write chr(AscB(MidB(Som,i,1)))
Next
MyFile.Close
end if

' Conecta-se ao Banco de Dados
url_conexao = Server.MapPath("../Dados/Database11.mdb")
set conexao = Server.CreateObject("ADODB.Connection")
conexao.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&url_conexao 

' cadastra os dados no banco de dados
sql = "Insert into Musicas (Nome,Number,Som,data,hora) values ('"& Nome &"', '"& Number &"', '"& cSom &"', '"& data &"', '"& hora &"')"
Conexao.Execute(sql)

' Mostra Mensagem de Confirmação na Tela
Response.write "<center><font face=Verdana, Arial, Helvetica, sans-serif size=2><color= #ff0000><h2><b>Dados cadastrados com sucesso!</b></h2></center></font>"

' Redireciona após 5 segundos
response.write "<meta http-equiv='refresh' content='3; url=form_exclui.asp'/>"
%>
<head>
<title></title>
</head>

<body>
<p align="center">
<p align="center"><img border="0" src="../imagens/carregando.gif"></p>

 

 

Olha o erro que esta dando

 

Request object error 'ASP 0104 : 80004005' 

Operation not Allowed 

/public_html/dagmarsantos/painel/verificar.asp, line 5 

[Vinicius Ianni 189]

Verifique se não esta faltando algun include ou algum arquivo que compõe esse script de upload que você alterou.

 

A linha que aponta o erro seria qual ?

[lezão 0]

Q erro é esse ?

 

Active Server Pages error 'ASP 0113' 

Script timed out 

/public_html/dagmarsantos/painel/verificar.asp 

The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools. 

 

TRADUÇÃO:

A quantidade máxima de tempo para um script para executar foi excedida. Você pode alterar esse limite especificando um novo valor para a propriedade Server.ScriptTimeout ou alterando o valor nas ferramentas de administração do IIS. 

[xanburzum 169]

aumente o valor para Server.ScriptTimeout. O valor padrão é 90 segundos, então alguma coisa no seu script deve estar demorando mais do que 90 segundos. (Eu não recomendo fazer isso para o seu site inteiro, como a mensagem de erro sugere, pois pode mascarar outros problemas para você.)

 

Agora que você já identificou uma página que demora mais do que 90 segundos para executar, é preciso trabalhar sobre ela, ao invés de simplesmente confiar na bandaid.

[lezão 0]

Xan mas aonde eu encontro isso Server.ScriptTimeout?

[~Thiago Lara 0]

Você não encontra, você define o quanto você quer que sua página execute até ela expirar...

 

Quando o xanburzum sugeriu que você procurasse a fundo seria de fato ver aonde em seu código possa estar demorando muito para processar... isso inclui consulta a banco de dados, upload's, loop's infinitos.. por aí vai..

[xanburzum 169]

A propriedade ScripTimeout do objeto Server especifica quantidade máxima de tempo que um script

pode rodar até terminar.

 

Sintaxe: Server.ScriptTimeout = numsegundos

 

Numsegundos determina o número máximo em segundos que o script pode rodar até terminar. O valor

padrão é de 90 segundos.

 

Exemplo:

No código abaixo o script termina se o servidor levar mais que 300 segundos para processar

o script.

< % Server.ScriptTimeout = 300 %>