20 - Escritura y lectura de un archivo de texto

Simulador (Cuando presiona el botón "ejecutar el programa" se graban todos los cuadros de texto y se ejecuta el primero de la lista mostrando en una página el resultado)

Problema:

<html>
<head>
<title>problema</title>
</head>
<body>
<a href="pagina2.html">Pedido de pizzas.</a><br>
<a href="pagina3.asp">Listado de pedidos.</a>
</body>
</html>
<html>
<head>
<title>problema</title>
</head>
<body>
<form action="pagina2.asp" method="post">
Ingrese su nombre:
<input type="text" name="nombre"><br>
Ingrese su direccion:
<input type="text" name="direccion"><br>
Jamon y Queso
<input type="checkbox" name="check1" value="jamon">
<input type="text" name="text1" size="2" value="0"><br>
Napolitana
<input type="checkbox" name="check2" value="napolitana">
<input type="text" name="text2" size="2" value="0"><br>
Muzzarella
<input type="checkbox" name="check3" value="muzzarella">
<input type="text" name="text3" size="2" value="0"><br>
<input type="submit" value="Pedir"><br>
</form>
</body>
</html>
<%option explicit%>
<html>
<head>
<title>problema</title>
</head>
<body>
<%
dim archivo,ref
dim nombre,direccion
dim check1,check2,check3
dim cant1,cant2,cant3

nombre=request.form("nombre")
direccion=request.form("direccion")
set archivo = CreateObject("Scripting.FileSystemObject")
set ref = archivo.OpenTextFile(server.mappath("pedidos.txt"), 8, True)
ref.writeline("_____Pedido___________________________________________________")
ref.writeline(now())
ref.writeline("")
ref.writeline("Nombre: " & nombre)
ref.writeline("")
ref.writeline("Direccion: " & direccion)
ref.writeline("")
check1=request.form("check1")
cant1=request.form("text1")
if check1="jamon" then
  ref.writeline("Jamon y Queso: " & cant1)
end if
check2=request.form("check2")
cant2=request.form("text2")
if check2="napolitana" then
  ref.writeline("Napolitana: " & cant2)
end if
check3=request.form("check3")
cant3=request.form("text3")
if check3="muzzarella" then
  ref.writeline("Muzzarella: " & cant3)
end if
ref.close()
%>
<h2>El pedido ha sido registrado.</h2>
<a href="pagina1.html">Retornar</p>
</body>
</html>
<%option explicit%>
<html>
<head>
<title>problema</title>
</head>
<body>
<%
dim linea,archivo,ref

set archivo = CreateObject("Scripting.FileSystemObject")
set ref = archivo.OpenTextFile(server.mappath("pedidos.txt"), 1, True)
do while not ref.atendofstream 
  linea=ref.readline()
  response.write(linea & "<br>")
Loop
ref.close()
%>
<br>
<a href="pagina1.html">Retornar</p>
</body>
</html>

Confeccionar un programa en ASP que permita hacer pedido de pizzas via internet.
El formulario debe ser:

Nombre:[..............]
Direccion:[...................]

Jamon y queso:[x]
Cantidad[...]

Napolitana:[x]
Cantidad[...]

Muzzarella;[x]
Cantidad[...]

[Confirmar]

La primer página debe tener dos hipervínculos:

1 - Pedido de pizzas.
2 - Listado de pedidos.

Para el ingreso del nombre, dirección y cantidad de pizzas de cada tipo disponer elementos HTML de tipo "text". Disponer tres objetos de tipo "check" para seleccionar los tipos de pizzas. Por último disponer un botón para el envío de datos: "submit".


Ver solución

pagina1.html







pagina2.html




pagina2.asp




pagina3.asp



Retornar