Clique para baixar o PDF e outros arquivos em vez de abrir no navegador

<%

Dim Stream

Conteúdo dim

Dim FileName

Dim FileExt

Const adtypebinary = 1

FileName = request.QueryString ("nome do arquivo")

Se filename = "" então

Response.Write "Invfort Nome do arquivo".

Resposta.END

Final se

Abaixo está um arquivo que eu não quero baixar

FILEXT = MID (nome do arquivo, Instrrev (nome do arquivo, ".") 1)

Selecione Case UCase (FileExt)

Caso "asp", "asa", "aspx", "asax", "mdb"

Response.Write "Arquivos protegidos, não pode ser baixado".

Resposta.END

Final Selecione

'Baixe este arquivo

Response.clear

Response.ContentType = "Application/Octet-Stream"

Response.AddHeader "Content-Disposition", "Applement; FileName =" & FileName

Set Stream = Server.CreateObject ("Adodb.stream")

Stream.Type = adTypeBinary

Stream.open

Stream.loadfromfile server.mappath (nome do arquivo)

Enquanto não é stream.eos

Response.BinaryWrite Stream.Read (1024 * 64)

Wend

Stream.Close

Set Stream = nada

Response.flush

Resposta.END

%>

Use: Download.asp?

Coloque seu arquivo Doc nos arquivos do diretório raiz, você também pode colocá -lo em outro lugar.