> Jeg har nogle billeder liggende på en sti i en beskyttet mappe
> (_private). Hvis man har indtastet korrekt password, skal man kunne se
> billederne i en fil: visfoto.asp?file=...osv
>
> FileName = Request.QueryString("file")
> FilePath = Server.MapPath("/") & FileName
>
> Set MyImage = Server.CreateObject("AspImage.Image")
> MyImage.LoadImage filepath
> Response.BinaryWrite MyImage.Image
>
> MyImage.close
> Set MyImage = Nothing
>
> Det virker fint - i IE. Firefox og Opera viser kun den binære kode (en
> masse uforståeligt krimskrams).
>
> P.S.: Opera viser faktisk en VBScript-fejl:
> Microsoft VBScript runtime error '800a01b6'
> Object doesn't support this property or method: 'MyImage.close'
> /da/billeder/visfoto.asp, line 24
>
>
http://www.troelsweb.dk
Jeg benytter nedenstående asp-script til at hente mine billeder ovenfor
root, og det virker i IE og FireFox.
<%
' Denne asp skal kaldes således:
' visfoto.asp?filnavn=[navnet på fotofilen uden extension]&type=[her kan
stå enten jpg eller 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
'Her angives stien til mappen hvor billederne ligger. De kan godt ligge
ovenfor sitet.
objStream.LoadFromFile "c:\inetpub\sexy.lir.dk\image\01\" &
Request.Querystring("filnavn") & "." & Request.Querystring("type")
' Her angives typen på filen
Response.ContentType = "image/" & Request.Querystring("type")
Response.BinaryWrite objStream.Read
objStream.Close
Set objStream = Nothing
%>
Mvh Allan