Lösenordet för se dina bilder är inte svårt att ta fram, "thisisourheart".
Iallafall om du kör ASP så skulle detta hjälpa lite...
Skapa först lite grejer...
1 bild som heter "anti-leech.jpg"
1 bild som heter "example.jpg"
ASP sidan (image.asp):
Citat:
<%@Language="vbscript"%>
<%
Response.Buffer = true
Response.Expires = -1441
' variables
dim ref : ref=Request.ServerVariables("HTTP_REFERER")
dim arrReferer : arrReferer = split(ref, "/")
dim imgName, strDomain, strDirectory, strImage, strAntiLeech
' assign variables
strDomain = "DINDOMÄN.se"
strDirectory = "/MAPPEN"
' assign variables
strAntiLeech = "anti-leech.jpg"
strImage = request.querystring("img")
if ref > "" then
ref = arrReferer(2)
end if
if request.querystring("img") <> "" then
if ref = "localhost" or ref = strDomain or ref = "www." & strDomain then
imgname = strDirectory & strImage
else
imgName = strDirectory & strAntiLeech
end if
else
imgName = strDirectory & strAntiLeech
end if
dim objStream
set objStream = server.CreateObject("ADODB.Stream")
objStream.Type = 1
objStream.Open()
objStream.loadFromFile(Server.MapPath(imgName))
Response.ContentType = "image/gif"
Response.BinaryWrite(objStream.Read())
objStream.close()
set objstream = nothing
%>
|
Du skriver ut bilden så här....
Citat:
[img]image.asp?img=example.jpg[/img]
|