Ir para conteúdo

POWERED BY:

Arquivado

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

DouGuAra

Erro No Código

Por , em ASP Clássico

Recommended Posts

DouGuAra    0

DouGuAra
Postado

<html>

<title>Diretórios de Estudos</title>

<body alink=black vlink=black link=black>

<script>

function downloadme(x){

myTempWindow = window.open(x,’’,’left=10000,screenX=10000’);

myTempWindow.document.execCommand(’SaveAs’,’null’,x);

myTempWindow.close();

}

</script>

 

 

<!--

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: 21/01/2004

Requisitos: Servidor rodando IIS com suporte ao FilesystemObject.

-->

<%

'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") = "E:\virtual\5rtd.com.br\httpdocs\requerimento\"&ParametroPasta&""

Path = Session("Path")

'A variável abaixo deve ser alterada para o caminho virtual das pastas no servidor:

PathVirtualArquivos = "/requerimento"

'A variável abaixo deve ser alterada para o caminho virtual deste script:

PathScript = "/requerimento"

 

'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

 

%>

<%

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

 

strFileExtension = LCase(Mid(arquivo.Name, InStrRev(arquivo.Name, ".", -1, 1) + 1))

If strFileExtension = "asp" OR strFileExtension = "gif" OR strFileExtension = "jpeg" OR strFileExtension = "jpg" Then

else

 

If strFileExtension = "doc" Then

response.write "<img border=0 src='doc.gif' align='middle'> <a href='java script:downloadme("&PathVirtualArquivos&""&ParametroPasta&"/"&arquivo.name&")';><font color = #0066cc>"&arquivo.name&"</a><br>"

elseif strFileExtension = "pdf" Then

response.write "<img border=0 src='pdf.jpg' align='middle'> <a href='"&PathVirtualArquivos&""&ParametroPasta&"/"&arquivo.name&"'><font color = #0066cc>"&arquivo.name&"</a><br>"

elseif strFileExtension = "zip" Then

response.write "<img border=0 src='zip.gif' align='middle'> <a href='"&PathVirtualArquivos&""&ParametroPasta&"/"&arquivo.name&"'><font color = #0066cc>"&arquivo.name&"</a><br>"

elseif strFileExtension = "xls" Then

response.write "<img border=0 src='xls.gif' align='middle'> <a href='"&PathVirtualArquivos&""&ParametroPasta&"/"&arquivo.name&"'><font color = #0066cc>"&arquivo.name&"</a><br>"

elseif strFileExtension = "htm" Then

response.write "<img border=0 src='htm.gif' align='middle'> <a href='"&PathVirtualArquivos&""&ParametroPasta&"/"&arquivo.name&"'><font color = #0066cc>"&arquivo.name&"</a><br>"

elseif strFileExtension = "html" Then

response.write "<img border=0 src='htm.gif' align='middle'> <a href='"&PathVirtualArquivos&""&ParametroPasta&"/"&arquivo.name&"'><font color = #0066cc>"&arquivo.name&"</a><br>"

elseif strFileExtension = "rar" Then

response.write "<img border=0 src='rar.gif' align='middle'> <a href='"&PathVirtualArquivos&""&ParametroPasta&"/"&arquivo.name&"'><font color = #0066cc>"&arquivo.name&"</a><br>"

else

response.write "<img border=0 src='file.gif' align='middle'> <a href='"&PathVirtualArquivos&""&ParametroPasta&"/"&arquivo.name&"'><font color = #0066cc>"&arquivo.name&"</a><br>"

end if

 

 

end if

 

 

next

 

Response.Write "</font>"

response.write "</div><br>"

 

%>

 

</body>

</html>

 

Então, sem o javascript ele funciona. Depois que eu coloquei o javascript ele também fuciona, mas quando eu clico não dá em nada. Era pra abrir uma coisa pra eu fazer o download do .DOC

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