<%@ Language=VBScript %>
<%
physicPath = application("IMG_HIDDEN" ) & "\"
if left(request.ServerVariables("HTTP_REFERER" ), len(application("HTTP_ROOT" ))) <> application("HTTP_ROOT" ) then
if left(request.ServerVariables("HTTP_REFERER" ), len(application("ZOZOLL_ROOT" ))) <> application("ZOZOLL_ROOT" ) then
Response.ContentType = "image/GIF"
filename = server.MapPath("/" ) & "\medias\hidden.gif"
else
Response.ContentType = "image/JPEG"
filename = physicPath & request.QueryString("imgID" ) & "\wallpapers\" & replace(replace(request.QueryString("imgNAME" ), "*", "&" ), "\'", "'" )
end if
else
Response.ContentType = "image/JPEG"
if request.QueryString("imgTYPE" ) = 1 then
filename = physicPath & request.QueryString("imgID" ) & "\wallpapers\" & replace(replace(request.QueryString("imgNAME" ), "*", "&" ), "\'", "'" )
elseif request.QueryString("legal_type" ) = "4" and request.Cookies("LEGAL_" & request.QueryString("legal_id" )) <> "ACCEPTED" then
Response.ContentType = "image/JPEG"
filename = physicPath & "/medias\censored.gif"
else
filename = physicPath & request.QueryString("imgID" ) & "\wallpapers\thumbs\" & replace(replace(request.QueryString("imgNAME" ), "*", "&" ), "\'", "'" )
end if
end if
Set bin = Server.CreateObject("binarysendfile.BinFileSend" )
bin.fileToSend = filename
oBytes = bin.Bytes
Response.BinaryWrite(oBytes)
%> |