Publicado em 2 de jun.

Erro No Código

#asp classico

Boa tarde.

peguei esse exemplo aqui no site Forçar Download De Arquivo

Tentei colocar a minha aplicação mas não da certo. Alguém pode me ajudar a fazer isso funcionar.

Desde já muito obrigado

Douglas.

Discussão (2)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Rodrigo Thiago· 2 de jun.

o que nao deu certo, qual o erro????????????

DouGuAra· 2 de jun.

<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

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>"

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

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