Guia de Práctica_semana 09_lpiii - Copia (2)

PRÁCTICA DIRIGIDA Y CALIFICADA Nº 09 MANEJO DE SESIONES EN ASP.NET 04/10/2012 “

”

1. OBJETIVO. Realizar una evaluación exploratorio, del nivel de conocimientos adquiridos en Lenguaje de Programación III de los estudiantes del IVciclo. 2. PROCEDIMIENTO Crear un Nuevo Sitio Web (Guardarlo en un archivo personal) Insertar los siguientes controles en el WebForm1: 1Label, 1 textbox, 1 Button y 1 Hiperlink. A cada uno de estos controles modifiques sus propiedades según la tabla siguiente:

Label1 Textbox1 Button1 TextBox1

Text Productos -,Agregar al carrito Ver carrito

ID

TxtProducto cmdAgregar Hyperlink1-.-

Insertamos un nuevo WebForm: WebForm: Explorador de Soluciones → anti clic en WebSite1 → Agregar nuevo elemento → Web Forms. (Colocarle de nombre carrito.aspx ) Seleccionamos el Hiperlink “ver “ ver carrito”, carrito”, y lo vinculamos al WebForm “Carrito.aspx”, haciendo uso de su propiedad Navigate Url .

En el WebForm “Carrito” agregamos los siguientes controles: 1ListBox y 1 button ( ID=cmdCerrar, Txt=Cerrar Sesion)

Lenguaje de Programación III

Retornamos a Default.aspx , e insertamos código en el evento cmdAgregar  (botón agregar carrito)

Partial Class _Default Inherits  System.Web.UI.Page Protected Sub cmdAgragar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdAgregar.Click Dim productos As ArrayList If (Session("misession") Is Nothing) Then 'si variable session no existe entonces la crea productos = New ArrayList() Else 'si ya existe, le asigna a la variable para trabajar productos = Session("misession") End If 'se añade al carrito el valor de txtbox productos.Add(TxtProducto.Text) 'se actualiza el contenido de la session Session("misession") = productos 'se limpia el control TxtProducto.Text = "" End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As  System.EventArgs) Handles Me.Load End Sub End Class Ingresamos el siguiente código en el HiperLink1

Lenguaje de Programación III

Partial Class _Default Inherits  System.Web.UI.Page En el explorador de soluciones desplagamos carrito.aspx  y hacemos doble clic en carrito.aspx.vb.

Y cambiamos la clase y el método:

Insertamos el siguiente código:

Partial Class carrito Inherits  System.Web.UI.Page Protected Sub Page_Load(ByVal sender As Object, ByVal e As  System.EventArgs) Handles Me.Load Dim productos As New ArrayList If (Session("misession") Is Nothing) Then Response.Write("No tiene ningún producto en el carrito") Else productos = Session("misession") 'se asigna de la sesion al control ListBox1.DataSource = productos DataBind() End If End Sub End Class Retornamos al WebForm “Carrito.aspx” e ingresamos el siguiente código en el button “Cerrar sesion”

Protected Sub cmdCerrar_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdCerrar.Click 'se destruye la session Session("misession") = Nothing 'se redirecciona a la pagina principal Response.Redirect( "~/default.aspx") End Sub End Class Iniciamos la depuración y probamos la efectividad de la aplicación web RESPONDA LAS SIGUIENTES INTERROGANTES: 1. ¿Qué es un ArrayList y que aplicaciones se le da? 2. ¿Qué función realiza el control Hiperlink? 3. ¿Cuál es la diferencia entre una aplicación web y una aplicación de escritorio, desde el punto de vista del desarrollador? Lenguaje de Programación III