Viele Websites für Klingeltöne für Mobiltelefone verfügen über ein eigenes Anti-Leeching-Programm, dieses Programm soll jedoch nur Herren und keine Diebe verhindern. Lassen Sie uns die Funktion kurz vorstellen: Ein ASP-Objekt ServerVariables (Serverumgebungsvariable) wird verwendet. Über diese Umgebungsvariable kann die echte Download-Adresse abgerufen und dann die Integrität der echten Adresse durch einige einfache in VBS integrierte Funktionen zerstört werden. Erreichen Sie die Funktion, beim Herunterladen von Software zu täuschen. Der Quellcode ist jetzt beigefügt, damit jeder daraus lernen kann.
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
%>
Verwendung: <%Call DownloadFIle(DownloadFIle)%>.