ASP implementiert eine versteckte Downloadadresse und Anti -Denft

<% FunctIon DownloadFIle(StrFIle)

StrFIlename=StrFIle

Response.Buffer=True

Response.Clear

Set S=Server.CreateObJect(ADODB.Stream)

S.Open

S.Type=1

on Error Resume Next

Set Fso=Server.CreateObJect(ScrIptIng.FIleSystemObJect)

If Not Fso.FIleExists(StrFIleName) Then

From_Url=Cstr(Request.ServerVarIables(HTTP_REFERER))

Serv_url = cstr (request.servervariables (server_name))

Wenn Mitte (von _url, 8, len (serv_url)) <> Serv_url dann

Antwort.Write 该文件不存在或者已经删除.

Antwort.end

Ende wenn

Antwort.Redirect Request.Servervariables (http_referer)

Antwort.end

Ende wenn

Fileext = Mid (strFileName, Instrrev (strFileName,.)+1)

Wählen Sie Case uCase (Fileext)

Fall ASP, ASA, ASPX, Asax, MDB, PHP, JSP, Shtml, HTML, HTM, TV, Daten, Daten

From_url = cstr (request.servervariables (http_referer)))

Serv_url = cstr (request.servervariables (server_name))

Wenn Mitte (von _url, 8, len (serv_url)) <> Serv_url dann

Antwort.Write 该文件不存在或者已经删除.

Antwort.end

Ende wenn

Antwort.Redirect Request.Servervariables (http_referer)

Antwort.end

Ende auswählen

Setzen Sie F = fso.getFile (strafilename)

Intfilelength = f.size

S. loadfromFile (Strfilename)

Wenn irren

From_url = cstr (request.servervariables (http_referer)))

Serv_url = cstr (request.servervariables (server_name))

Wenn Mitte (von _url, 8, len (serv_url)) <> Serv_url dann

Antwort.Write 该文件数据不完整或许已损坏.

Antwort.end

Ende wenn

Antwort.Redirect Request.Servervariables (http_referer)

Antwort.end

Ende wenn

Upload = server.createObject (PERSITS.Upload) einrichten.

Wenn Upload dann nichts ist

Response.AddHeader-Inhaltsdisposition, Anhang; Dateiname = & F.Name

Response.addHeader inhaltslang, intFilelength

Antwort.CharSet = UTF-8

Antwort.ContentType = Application/X-Download

Antwort.Binarywrite S.Read

Antwort.Flush

S.CLOSE

Setzen Sie s = nichts

Anders

Upload.SendBinary Strfilename, True, Application/X-Download, False

Ende wenn

Endfunktion

%>