Muitos amigos criaram sites de download, mas muitas vezes são gravemente roubados, então você pode usar esse método para ocultar o endereço real de download. Evite que outras pessoas vejam o endereço de download específico. Copie o código do código da seguinte forma:
<% Função DownloadFIle(StrFIle)
StrFIlename=StrFIle
Response.Buffer = Verdadeiro
Resposta.Limpar
Definir S=Server.CreateObJect(ADODB.Stream)
S.Aberto
S.Tipo=1
em caso de erro, retomar próximo
Definir Fso=Server.CreateObJect(ScrIptIng.FIleSystemObJect)
Se não for 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 O arquivo não existe ou foi excluído.
Resposta.Fim
Terminar se
Response.RedIrect Solicitação.ServerVarIables(HTTP_REFERER)
Resposta.Fim
Terminar se
FileExt=MId(StrFIlename,InStrRev(StrFIleName, .)+1)
Selecione Caso UCase(FIleExt)
Caso 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 O arquivo não existe ou foi excluído.
Resposta.Fim
Terminar se
Response.RedIrect Solicitação.ServerVarIables(HTTP_REFERER)
Resposta.Fim
Finalizar seleção
Definir F=Fso.GetFIle(StrFIlename)
IntFIlelength=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 Os dados do arquivo estão incompletos ou danificados.
Resposta.Fim
Terminar se
Response.RedIrect Solicitação.ServerVarIables(HTTP_REFERER)
Resposta.Fim
Terminar se
Definir Upload=Server.CreateObJect(PersIts.Upload)
Se o upload não for nada, então
Response.AddHeader Content-DIsposItIon,anexo;
Response.AddHeader Content-Length,IntFilelength
Response.CharSet=UTF-8
Response.ContentType=aplicativo/x-download
Resposta.BinaryWrite S.Read
Resposta.Flush
S.Fechar
Definir s = Nada
Outro
Upload.SendBinary StrFIlename,True,aplicativo/x-download,Falso
Terminar se
Função final
%>
chamar
Copie o código do código da seguinte forma:
<%Chamar DownloadFIle(endereço de download)%>