Basta salvar o arquivo abaixo como Download.asp e transferir o arquivo para download conforme necessário. Formato: Download.asp?FileName=O nome do arquivo a ser baixado
Copie o código do código da seguinte forma:
Escurecer fluxo
Escurecer conteúdo
Escurecer nome do arquivo
Escurecer FileExt
Const adTypeBinary = 1
NomeArquivo = Request.QueryString(NomeArquivo)
se NomeArquivo = Então
Response.Write Nome de arquivo inválido.
Resposta.Fim
Terminar se
'A seguir estão os arquivos que você não deseja baixar
FileExt = Mid(NomeArquivo, InStrRev(NomeArquivo, .) + 1)
Selecione Caso UCase (FileExt)
Caso ASP, ASA, ASPX, ASAX, MDB
Response.Write é um arquivo protegido e não pode ser baixado.
Resposta.Fim
Finalizar seleção
'Baixar este arquivo
Resposta.Limpar
Response.ContentType = aplicativo/fluxo de octetos
Response.AddHeader disposição de conteúdo, anexo;
Definir Stream = server.CreateObject(ADODB.Stream)
Stream.Type = adTypeBinary
Stream.Aberto
Stream.LoadFromFile Server.MapPath (Nome do Arquivo)
Embora não seja Stream.EOS
Response.BinaryWrite Stream.Read (1024 * 64)
Wend
Stream.Fechar
Definir fluxo = nada
Resposta.Flush
Resposta.Fim