Visa ett inlägg
Oläst 2008-04-27, 14:12 #17
DudeRille DudeRille är inte uppkopplad
Mycket flitig postare
 
Reg.datum: Aug 2007
Inlägg: 599
DudeRille DudeRille är inte uppkopplad
Mycket flitig postare
 
Reg.datum: Aug 2007
Inlägg: 599
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]
DudeRille är inte uppkopplad   Svara med citatSvara med citat