Salve, questo è lo script che utilizzo per il ridimensionamento delle immagini richiamando la pagina .asp con un collegamento di questo tipo:
http://www.nomesito.it/img.aspx?img=...dimensione=180
Nel passaggio da .NET 1.1 a .NET 2.0 questo script non va più, "Accesso Negato":codice:<%@ Import Namespace="System.Drawing"%> <%@ Import Namespace="System.Drawing.Imaging"%> <SCRIPT RUNAT="SERVER"> Sub Page_Load() Dim dimensione as Integer = Request.Querystring("dimensione") Dim width as Integer = 0 Dim height as Integer = 0 try ' ricava dimensioni dalla richiesta if not Request.QueryString("width") is Nothing Then width = Int32.Parse(Request.QueryString("width")) End if if not Request.QueryString("height") is Nothing Then height = Int32.Parse(Request.QueryString("height")) End if catch ex as Exception End Try ' ridimensiona l'immagine se specificato Dim immagine as String = Server.MapPath(Request("img")) if Not System.Io.File.Exists(immagine) then immagine = Server.MapPath("/archivio_foto/125x125_vuota.jpg") end if call ImgRedim(immagine, dimensione, dimensione) ' fermo il resto della risposta Response.End() End Sub ' Funzione di redim Public Sub ImgRedim(immagine as String, width as Integer, height as Integer) Dim bmp as System.Drawing.Bitmap = CType(System.Drawing.Image.FromFile(immagine), System.Drawing.Bitmap) ' c'è da ridimensionare? if width>0 or height>0 then ' se è specificata solo la larghezza, calcola l'altezza if height = 0 Then height = Convert.ToInt32(width / bmp.Width * bmp.Height) End if ' (e viceversa) if width = 0 Then width = Convert.ToInt32(height / bmp.Height * bmp.Width) End if ' creo la Thumbnail con i parametri impostati Dim miniaturabmp as New System.Drawing.Bitmap(bmp, width, height) ' salvo sullo stream di output if immagine.EndsWith(".jpg") Then miniaturabmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg) else miniaturabmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif) end if ' pulizia miniaturabmp.Dispose() else ' salvo sullo stream di output if immagine.EndsWith(".jpg") Then bmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Jpeg) else bmp.Save(Response.OutputStream, System.Drawing.Imaging.ImageFormat.Gif) end if end if ' pulizia finale bmp.Dispose() End Sub </SCRIPT>
------------------------
Accesso negato.
Descrizione: Errore durante l'accesso alle risorse necessarie per soddisfare la richiesta. Probabilmente non si dispone delle autorizzazioni necessarie per visualizzare le risorse richieste.
Messaggio di errore 401.3: Autorizzazioni non sufficienti per visualizzare la directory o la pagina (accesso negato a causa di ACL). Per ottenere l'accesso, contattare l'amministratore del server Web.
------------------------
La cartella immagini ha i permessi di lettura (e anche scrittura).
Qualcuno può aiutarmi a capire?
Roby

Rispondi quotando