[Resolvido] download

[xanburzum 169]

Este é um script muito simples download de arquivo. Ele irá abrir, ler e enviar arquivos binário sem uma usng COM. É seguro para arquivos executáveis e arquivos Zip. Altere o caminho na linha Server.MapPath para onde sempre os arquivos estão no seu servidor.

 

<%
	Response.Buffer = True
	Response.Clear
	
	' definir o diretório que contém os arquivos aqui
	strFileName = Server.MapPath( "/set/path/here/" & Request.QueryString( "file" ) )
	
	Set Sys = Server.CreateObject( "Scripting.FileSystemObject" )
	Set Bin = Sys.OpenTextFile( strFileName, 1, False )
	If Sys.FileExists( strFileName ) Then
		
		'  Defina o nome de arquivo para salvar como
		Call Response.AddHeader( "Content-Disposition", "attachment; filename=" & strFileName )
		
		' Certifique-se de downloads do navegador, em vez de executá-lo
		Response.ContentType = "application/octet-stream"
		
		' Enviar como um binário Byte Stream
		While Not Bin.AtEndOfStream
			Response.BinaryWrite( ChrB( Asc( Bin.Read( 1 ) ) ) )
		Wend
	Else
		Response.Redirect( "erro.html" )
	End If
	Bin.Close : Set Bin = Nothing
	Set Sys = Nothing
%>

Depois você pode criar uma pagina para , no caso do arquivo não ser encontrado, uma pagina simples, apenas exibindo uma mensagem de erro, neste caso a pagina erro.html