ASP implémente l'adresse de téléchargement caché et anti-Theft

<% Fonction DownloadFile (Strfile)

StrFilename = strfile

Réponse.buffer = true

Réponse.

Set s = server.createObject (adodb.stream)

Open

S.Type = 1

sur l'erreur reprendre ensuite

Set fso = server.createObject (scripting.fileSystemObject)

Sinon FSO.FileExists (strFilename) alors

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

Serv_Url = CSTR (request.servervariables (server_name))

Si mid (from_url, 8, Len (serv_url)) <> serv_url alors

Réponse.WRITE 该文件不存在或者已经删除.

Réponse.

Terminer si

Réponse.redirect request.servervariables (http_referer)

Réponse.

Terminer si

FileExt = mid (strFilename, instrrrev (strFilename,.) + 1)

Sélectionnez Case UCase (FileExt)

Case ASP, ASA, ASPX, ASAX, MDB, PHP, JSP, SHTML, HTML, HTM, TV, DONNÉES

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

Serv_Url = CSTR (request.servervariables (server_name))

Si mid (from_url, 8, Len (serv_url)) <> serv_url alors

Réponse.WRITE 该文件不存在或者已经删除.

Réponse.

Terminer si

Réponse.redirect request.servervariables (http_referer)

Réponse.

Fin de sélection

Set f = fso.getfile (strFilename)

IntFileLength = F.Size

S.LoadFromfile (strFilename)

Si err alors

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

Serv_Url = CSTR (request.servervariables (server_name))

Si mid (from_url, 8, Len (serv_url)) <> serv_url alors

Réponse.WRITE 该文件数据不完整或许已损坏.

Réponse.

Terminer si

Réponse.redirect request.servervariables (http_referer)

Réponse.

Terminer si

Set upload = server.createObject (persits.upload)

Si le téléchargement n'est rien alors

Response.Addheader Content-Disposition, attachement; Filename = & f.name

Response.Addheader Content-Length, intFileLength

Réponse.Charset = UTF-8

Response.ContentType = Application / X-Download

Réponse.binarywrite s.read

Réponse.flush

S.Close

Définir S = rien

Autre

Upload.sendbinary strFilename, true, application / x-download, false

Terminer si

Fonction finale

%>