Jeg vil anbefale dig at Streame filen og så lave noget ala dette:
If Request.ServerVariables(\"HTTP_REFERER\") = \"
http://dinside.dk/linkliste.asp\" Teen
\'Stream filen
Else
Response.write(\"Hov du skal sq da ikke hugge min fil!!\")
End if
En streaming kunne se sådan her ud (Eksemplet er med en gif.):
<%
Dim objStream
Set objStream = Server.CreateObject(\"ADODB.Stream\")
objStream.Type = 1 \' Her sætter vi at det er en binær fil
objStream.Open
objStream.LoadFromFile \"C:\\sti\\udenfor\\webscope\\filnavn.gif\"
Response.AddHeader \"Content-disposition\",\"filename=Navnpåfil.gif\"
\' Hvis du bruger jpeg er det her det skal ændres....
Response.ContentType = \"image/gif\"
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
%>
Det er vigtigt at filen ligger udenfor webscope ellers kan man jo bare skrive URLen.