Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Explicação rápida.
Fiz uma biblioteca de filmes e aloquei em uma pasta chamada D:
Estou rodando a página IIS instalada no C:, quando eu chamo a capa do filme ela aparece direitinho, mas quando chamo o link para abrir o video não tem ação.
Estou fazendo assim:
For Each File in objFolder.files
Response.Write " <tr>"
Response.Write " <td><a href='D:/FilmesHD/" & File.Name & "'> <img src='Capas/" & File.Name & ".jpg' width='135' height='182'></a></td>"
Response.Write " <td>" & File.Name & "</td>"
Response.Write " <td>" & File.Type & "</td>"
Response.Write " <td>" & File.DateLastModified & "</td>"
Response.Write " </tr>"O erro é que o arquivo não abre nem no navegador quanto no player.
Olá hudsonalves blza!
Veja esse exemplo, talvez te ajude a ter uma ideia ou algum luz para seu problema.
Ele faz a listagem de diretórios e subdiretórios (arvore de diretórios) e seus respectivos arquivos.
AUTOR:
<!--
Título: Script para Navegação entre diretórios e arquivos em servidor WEB.
Versão: 1.0
Autor: Ricardo Vinicius de Godoi
Email: rvgodoi@hotmail.com
Data: 10/11/2002
Requisitos: Servidor rodando IIS com suporte ao FilesystemObject.
-->
default.asp
<%
'Bloco de código que faz com que a página não seja armazenada em cache, evitando que o usuário
'visualize arquivos/pastas que não estão mais no servidor ou não visualize arquivos/pastas novos:
Response.Buffer=true
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = #January 1, 1990 00:00:01#
Response.Expires=Now()-1
Response.AddHeader "Cache-Control", "must-revalidate"
Response.AddHeader "Cache-Control", "no-cache"
%>
<%
'Configurações do script:
'Parametro passado pela URL quando se clica em uma determinada pasta ou arquivo:
ParametroPasta = Request.QueryString("Pasta")
'A session abaixo deve ser alterada para o caminho físico onde estarão os arquivos e subdiretórios a serem acessados:
Session("Path") = "C:/inetpub/wwwroot/FilmesHD"&ParametroPasta&""
Path = Session("Path")
'A variável abaixo deve ser alterada para o caminho virtual das pastas no servidor:
PathVirtualArquivos = "/FilmesHD"
'A variável abaixo deve ser alterada para o caminho virtual deste script:
PathScript = "/FilmesHD/default.asp"
'Criando o objeto Filesystem Object:
SET FSO = Server.CreateObject("Scripting.FileSystemObject")
'Setando o caminho que será indicado como pasta raiz:
Set Pasta = FSO.GetFolder(""&Path&"")
'Solicitando a lista de arquivos para a pasta raiz:
set arquivos = pasta.files
'Setando a pasta raiz:
set Raiz = Pasta
'Verificando as subpastas da pasta raiz:
Set Pastas = Raiz.SubFolders
'Verificando o Nome da pasta Raiz:
Nome = pasta.name
'Verificando se há subpastas:
contador = 0
for each subpastas in pastas
contador = contador+1
next
%>
</b>
<%
Response.write "<br><div align=left>"
Response.Write "<font face=arial size=2>"if contador <> 0 then
'Fazendo um loop pelas subpastas da pasta raiz:
for each subpastas in Pastas
response.Write "<img border=0 src='fold.gif' align=top><a href='"&PathScript&"?Pasta="&ParametroPasta&"\"&subpastas.name&"'><font color = #003366>"&subpastas.name&"</font></a><br>"
next
end if
response.write "<br>"
'Fazendo um loop pelos arquivos da pasta:
Apostila = "apostilas"
for each arquivo in arquivos
response.write "<img border=0 src='file.gif' align='middle'> <a href='"&PathVirtualArquivos&""&ParametroPasta&"/"&arquivo.name&"'><font color = #0066cc>"&arquivo.name&"</a><br>"
next
Response.Write "</font>"
response.write "</div><br>"<hr color=black>
<font color=black face=Verdana size=2>
<a href='#' onClick='history.go(-1)'><font color=black>Voltar</font></a> | response.write "<a href='"&PathScript&"?Pasta="&ParametroPasta&"'>"
response.write "Refresh</font></a>"É um script bem legal para Navegar entre "Diretórios e Arquivos".
Espero ter ajudado,
vlw
Bom dia Wilnet
Seu script é muito bom, só precisei ajustar os caminhos de meus arquivos, mas continuo com o problema: linkei o caminho dos filmes (que estão na pasta D:), bem como de suas capas que já aparecem no navegador, mas quando eu clico em qualquer filme, não há nenhuma ação, ou seja o filme não abre.
Fiz o teste colocando o filme na mesma pasta do site, deu o mesmo resultado.
<%
'Bloco de código que faz com que a página não seja armazenada em cache, evitando que o usuário
'visualize arquivos/pastas que não estão mais no servidor ou não visualize arquivos/pastas novos:
Response.Buffer=true
Response.AddHeader "cache-control", "private"
Response.AddHeader "pragma", "no-cache"
Response.ExpiresAbsolute = #January 1, 1990 00:00:01#
Response.Expires=Now()-1
Response.AddHeader "Cache-Control", "must-revalidate"
Response.AddHeader "Cache-Control", "no-cache"
%>
<%
'Configurações do script:
'Parametro passado pela URL quando se clica em uma determinada pasta ou arquivo:
ParametroPasta = Request.QueryString("Pasta")
'A session abaixo deve ser alterada para o caminho físico onde estarão os arquivos e subdiretórios a serem acessados:
Session("Path") = "D:\filmeshd"&ParametroPasta&""
Path = Session("Path")
'A variável abaixo deve ser alterada para o caminho virtual das pastas no servidor:
PathVirtualArquivos = "D:\filmeshd"
'A variável abaixo deve ser alterada para o caminho virtual deste script:
PathScript = "/FilmesHD/default.asp"
'Criando o objeto Filesystem Object:
SET FSO = Server.CreateObject("Scripting.FileSystemObject")
'Setando o caminho que será indicado como pasta raiz:
Set Pasta = FSO.GetFolder(""&Path&"")
'Solicitando a lista de arquivos para a pasta raiz:
set arquivos = pasta.files
'Setando a pasta raiz:
set Raiz = Pasta
'Verificando as subpastas da pasta raiz:
Set Pastas = Raiz.SubFolders
'Verificando o Nome da pasta Raiz:
Nome = pasta.name
'Verificando se há subpastas:
contador = 0
for each subpastas in pastas
contador = contador+1
next
%>
</b>
<%
Response.write "<br><div align=left>"
Response.Write "<font face=arial size=2>"if contador <> 0 then
'Fazendo um loop pelas subpastas da pasta raiz:
for each subpastas in Pastas
response.Write "<img border=0 src='fold.gif' align=top><a href='"&PathScript&"?Pasta="&ParametroPasta&"\"&subpastas.name&"'><font color = #003366>"&subpastas.name&"</font></a><br>"
next
end if
response.write "<br>"
'Fazendo um loop pelos arquivos da pasta:
Apostila = "apostilas"
for each arquivo in arquivos
response.write "<img border=0 src='Capas/"&arquivo.name&".jpg' width='135' height='182' alt=''> <a href='"&PathVirtualArquivos&""&ParametroPasta&"/"&arquivo.name&"'><font color = #0066cc>"&arquivo.name&"</a><br>"
next
Response.Write "</font>"
response.write "</div><br>"<hr color=black>
<font color=black face=Verdana size=2>
<a href='#' onClick='history.go(-1)'><font color=black>Voltar</font></a> | response.write "<a href='"&PathScript&"?Pasta="&ParametroPasta&"'>"
response.write "Refresh</font></a>"Esse D: é diretório do seu HD?
O script funciona corretamente.
você deve está errando ao passar o PATH de forma correta, talvez seja isso.
Ou tb, apenas para efeito de testes, tente abrir uma Imagem ao invés de um Filme, apenas ver o comportamento das extensões dos arquivos.
dá um response.write no path final do filme para ver como esta sendo passado ?
>
Esse D: é diretório do seu HD?
O script funciona corretamente.
você deve está errando ao passar o PATH de forma correta, talvez seja isso.
Ou tb, apenas para efeito de testes, tente abrir uma Imagem ao invés de um Filme, apenas ver o comportamento das extensões dos arquivos.
Isso, D: é meu diretório do HD onde esta os filmes
Na verdade esta passando corretamente o Path, para se ter uma ideia, o arquivo esta abrindo as capas e inserindo os links quando eu clico no link não abre o filme, mas se eu clico com o botão direito, copio o link e colo no browser o filme começa a rolar.
Só não entendi porque quando eu clico não abre.
Para efeito de testes, eu publiquei um "Vídeo.avi" na minha pasta "Fotos".
Ao abrir a página default.asp, ele listou tudo, os Arquivos e Diretório.
Quando cliquei no Vídeo, ele TAMBÉM NÃO ABRIU, foi forçado o Download deste vídeo, já com imagens ele abre normal.
Resumo dos testes:
Testei as extensões: Image, PDF ( Abre Normal )
Testei AVI, Doc, XLS ( Não Abre ) - Neste caso é forçado o download desses arquivos.
Faça seus testes tb, e veja se esse comportamento é vdd.
>
Para efeito de testes, eu publiquei um "Vídeo.avi" na minha pasta "Fotos".
Ao abrir a página default.asp, ele listou tudo, os Arquivos e Diretório.
Quando cliquei no Vídeo, ele TAMBÉM NÃO ABRIU, foi forçado o Download deste vídeo, já com imagens ele abre normal.
Resumo dos testes:
Testei as extensões: Image, PDF ( Abre Normal )
Testei AVI, Doc, XLS ( Não Abre ) - Neste caso é forçado o download desses arquivos.
Faça seus testes tb, e veja se esse comportamento é vdd.
Estava fazendo estes testes, fotos abre, desde que esteam em formato JPG se for PNG ou GIF ao clicar não acontece nada, mas JPG ele abre o visualizador de fotos.
Para os videos, ele lista todos eles incluindo as pastas contidas no caminho, mas ao clicar em qualquer vídeo não inicia nenhuma reprodução.
Fiz o teste assim, cliquei com o botão direito sobre um dos arquivos listados copiei o link que o sistema esta apontando e colei no browser, quando clico enter funciona, isso significa que esta certinho tanto a localização quanto ao link criado pelo sistema. Só não abre.
Estranho isso, como você esta forçando o link e vídeo?
para abrir (executar) o arquivo de vídeo, o melhor será vc executá-lo dentro de um player, vc pode usar um player em jquery ou até mesmo HTML5, fique perfeito pra seu caso.
Xan, construi a página inicial usando bootstrap com player do jquery, mesmo assim não rolou
qual o erro ?
provavelmente isso é a concatenação que não esta correta do link