Viele Freunde haben Download-Sites erstellt, diese werden jedoch oft schwer gestohlen, sodass Sie diese Methode verwenden können, um die tatsächliche Download-Adresse zu verbergen. Verhindern Sie, dass andere die spezifische Download-Adresse sehen. Kopieren Sie den Codecode wie folgt:
<% Funktion DownloadFIle(StrFIle)
StrFIlename=StrFIle
Response.Buffer=True
Antwort.Klar
Setze S=Server.CreateObJect(ADODB.Stream)
S.Offen
S.Typ=1
auf Fehler Weiter fortsetzen
Setze Fso=Server.CreateObJect(ScrIptIng.FIleSystemObJect)
Wenn nicht Fso.FIleExists(StrFIleName) Dann
From_Url=Cstr(Request.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Request.ServerVarIables(SERVER_NAME))
Wenn MId(From_Url,8,len(Serv_Url)) <> Serv_Url, dann
Response.WrIte Die Datei existiert nicht oder wurde gelöscht.
Antwort.Ende
Ende wenn
Response.RedIrect Request.ServerVarIables(HTTP_REFERER)
Antwort.Ende
Ende wenn
FileExt=MId(StrFIlename,InStrRev(StrFIleName, .)+1)
Fall auswählen UCase(FIleExt)
Fall 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))
Wenn MId(From_Url,8,len(Serv_Url)) <> Serv_Url, dann
Response.WrIte Die Datei existiert nicht oder wurde gelöscht.
Antwort.Ende
Ende wenn
Response.RedIrect Request.ServerVarIables(HTTP_REFERER)
Antwort.Ende
Endauswahl
Setze F=Fso.GetFIle(StrFIlename)
IntFIlelength=F.SIze
s.LoadFromFIle(StrFIlename)
Wenn Sie sich irren, dann
From_Url=Cstr(Request.ServerVarIables(HTTP_REFERER))
Serv_Url=Cstr(Request.ServerVarIables(SERVER_NAME))
Wenn MId(From_Url,8,len(Serv_Url)) <> Serv_Url, dann
Response.WrIte Die Dateidaten sind unvollständig oder beschädigt.
Antwort.Ende
Ende wenn
Response.RedIrect Request.ServerVarIables(HTTP_REFERER)
Antwort.Ende
Ende wenn
Setze Upload=Server.CreateObJect(PersIts.Upload)
Wenn das Hochladen nichts bringt, dann
Response.AddHeader Content-DIsposItIon,attachment; FIlename=&F.Name
Response.AddHeader Content-Length,IntFilelength
Response.CharSet=UTF-8
Response.ContentType=application/x-download
Response.BinaryWrite S.Read
Response.Flush
S.Schließen
Setze s=NothIng
Anders
Upload.SendBinary StrFIlename,True,application/x-download,False
Ende wenn
Funktion beenden
%>
Anruf
Kopieren Sie den Codecode wie folgt:
<%Call DownloadFIle(Download-Adresse)%>