ASP implementa o endereço de download oculto e anti -theft

<% Função Downloadfile (strfile)

StrFIlename=StrFIle

Response.Buffer = true

Response.clear

Set s = server.createObject (adodb.stream)

S.Open

S.Type = 1

em erro de erro em seguida

Set fso = server.createObject (script.filesystemoBject)

Se não fso.FileExists (strfileName), então

From_url = cstr (request.Servervariables (http_referer))

Serv_url = cstr (request.servervariables (server_name))

Se MID (from_url, 8, len (serv_url)) <> serv_url então

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

Resposta.END

Final se

Response.Redirect Request.ServerVariables (http_referer)

Resposta.END

Final se

FileExt = MID (StrFileName, Instrrev (strfileName ,.)+1)

Selecione Case UCase (FileExt)

Case Asp, ASA, ASPX, Asax, MDB, PHP, JSP, SHTML, HTML, HTM, TV, Dados

From_url = cstr (request.Servervariables (http_referer))

Serv_url = cstr (request.servervariables (server_name))

Se MID (from_url, 8, len (serv_url)) <> serv_url então

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

Resposta.END

Final se

Response.Redirect Request.ServerVariables (http_referer)

Resposta.END

Final Selecione

Set f = fso.getFile (strfileName)

IntfilEleLength = f.size

S.LoadFromFile (StrfileName)

Se errar então

From_url = cstr (request.Servervariables (http_referer))

Serv_url = cstr (request.servervariables (server_name))

Se MID (from_url, 8, len (serv_url)) <> serv_url então

Response.WrIte 该文件数据不完整或许已损坏.

Response.End

End If

Response.RedIrect Request.ServerVarIables(HTTP_REFERER)

Response.End

End If

Set Upload=Server.CreateObJect(PersIts.Upload)

If Upload Is Nothing Then

Response.AddHeader Content-Disposição, Anexo; Nome do arquivo = & f.name

Response.AddHeader Length, IntfilEleLength

Response.CharSet=UTF-8

Response.ContentType=application/x-download

Response.BinaryWrite S.Read

Response.Flush

S.Close

Set s=NothIng

Outro

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

End If

Função final

%>