Description de la fonction : Après avoir téléchargé le fichier image dans le répertoire spécifié, le nom de fichier transmis dans l'URL est ajouté au répertoire où se trouve le fichier en fonction du chemin complet du fichier. Ensuite, le flux de données binaires du fichier est écrit sur la page de service, obtenant ainsi l'effet de masquer l'adresse réelle de l'image et d'empêcher toute référence externe à l'image.
Voici une citation :
< %@LANGUAGE="VBSCRIPT " CODEPAGE="936"%>
<%
Option
Const explicite SysUrl=" http://www.80Boby.com/uImg/ "
Fonction ReadBinFile(fileName)
Dim objStream, bin
Définir objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = 1
objStream.LoadFromFile nomfichier
bin = objStream.Read
objStream.Fermer
ReadBinFile = poubelle
Fonction de fin
Fonction isSelfRefer()
Faible sHttp_Referer, sServer_Name
sNom_Serveur = CStr(Request.ServerVariables("HTTP_REFERER"))
si instr(sServer_Name,"80boby.com")<>0 ou instr(sServer_Name,"freeat63.cn")<>0 alors
IsSelfRefer = Vrai
Autre
IsSelfRefer = Faux
Fin si
Fonction de fin
si request.QueryString("Mark")="getPic" alors
Faible URL réelle, fso
Dim uFileName:uFileName=Request.QueryString("x")
RealUrl=Server.MapPath("Chemin réel du fichier"&uFileName)
Définir fso = Server.CreateObject("Scripting.FileSystemObject")
si Non(fso.FileExists(RealUrl)) alors RealUrl=Server.MapPath("logo.gif")
si non (isSelfRefer) alors
RealUrl=Serveur.MapPath("logo.gif")
finir si
réponse.contenttype = "image/jpeg"
réponse.BinaryWrite ReadBinFile (RealUrl)
réponse.end
finir si
%>