Deskripsi fungsi: Setelah mengunggah file gambar ke direktori yang ditentukan, nama file yang diteruskan dalam URL ditambahkan ke direktori tempat file tersebut berada berdasarkan jalur lengkap file tersebut. Kemudian aliran data biner dari file tersebut ditulis ke halaman layanan, sehingga mencapai efek menyembunyikan alamat sebenarnya dari gambar tersebut dan mencegah referensi eksternal ke gambar tersebut.
Berikut kutipannya:
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<%
Opsi Eksplisit
Const SysUrl=" http://www.80Boby.com/uImg/ "
Fungsi ReadBinFile(Namafile)
Redupkan objStream, bin
Setel objStream = Server.CreateObject("ADODB.Stream")
objStream.Buka
objStream.Jenis = 1
objStream.LoadFromFilenama file
bin = objStream.Baca
objStream.Tutup
BacaBinFile = bin
Fungsi Akhir
Fungsi isSelfRefer()
Redupkan sHttp_Referer, sServer_Name
sServer_Name = CStr(Permintaan.ServerVariables("HTTP_REFERER"))
jika instr(sServer_Name,"80boby.com")<>0 atau instr(sServer_Name,"freeat63.cn")<>0 maka
IsSelfRefer = Benar
Kalau tidak
IsSelfRefer = Salah
Akhiri Jika
Fungsi Akhir
jika request.QueryString("Mark")="getPic" lalu
Redupkan RealUrl, jadi
Redupkan uFileName:uFileName=Request.QueryString("x")
RealUrl=Server.MapPath("Jalur sebenarnya dari file"&uFileName)
Setel fso = Server.CreateObject("Scripting.FileSystemObject")
jika Tidak(fso.FileExists(RealUrl)) maka RealUrl=Server.MapPath("logo.gif")
jika Tidak(isSelfRefer) maka
RealUrl=Server.MapPath("logo.gif")
berakhir jika
respon.contenttype = "gambar/jpeg"
respons.BinaryWrite ReadBinFile(RealUrl)
respon.akhir
berakhir jika
%>