Asp İle .txt Dosyaları İndirme

Merhaba Arkadaşlar Benim Şuan Bir Panelim Var Burada İşlemleri txt dosyasına yazdırıyorum fakat bu txt dosyalarını işlem sonunda istiyorumki okutan kişi indirsin şimdi yaptığımda dosyalar tarayıcıda açılıyor bunu indirilebilir şekle nasıl getirebilirim örnek bir kod varmı.

<%
Response.AddHeader "Content-Disposition", "attachment; filename=oktay.txt"
Response.ContentType = "text/plain"
Response.AddHeader "Content-Type", "text/plain;charset=UTF-8"
Response.CodePage = 65001
Response.CharSet = "UTF-8"
%> 
BU BİR TEXT DOSYASI

Hocam Benim İstediğim Tam Olarak Bu Değil Ben Barkodlarla Ürün Okutacağım Burada Buldum Bulamadım Diye Raporlamayı Bir Txt Dosyasına Yazdırıyorum Ve Bunu /files diye bir dizinde tutuyorum istediğim şu bayi işlemleri bitirdikten sonra
http://siteadi.com/files/depokodu-tarih.txt dosyasını bilgisayarına indirebilsin bunu tarayıcıda görüntülemeden indirtmek istiyorum.

Güncel.

Arkadaşın verdiği kod çalışacaktır zaten. BU BİR TXT DOSYASI yerine txt dosyanı include edebilirsin.

<%
Response.AddHeader "Content-Disposition", "attachment; filename=txt-dosya.txt"
Response.ContentType = "text/plain"
Response.AddHeader "Content-Type", "text/plain;charset=UTF-8"
Response.CodePage = 65001
Response.CharSet = "UTF-8"
%> 
<!-- #include file="files/txt-dosya.txt" -->

şeklinde yaparsan txt dosyanın içini kaydedecektir.

Alıntıdır.

%@ language="vbscript"%>
<%
option explicit
Response.Buffer = true
Const BUFFERSIZE = 32768 ' 32KB - Tampon
dim dosya, farkli_dosya_adi, bilesen, dosya_icerigi, sayfa_adi, taksim_yeri, ilk, son

function dosya_adi(gelen)
sayfa_adi = gelen
taksim_yeri = instrrev(sayfa_adi, "/")
ilk = (taksim_yeri + 1)
son = (len(sayfa_adi) - taksim_yeri)
dosya_adi = mid(sayfa_adi, ilk, son)
end function

dosya = request.querystring("dosya")
farkli_dosya_adi = dosya_adi(dosya) 'BURADA İSTERSEN DOSYA ADINI DEĞİŞTİREBİLİRSİN Örnek farkli_dosya_adi = now() & "_" & dosya_adi(dosya)

dosya = server.mappath(dosya)
response.contenttype = "application/x-msdownload" 'BU SATIRLA ÇALIŞMAZ İSE BU SATIRI SİLİP ALTTAKİ SATIRI KULLAN
'response.contenttype="application/force-download"
response.addheader "cache-control","private"
response.addheader "content-transfer-encoding", "binary"
response.addheader "content-disposition", "attachment; filename=" & farkli_dosya_adi
set bilesen = server.createobject("adodb.stream")
	bilesen.type = 1 'binary olarak aç
	bilesen.open
	bilesen.loadfromfile dosya
	response.addheader "content-length", bilesen.size ' dosya boyutunu bildir
	Do While Not bilesen.Eos
		Response.Binarywrite bilesen.Read(BUFFERSIZE) ' 32KB oku / yaz
		Response.Flush 'tampondaki veriyi istemciye gönder
		If Not Response.IsClientConnected Then Exit Do 'kullanıcı bağlantıyı kesmişse dosya göndermeyi bırak
	Loop
	bilesen.close
set bilesen = nothing
%>

Benzeri bir kod yapılanmasına ihtiyacınız var gibi duruyor siz dosyanın tarayıcıda açılmasını değil direk bilgisayara inmesini istiyorsunuz benim anladığım bu yönde.

Evet Hocam aynen Öyle.

<%
Dim objConn, strFile
Dim intCampaignRecipientID

strFile = Request.QueryString("file")

If strFile <> "" Then

    Response.Buffer = False
    Dim objStream
    Set objStream = Server.CreateObject("ADODB.Stream")
    objStream.Type = 1 'adTypeBinary
    objStream.Open
    objStream.LoadFromFile("http://siteadi.com/files/" & strFile & ".txt")
    Response.ContentType = "application/x-unknown"
    Response.Addheader "Content-Disposition", "attachment; filename=" & strFile & ".txt"
    Response.BinaryWrite objStream.Read
    objStream.Close
    Set objStream = Nothing

End If
%>

Yukarıdaki kodu download.asp olarak kaydedin,

Sonrasında;
download.asp?file=depokodu-tarih

şeklinde çağırırsanız istediğiniz dosyayı indirmeye başlar...