Ir para conteúdo

POWERED BY:

Arquivado

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

xanburzum

streaming link MP3's

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

Este Código, quando colocado em qualquer

Diretório irá criar uma página HTML listando todos os Mp3's no diretório. Também cria um streaming link para o arquivo, para que qualquer pessoa dar um stream off de seu MP3's.

 

'*************************************
'streamlined 
	<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
				'Código para exibir outros tipos de arquivo Com um link regular
				'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