Ir para o conteúdo

Forçando Downloads


Criado por Ted k', Out 04 2010 16:10

Não há respostas para este tópico
  • Por favor, faça o login para responder

#1 Ted k'

Ted k'
  • Ted k'
  • Colaborador
  • 17 Revisões
  • LocalizaçãoSalvador - {BA}

Revisou 04 outubro 2010 - 16:10

public function download(arquivo, pasta)
        dim objStream
        set objStream = server.createObject("ADODB.Stream")
        with (response)
                .buffer = true  
                .addHeader "Content-Type","application/x-msdownload"
                .addHeader "Content-Disposition","attachment; filename="&arquivo  
                .flush  
        end with
        with (objStream)
                .open  
                .type = 1  
                .loadFromFile server.mapPath(pasta)
        end with
        response.binaryWrite objStream.read
        set objStream = nothing
        response.flush
end function

para chamar a função...
<a href="<% call download("arquivo.pdf", "pasta") %>">baixe aqui</a>





1 usuário(s) está(ão) lendo este código

1 membro(s), 0 visitante(s) e 0 membros anônimo(s)