Archivo ASP:
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<form name="form1" method="post" action="upload.aspx">
<p>
Archivo:
<input type="file" name="Archivo">
</p>
<p>
Alto:
<input type="text" name="Alto">
</p>
<p>
Ancho :
<input type="text" name="Ancho">
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
</body>
</html>
Archivo ASP.net
<%@ Import Namespace="System.Drawing" %>
<%@ Import Namespace="System.Drawing.Imaging" %>
<html>
<script language="VB" runat="server">
'Sub EnviaFormulario(Sender as Object, E as EventArgs)
Archivo=Request.Form("Archivo")
Alto=Request.Form("Alto")
Ancho=Request.Form("Ancho")
' Definimos el archivo enviado por el formulario como Imagen
Dim Imagen as System.Drawing.Image
Imagen = System.Drawing.Image.FromStream(Archivo.PostedFile .InputStream)
' Definimos las dimensiones de la miniatura
Dim AnchoMiniatura as Integer, AltoMiniatura as Integer
AnchoMiniatura = Integer.Parse(Ancho.Value)
AltoMiniatura = Integer.Parse(Alto.Value)
' Definimos el nombre del archivo, y el nombre de la miniatura
Dim NombreArchivo as String, NombreMiniatura as String
NombreArchivo = "FotoGrande.jpg"
NombreMiniatura = "FotoPequena.jpg"
' Definimos las rutas donde grabará los archivos
Dim RutaArchivo as String, RutaMiniatura as String
RutaArchivo = "./"
RutaMiniatura = "./"
' Guardamos el archivo original en disco
Imagen.Save(Server.MapPath(RutaArchivo & NombreArchivo), ImageFormat.JPEG)
' Creamos la Miniatura con las dimensiones enviadas, y la definimos como Imagen
Dim Miniatura as System.Drawing.Image
Miniatura = Imagen.GetThumbnailImage(AnchoMiniatura, AltoMiniatura, Nothing, New IntPtr())
' Grabamos la Miniatura en disco con formato JPG
Miniatura.Save(Server.MapPath(RutaMiniatura & NombreMiniatura), ImageFormat.JPEG)
' Redirigimos la página hacia la imagen
'Response.Redirect("upload.aspx")
'End Sub
</script>
<body>
</body>
</html>
Mode Lineal
