Tecnología ASP en WAP (4)
Autor：Eve Cole
Fecha de actualización：2009-05-30 19:54:43
Elige un teatro y hora del espectáculo.
Esta parte del código permite al usuario elegir a qué hora ver la película. Todos los registros se determinan en función de la película seleccionada en la página anterior. Elige tu teatro y horario de espectáculo aquí.
movie_id = Solicitud ("película")
sqlQuery = "SELECCIONE el título DE la película DONDE Movie_id = " & movie_id
establecer rsMovie = conn.Execute(sqlQuery)
movie_title = rsMovie("título")
:
sqlQuery = "SELECCIONAR [nombre], [hora], [show_id] DESDE Espectáculo, Teatro " &_
"DONDE show.movie_id = " & movie_id &_
"Y teatro.teatro_id = espectáculo.teatro_id"
establecer rsShows = conn.Execute(SQLquery)
Si estudia este código detenidamente, querrá utilizar Session para guardar información de la película y luego consultarla en esta página será más fácil. Desafortunadamente, también se requiere sesión.
Aunque la especificación WAP también admite cookies, no es compatible con Nokia 7110. Esto significa que todavía no podemos utilizar la sesión en WAP.
En servicio.
Aquí hay algunas cosas interesantes:
<seleccionar nombre='mostrar'>
<%
Hacer mientras no rsShows.eof
respuesta.write("<opción valor='" & rsShows("show_id") & "'>" & Left(rsShows("nombre"),cutter) & " (" &
rsShows("hora") & ")" & "</option>" &vbcrlf)
rsShows.MoveNext
bucle %>
</seleccionar>
Si te preguntas acerca de la variable de corte, aquí tienes algo que te hará reír o llorar.
cortador tenue
si InStr(Request.ServerVariables("HTTP_USER_AGENT"), "Nokia7110") entonces
cortador = 12
demás
cortador = 7
terminar si
Este código muestra opciones basadas en diferentes dispositivos. Tenemos buenas razones para hacer esto, al emulador Nokia Toolit 1.2 le gusta reducir mis opciones a solo unos pocos caracteres y queremos mostrar el nombre de la película y la fecha de lanzamiento, por lo que tenemos que reducir los caracteres del nombre de la película. Este problema no ocurre en teléfonos móviles reales, por lo que primero debemos determinar el tipo de dispositivo.
Una vez que tuve la oportunidad (era pobre y no tenía dinero, esto era sólo un sueño lejano...) de probar mi código en un Nokia 7110 real, inmediatamente sentimos que teníamos más pantalla de lo que pensábamos. De hecho, algunas salas de cine tienen nombres extraños y estos nombres largos ocuparán mucho espacio en la pantalla. No es necesario desperdiciar este espacio de visualización e intentar simplificar estos nombres.
boleto
El siguiente paso es permitir que el usuario seleccione el número deseado de votos. Esta parte del código es muy parecida a las otras partes. Consultaré los mismos datos de la base de datos porque la sesión no se puede utilizar en la vida real.
Se utiliza un teléfono WAP, así que tengo que revisar algunos contenidos para ver si todavía hay asientos a la venta.
SQLquery = "SELECCIONAR * DESDE mostrar DONDE Show_id = " & show_id
establecer rsShow = conn.Execute(SQLquery)
:
asientos = rsShow("asientos_libres")
:
si asientos = 0 entonces
Response.write("Lo sentimos, no hay más asientos")
rsShow.cerrar
establecer rsShow = nada
Respuesta.write("</p></card></wml>")
Respuesta.fin
demás
Si hay más de 6 asientos, reserve hasta 6 boletos o el máximo disponible.
max_asientos=6
demás
max_seats = asientos
terminar si
terminar si
%>
<%=movie_title%> en <% =theater_name%>
<seleccionar nombre='boleto'>
<%
dimí
yo=1
Hazlo mientras i <= max_seats
respuesta.write("<option value='" & i & "'>" & i & " ticket(s)" & "</option>" &vbcrlf)
yo = yo + 1
bucle %>
</seleccionar>
Guardar votos
Ahora que tenemos todos los datos que necesitamos, debemos guardarlos:
entradas = Solicitud("billete")
:
asientos_libres = rsShow("asientos_libres")
:
asientos_libres = asientos_libres - entradas
:
SQLUpdate = "ACTUALIZAR Mostrar" &_
"SET Show.free_seats=" & asientos_libres & " " &_
" DONDE Show_ID=" & show_id
conexión.Ejecutar(actualizaciónSQL)
SQLquery = "SELECT max([Booking_ID]) como número de reserva DESDE la reserva"
Establecer rsBooking = conn.execute (SQLquery)
maxbookid = rsBooking("número de reserva") + 1
SQLinsert = "INSERTAR EN Reserva (show_id, asientos_reservados)" & _
"VALUES ('" & show_id & "', '" & entradas & "')"
conexión.Ejecutar(SQLinsertar) %>
Has reservado <%=tickets%> entradas para <%=movie_title%><br />
El espectáculo tendrá lugar en <%=theater_name%> (<%=time%>)
<br />
Su número de referencia es <%=maxbookid%>
A continuación se muestra la pantalla:
Figura 4: Transacción completa.
La transacción se ha completado y el cine puede sentarse en la puerta del cine para cobrar el dinero.
en conclusión
WAP apenas ha dado sus primeros pasos, pero es uno de los desarrollos de TI más revolucionarios de los últimos años. En este artículo presento cómo escribir aplicaciones WAP usando asp,
Y te he dado algunas advertencias, que espero sean útiles para tu desarrollo futuro. La tecnología multimedia todavía no se puede utilizar demasiado en WAP, pero su movilidad es importante y ofrece muchas oportunidades de negocio para los comerciantes.
