Ver Mensaje Individual
  #1 (permalink)  
Antiguo 16/04/2006, 04:40
Avatar de cokete
cokete
 
Fecha de Ingreso: noviembre-2004
Mensajes: 224
Antigüedad: 20 años, 4 meses
Puntos: 0
Pasar variables de Pagina ASP a pagina ASP.Net

Hola, tengo una pagina ASP en la que tengo que pasarle 3 variables a otra pagina asp.net para que me realice un proceso con ellas, el caso es que no se como hacerlo ya que si lo intento pasar mediante un form como si fuera asp normal me da un error. Aqui os dejo el ejemplo a ver si alguien me puede orientar....muchas gracias.

Archivo ASP:

<html>
<head>
<title>Documento sin t&iacute;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>