[Resolvido] caixa de mensagem

[Rodrigo 3R 0]

Olá pessoal, estou reabrindo este post, devido que estou tendo dificuldades e não estou conseguindo achar uma solução, façodo download e o arquivo vem corrompido, ja vi e revi o código comparando com deste post e nada de solução... por favor quem puder me ajudar agradeço !

 

 

Linha que chama a própria página para fazer o download.

 

response.Write("<a href=http://www.art-final.com/Upload/download.asp?sit=D&arquivo="&trim(Item.name)&">"&trim(Item.name)&"</a>")


Trecho que faz o download acontecer.

If request.QueryString("sit") = "EX" then
		Session.LCID = 1046
		Set Fso = Server.CreateObject ("Scripting.FileSystemObject")
		caminho = "D:\Domains\art-final.com\wwwroot\UpLoad\Arquivos\"
		Fso.DeleteFile(Caminho & request.QueryString("arquivo"))	
		response.Redirect("download.asp")
	end if


	if request.QueryString("sit") = "D" then
	
		'É necessário passar o nome do arquivo no FORM
		Dim Arquivo
		Arquivo = request.QueryString("arq")
		Response.Buffer = True	
		Response.AddHeader "Content-Type","application/x-msdownload"
		Response.AddHeader "Content-Disposition","attachment; filename=" & Request.QueryString("arquivo")
		Response.Flush
		Set objStream = Server.CreateObject("ADODB.Stream")
		objStream.Open
		objStream.Type = 1
		objStream.LoadFromFile Server.MapPath("\Upload\arquivos\" & trim(Request.QueryString("arquivo")))
		Response.BinaryWrite objStream.Read
		objStream.Close
		Set objStream = Nothing
		Response.Flush
		
		response.Write Server.MapPath("\Upload\arquivos\" & trim(Request.QueryString("arquivo")))
		response.End()
		
	end if

 

Dúvida referente ao tópico "Caixa de mensagem"

[Public2004 79]

Corrompido? Qual o tipo de arquivo que está efetuando download?

[Rodrigo 3R 0]

Corrompido? Qual o tipo de arquivo que está efetuando download?

 

Imagem, só que tem que aceitar qualquer arquivo, um pouco especificamente arquivos corel, photoshop... ele baixa normalmente, ao abrir o arquivo se mostra inválido.

[Public2004 79]

Altera este trecho na sua pág. e testa ae...

if request.QueryString("sit") = "D" then
	
		'É necessário passar o nome do arquivo no FORM
		Dim Arquivo
		Arquivo = Trim(Request.QueryString("arq"))
		Response.Clear()
		Response.AddHeader "Content-Type","application/x-msdownload"
		Response.AddHeader "Content-Disposition","attachment; filename=" & Arquivo
		Response.Flush
		Set objStream = Server.CreateObject("ADODB.Stream")
		objStream.Open
		objStream.Type = 1
		objStream.LoadFromFile Server.MapPath("\Upload\arquivos\" & Arquivo)
		Response.BinaryWrite objStream.Read
		objStream.Close
		Set objStream = Nothing
		Response.Flush
		
		response.Write Server.MapPath("\Upload\arquivos\" & Arquivo)
		response.End()
		
	end if

Abs.

[Rodrigo 3R 0]

Altera este trecho na sua pág. e testa ae...

if request.QueryString("sit") = "D" then
	
		'É necessário passar o nome do arquivo no FORM
		Dim Arquivo
		Arquivo = Trim(Request.QueryString("arq"))
		Response.Clear()
		Response.AddHeader "Content-Type","application/x-msdownload"
		Response.AddHeader "Content-Disposition","attachment; filename=" & Arquivo
		Response.Flush
		Set objStream = Server.CreateObject("ADODB.Stream")
		objStream.Open
		objStream.Type = 1
		objStream.LoadFromFile Server.MapPath("\Upload\arquivos\" & Arquivo)
		Response.BinaryWrite objStream.Read
		objStream.Close
		Set objStream = Nothing
		Response.Flush
		
		response.Write Server.MapPath("\Upload\arquivos\" & Arquivo)
		response.End()
		
	end if

Abs.

 

O problema ainda persiste, assim acontece de salvar como página asp, nao faz o download...

[Public2004 79]

É porque não está recebendo a variável corretamente...

Verifique nesta linha:

Arquivo = Trim(Request.QueryString("arq"))

Se a Query "arq" é a mesma definida na sua URL, caso afirmativo, dê um response.write na variável para ver se o valor está chegando corretamente.

 

Abs.

[Rodrigo 3R 0]

A situação é a mesma, já havia sido colocado e permanece ainda o Trim(), não consigo ainda.

[Public2004 79]

Não...

O que eu quis dizer é se na sua URL, ex: pagina.asp?arq=blablabla - a definição "arq" é a mesma que está utilizando no Request

[Rodrigo 3R 0]

Pode ter certeza que sim né... rs.

[Public2004 79]

Pode ter certeza que sim né...

Não custa perguntar, afinal, na abertura deste tópico você mencionou isso:

...www.art-final.com/Upload/download.asp?sit=D&arquivo="&trim(Item.name)&"...

e não "arq" como na Request.QueryString (exemplo que sugeri)...

Como disse, o valor da variável não está chegando (motivo de salvar como "pagina.asp"), verifique através de um response.write para ver se o valor está chegando corretamente, beleza...

[Rodrigo 3R 0]

Aqruivo usei a variável para passar o nome do arquivo a ser excluido e arq é o nome do arquivo enviado quando clica para fazer o download, mas afinal, há como fazer isso? pois ja testei vários scripts inclusive usando o javascript e nada... nao dá certo...

[Public2004 79]

De onde você recupera esse "arq", na sua query só tem "sit" e "arquivo" - Eu já testei o trecho do cód que sugeri e funcionou corretamente, tanto para arquivos "pdf, doc, psd, cdr, etc..." e os downloads foram efetuados corretamente. Abs.

[Rodrigo 3R 0]

definições:

 

Sit -> Situação do processo: Download, exclusão, alteração, inclusão, Alteração de dados etc.

Arq - > valor passado pelo link ao ser clicado em excluir

Aqrquivo -> valor passado pelo link ao ser clicado em Download (nome do arquivo)

[Rodrigo 3R 0]

Public2004

 

Deu certo agoraaqui tb, mudei os nomes das variáveis. Obrigado de qualquer forma !

[Public2004 79]

:D Que bom...