Judulnya agak membingungkan. Hari ini grup sedang membicarakan pertanyaan ini. CSDN punya jawabannya.
Pertanyaan: Saya ingin mengubah nama file saat menguploadnya, lalu mengubah namanya kembali saat mendownload.
Misalnya: Saya mengunggah "Foto Saya.jpg" dan mengubahnya menjadi nama sistem "20040302001.jpg" setelah mengunggah dan kemudian mengubahnya kembali menjadi "Foto Saya.jpg" saat mengunduh.
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=CreateObject( "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 "Disposisi Konten:", "lampiran; nama file= " & n
Rentang=Sedang(Permintaan.ServerVariables( "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:
panggil dl(Server.MapPath( "download/20040302001.jpg "), "Foto Saya.jpg ")