Ir para conteúdo

POWERED BY:

Arquivado

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

xanburzum

[Resolvido] Streaming MP3

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Este Código, quando colocados em qualquer diretório irá criar uma página HTML listando todos os Mp3 no diretório. Ele também cria um link para o arquivo de streaming.

 

último exemplo simplificado:
<HTML>
<HEAD>
<TITLE></TITLE>
</HEAD>
<BODY>
<%
On Error Resume Next
Dim FileSystemObject, Folder, FileCollection, File
Dim FolderPath, WebDir
    If Request.QueryString("play") >"" Then
    Response.Write "<EMBED src=" & chr(34) & Request.QueryString("play") & chr(34) 
    Response.Write " width=350 height=43 controls=console volume=80"
    Response.Write " width=350 loop=false type='audio/mp3'>"
    Response.Write "<BR>"
    End If
Server.ScriptTimeOut=1
FolderPath= server.MapPath(".") & "\"
WebDir= Request.ServerVariables("PATH_INFO")
Set FileSystemObject = CreateObject("Scripting.FileSystemObject")
'Lista todos os arquivos
Set Folder = FileSystemObject.GetFolder(Folderpath)
Set FileCollection = Folder.Files
For Each File In FileCollection
        s = LCase(File.Name)
        If ucase(Right(File.name,4))=".MP3" Then
            Response.Write "<A href=" & chr(34) & webdir & "?Play=" & File.name & chr(34) & ">" & File.name & " FileSize=" & File.size & "</A><BR>"
        Else
            'Code To display other file types with a regular link
            'Response.Write "<A href=" & chr(34) & webdir & f1.name & chr(34) & ">" & f1.name & " FileSize=" & f1.size & "</A><BR>"
        End If
Next
%>
</BODY>
</HTML>

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