crie um link para um arquivo texto e ao clicar fazer download

[xanburzum 169]

Este script permite que você crie um link para um arquivo texto e ao clicar no mesmo seja feito o download, ao invés de abri-lo no browser.

 

<% 
' Avisamos que o modelo do arquivo será para download 
response.AddHeader "Content-Type","application/x-msdownload" 

' Identificamos o nome que queremos para o arquivo de destino 
' mude o Filename para o nome que você deseja ! 
Response.AddHeader "Content-Disposition","attachment; filename=arquivo.txt" 
Response.Flush 

Response.Buffer = True 
Const adTypeBinary = 1 
Dim strFilePath 

' O ADODB Stream foi utilizado para lermos o arquivo em formato 
' binário, o FileSystemObject não permite leituras binárias e 
' se fosse convertido para texto poderíamos danificar o arquivo. 
Set objStream = Server.CreateObject("ADODB.Stream") 
objStream.Open 
objStream.Type = adTypeBinary 

' Informe aqui o caminho completo do arquivo no servidor, 
' se você não souber o caminho completo, mude o "C:\Documentos..." por 
' Server.MapPath("Nome_Do_Arquivo") 

objStream.LoadFromFile "C:\Documentos\arquivo.txt" 
Response.BinaryWrite objStream.Read 

objStream.Close 
Set objStream = Nothing 
Response.Flush 
%>

[Ted k' 126]

isso é bom, tenho um parecido, irei testar esse tbm amigo xan!!