ASP mengimplementasikan alamat unduhan tersembunyi dan anti -theft

<% Fungsi downloadfile (strfile)

Strfilename = Strfile

Response.buffer = true

Respons.clear

Set S = Server.CreateObject (adodb.stream)

S.open

S.Type = 1

pada kesalahan resume berikutnya

Atur fso = server.createObject (scripting.filesystemObject)

Jika bukan FSO.FileExists (Strfilename)

From_url = cstr (request.serverVariables (http_referer))

Serv_url = cstr (request.serverVariable (server_name))

Jika mid (from_url, 8, len (serv_url)) <> serv_url kemudian

Respons.write 该文件不存在或者已经删除.

Respons.end

Akhiri jika

Response.redirect request.serverVariables (http_referer)

Response.End

End If

FileExt=MId(StrFIlename,InStrRev(StrFIleName, .)+1)

Select Case UCase(FIleExt)

Case ASP, ASA, ASPX, ASAX, MDB, PHP, JSP, SHTML, HTML, HTM, TV, DATA

From_Url=Cstr(Request.ServerVarIables(HTTP_REFERER))

Serv_Url=Cstr(Request.ServerVarIables(SERVER_NAME))

If MId(From_Url,8,len(Serv_Url)) <> Serv_Url Then

Response.WrIte 该文件不存在或者已经删除.

Respons.end

Akhiri jika

Response.redirect request.serverVariables (http_referer)

Respons.end

Akhiri Pilih

Set f = fso.getFile (strfileName)

Intfilelength = f.Size

S.LoadFromFile (Strfilename)

Jika err maka

From_url = cstr (request.serverVariables (http_referer))

Serv_url = cstr (request.serverVariable (server_name))

Jika mid (from_url, 8, len (serv_url)) <> serv_url kemudian

Respons.write 该文件数据不完整或许已损坏.

Respons.end

Akhiri jika

Response.redirect request.serverVariables (http_referer)

Respons.end

Akhiri jika

Setel unggah = server.CreateObject (persits.upload)

Jika mengunggah tidak ada artinya

Response.addheader konten-disposisi, lampiran; FileName = & f.name

Response.addheader konten-panjang, intfilelength

Response.charset = UTF-8

Response.contentType = aplikasi/x-download

Response.binarywrite s.read

Response.Flush

S.Close

Set s=NothIng

Kalau tidak

Upload.SendBinary StrFIlename,True,application/x-download,False

End If

End FunctIon

%>