Judulnya agak membingungkan. Pertanyaan ini sedang dibahas di grup hari ini. CSDN ada jawabannya. Terlampir, teman-teman yang membutuhkan bisa merujuk ke pertanyaan berikut: Saya ingin mengganti nama saat mengupload file, lalu menggantinya. nama kembali saat mengunduh.
Misal: Saya mengunggah foto diri saya.jpg. Setelah diunggah, diubah menjadi nama sistem 20040302001.jpg. Saat diunduh, diubah kembali menjadi foto.jpg saya.
Database digunakan untuk menyimpan nama file lama dan baru (sudah selesai)
Hanya saja saya tidak bisa mengganti nama saat mendownload.
Kode:
Copy kode kodenya sebagai berikut:
<%
fungsi dl(f,n)
pada kesalahan lanjutkan berikutnya
Setel S=BuatObjek(Adodb.Stream)
S.Mode=3
S.Tipe=1
S.Buka
S.MuatDariFile(f)
jika Err.Number > 0 maka
Respon.Status= 404
kalau tidak
Response.ContentType= aplikasi/aliran oktet
Response.AddHeader Konten-Disposisi: , lampiran;
Rentang=Sedang(Permintaan.Variabel Server( HTTP_RANGE ),7)
jika Rentang = maka
Respon.BinaryWrite(S.Read)
kalau tidak
S.posisi=Clng(Split(Rentang, - )(0))
Respon.BinaryWrite(S.Read)
Berakhir jika
berakhir jika
Respon.Akhir
fungsi akhir
%>
Contoh penggunaan fungsi:
Copy kode kodenya sebagai berikut:
panggilan dl(Server.MapPath( unduh/20040302001.jpg ), foto saya.jpg )