Banyak teman yang telah membuat situs pengunduhan, tetapi sering kali situs tersebut dicuri secara parah, jadi Anda dapat menggunakan metode ini untuk menyembunyikan alamat pengunduhan yang sebenarnya. Cegah orang lain melihat alamat unduhan tertentu. Copy kode kodenya sebagai berikut:
<% Fungsi DownloadFILE(StrFIle)
StrFIlename=StrFIle
Respon.Buffer=Benar
Respon. Jelas
Setel S=Server.CreateObJect(ADODB.Stream)
S.Buka
S.Tipe=1
pada Error Lanjutkan Berikutnya
Setel Fso=Server.CreateObJect(ScrIptIng.FIleSystemObJect)
Jika Bukan Fso.FIleExists(StrFIleName) Lalu
From_Url=Cstr(Permintaan.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Permintaan.ServerVarIables(SERVER_NAME))
Jika MId(From_Url,8,len(Serv_Url)) <> Serv_Url Lalu
Response.WrIte File tidak ada atau telah dihapus.
Respon.Akhir
Akhiri Jika
Respon.Permintaan Langsung.ServerVarIables(HTTP_REFERER)
Respon.Akhir
Akhiri Jika
FileExt=MId(StrFIlename,InStrRev(StrFIleName, .)+1)
Pilih Kasus UCase (FIleExt)
Kasus ASP, ASA, ASPX, ASAX, MDB, PHP, JSP, SHTML, HTML, HTM, TV, DATA
From_Url=Cstr(Permintaan.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Permintaan.ServerVarIables(SERVER_NAME))
Jika MId(From_Url,8,len(Serv_Url)) <> Serv_Url Lalu
Response.WrIte File tidak ada atau telah dihapus.
Respon.Akhir
Akhiri Jika
Respon.Permintaan Langsung.ServerVarIables(HTTP_REFERER)
Respon.Akhir
Pilihan Akhir
Setel F=Fso.GetFIle(StrFIlename)
IntFIlelength=F.Ukuran
s.LoadFromFIle(StrFIlenama)
Jika Salah Lalu
From_Url=Cstr(Permintaan.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Permintaan.ServerVarIables(SERVER_NAME))
Jika MId(From_Url,8,len(Serv_Url)) <> Serv_Url Lalu
Response.WrIte Data file tidak lengkap atau rusak.
Respon.Akhir
Akhiri Jika
Respon.Permintaan Langsung.ServerVarIables(HTTP_REFERER)
Respon.Akhir
Akhiri Jika
Setel Unggah=Server.CreateObJect(PersIts.Unggah)
Jika Unggahan Tidak Ada Apa-apanya
Response.AddHeader Content-DIsposItIon, lampiran;
Response.AddHeader Panjang Konten,IntFilelength
Respon.CharSet=UTF-8
Response.ContentType=aplikasi/x-download
Respon.BinaryWrite S.Read
Respon. Siram
S.Tutup
Tetapkan s=Tidak Ada
Kalau tidak
Unggah.SendBinary StrFIlename, Benar, aplikasi/x-download, Salah
Akhiri Jika
Fungsi Akhir
%>
panggilan
Copy kode kodenya sebagai berikut:
<%Panggil DownloadFIle(alamat unduh)%>