modificare questo script in modo da salvare l'immagine su server...

[Pius]

ragazzi sto impazzando da una settimana con asp.net ( vengo da asp ) per ridimensionare un'immagina. Alla fine ho trovato questo script che per me è attimo solo che lo vorrei modificare in modo da salvare l'immagine sul server invece di vederla in stream....qualcuno mi da una mano?


ecco lo script in vb:

<%@ Import Namespace="System.Drawing"%>
<%@ Import Namespace="System.Drawing.Imaging"%>

<SCRIPT RUNAT="SERVER">
Sub Page_Load()

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("/immagini/nondisponibile.jpg")
end if

call ImgRedim(immagine, width, height)

' 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>

[Raffa62]

.............
Dim miniaturabmp as New System.Drawing.Bitmap(bmp, width, height)
try
if immagine.EndsWith(".jpg") Then
miniaturabmp.Save(Server.MapPath(immagine), System.Drawing.Imaging.ImageFormat.Jpeg)
else
miniaturabmp.Save(Server.MapPath(immagine), System.Drawing.Imaging.ImageFormat.Gif)

end if
..............