Jeg har faktisk lavet noget lignende til mig selv. netop for at undgå al den trafik fra deeplinks..
Min Image.asp
________________
<%
' database variabler, server, pass osv.
strServer = "xxxxx"
strDbUser = "xxxxx"
strDbPass = "xxxxx"
strDb = "xxxxx"
set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={mySQL}; " &_
"Server=" & StrServer & "; " &_
"Port=3306; " &_
"Option=131072; Stmt=; " &_
"uid=" & strDbUser & "; " &_
"pwd=" & strDbPass & ";"
' Henter billede via <img src="image.asp?x=1234">
Pic = Request.QueryString("x")
set rs2 = conn.execute("SELECT * FROM " & strDb & ".pic Where x = '" & Pic & "'")
PicFile = RS2("file")
Path = Replace(RS2("Path"), "/", "\")
sFile = "D:\xxx\xxxxx\wwwroot\Gallery\Pics\" & Path & PicFile
' Hvis Session er sat, så kan billedet tilgås.. (Session("SiteView") sætter jeg på min indgangsside...
If Session("siteView") = True Then
' Opretter en fileStream. mine billeder er JPEG, men tilsyneladende virker det med ContentType = "image/gif"
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
Const adTypeBinary = 1
objStream.Type = adTypeBinary
objStream.LoadFromFile sFile
ContentType = "image/gif"
Response.AddHeader "content-disposition","attachment; filename="& PicFile
Response.Charset = "UTF-8"
Response.ContentType = ContentType
Response.BinaryWrite objStream.Read
Response.Flush
Else
' Hvis ikke Session er sat, så vises et andet billede.
' "D:\xxxx\xxxxx\wwwroot\Gallery\gfx\deep.gif"
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Open
objStream.Type = adTypeBinary
objStream.LoadFromFile "D:\xxxx\xxxxx\wwwroot\Gallery\gfx\deep.gif"
ContentType = "image/gif"
Response.AddHeader "content-disposition","attachment; filename=noDeepLinking"
Response.Charset = "UTF-8"
Response.ContentType = ContentType
Response.BinaryWrite objStream.Read
Response.Flush
End If
%>
/Mads
