Ini contoh langsung mendownload data dari database server ke file client. Nama file dan ekstensinya bisa ditulis sesuai kebutuhan. new/temp.htm membutuhkan keberadaan nyata. Faktanya, ini tidak berpengaruh.
Banyak sekali hal-hal di bidang ini yang beredar di Internet, namun kebanyakan ditiru. Hanya sedikit hal yang benar-benar dipraktikkan. Jadi saya menulisnya sendiri. Meskipun sederhana dan memiliki beberapa masalah, namun dapat digunakan setelah menyalinnya. Teman-teman yang mempunyai pertanyaan bisa menghubungi saya agar kita bisa belajar bersama.
filemystream=server.mappath("baru") & "temp.htm"
Setel MyStream=Server.CreateObject("Adodb.Stream")
MyStream.Type = 1
Aliran Saya.Mode=3
Aliran Saya.Buka
MyStream.LoadFromFile(filemystream)
Respons.ContentType="application/octet-stream"
Response.AddHeader "Disposisi Konten:","lampiran; nama file=" & "bk.txt"
Range=Mid(Request.ServerVariables("HTTP_RANGE"),7)
respon.tulis "Nama"
respon.tulis "Akun"
respon.tulis "alamat"
respon.tulis "Deskripsi"
kr=chr(13)&chr(10)
respon.write(cr)
sementara bukan rs.eof
respon.tulis rs("nama")
respon.tulis rs("accno")
respon.tulis rs("alamat")
respon.tulis rs("catatan")
respon.tulis(cr)
RS.MoveNext
pergi
rs.close
atur rs=tidak ada
Sambungan Tutup
Setel Sambungan=Tidak Ada
Aliran saya.tutup
atur aliran saya=tidak ada