Technologie ASP dans WAP (4)
Auteur：Eve Cole
Date de mise à jour：2009-05-30 19:54:43
Choisissez un théâtre et l'heure du spectacle
Cette partie du code permet à l'utilisateur de choisir à quelle heure regarder le film. Tous les enregistrements sont déterminés en fonction du film sélectionné sur la page précédente. Choisissez votre théâtre et l'heure du spectacle ici.
movie_id = Requête("film")
sqlQuery = "SELECT title FROM movie WHERE Movie_id = " & movie_id
définir rsMovie = conn.Execute (sqlQuery)
movie_title = rsMovie("titre")
:
sqlQuery = "SELECT [nom], [heure], [show_id] FROM Spectacle, Théâtre " &_
"OÙ show.movie_id = " & movie_id &_
"ET theatre.theater_id = show.theater_id"
définir rsShows = conn.Execute (SQLquery)
Si vous étudiez attentivement ce code, vous souhaiterez utiliser Session pour enregistrer les informations sur le film, puis les interroger sur cette page sera plus facile. Malheureusement aussi, une session est requise
Bien que la prise en charge des cookies soit également prise en charge dans la spécification WAP, elle n'est pas prise en charge dans le Nokia 7110. Cela signifie que nous ne pouvons pas encore utiliser de session dans WAP.
En service.
Voici quelques choses intéressantes :
<select name='show'>
<%
Faites pendant que vous n'êtes pas rsShows.eof
réponse.write("<option value="" & rsShows("show_id") & "'>" & Left(rsShows("name"),cutter) & " (" &
rsShows("heure") & ")" & "</option>" &vbcrlf)
rsShows.MoveNext
boucle %>
</sélectionner>
Si vous vous interrogez sur la variable cutter, voici quelque chose qui vous fera rire ou pleurer.
Dim cutter
si InStr(Request.ServerVariables("HTTP_USER_AGENT"), "Nokia7110") alors
coupeur = 12
autre
coupeur = 7
finir si
Ce code affiche des options basées sur différents appareils. Nous avons de bonnes raisons de le faire, l'émulateur Nokia Toolit 1.2 aime réduire mes options à quelques caractères seulement, et nous voulons afficher le nom du film et la date de sortie, nous devons donc réduire les caractères du nom du film. Ce problème ne se produit pas sur les vrais téléphones mobiles, nous devons donc d'abord déterminer le type d'appareil.
Une fois que j'ai eu la chance (j'étais pauvre et n'avais pas d'argent, ce n'était qu'un rêve lointain...) de tester mon code sur un vrai Nokia 7110, nous avons immédiatement senti que nous avions plus que ce que nous pensions. En fait, certaines salles de cinéma ont des noms étranges, et ces noms longs prendront beaucoup de place à l'écran. Il n'est pas nécessaire de gaspiller cet espace d'affichage et d'essayer de simplifier ces noms.
billet
L'étape suivante consiste à laisser l'utilisateur sélectionner le nombre de votes souhaité. Cette partie du code ressemble beaucoup aux autres parties. J'interrogerai les mêmes données de la base de données car la session ne peut pas être utilisée en réalité
Le téléphone WAP est utilisé, je dois donc vérifier certains contenus pour voir s'il y a encore des places à vendre.
SQLquery = "SELECT * FROM show WHERE Show_id = " & show_id
définir rsShow = conn.Execute (SQLquery)
:
sièges = rsShow("free_seats")
:
si sièges = 0 alors
Response.write("Désolé, plus de places")
rsAfficher.close
définir rsShow = rien
Réponse.write("</p></card></wml>")
Réponse.end
autre
si sièges > 6 alors « réservez jusqu'à 6 billets ou maximum disponible »
max_seats=6
autre
max_seats = sièges
finir si
finir si
%>
<%=movie_title%> à <% =theater_name%>
<select name='ticket'>
<%
dimi
je = 1
Faites pendant que je <= max_seats
réponse.write("<option value="" & i & "'>" & i & " ticket(s)" & "</option>" &vbcrlf)
je = je + 1
boucle %>
</sélectionner>
Enregistrer les votes
Maintenant que nous avons toutes les données dont nous avons besoin, nous devons les sauvegarder :
billets = Demande("billet")
:
free_seats = rsShow("free_seats")
:
free_seats = free_seats - billets
:
SQLUpdate = "MISE À JOUR Afficher" &_
"SET Show.free_seats=" & free_seats & " " &_
" OÙ Show_ID=" & show_id
conn.Execute (SQLupdate)
SQLquery = "SELECT max([Booking_ID]) comme numéro de réservation DE la réservation"
Définir rsBooking = conn.execute (SQLquery)
maxbookid = rsBooking("numéro de réservation") + 1
SQLinsert = "INSERT INTO Booking ( show_id, booking_seats ) " & _
"VALEURS ('" & show_id & "', '" & billets & "')"
conn.Execute(SQLinsert) %>
Vous avez réservé <%=tickets%> billet(s) pour <%=movie_title%><br />
Le spectacle aura lieu au <%=theater_name%> (<%=time%>)
<br />
Votre numéro de référence est <%=maxbookid%>
Ci-dessous l'affichage :
Figure 4 : Terminer la transaction.
La transaction est finalisée et le cinéma peut s'asseoir à la porte du cinéma pour collecter de l'argent.
en conclusion
Le WAP vient tout juste de faire ses premiers pas, mais il s'agit de l'un des développements informatiques les plus révolutionnaires de ces dernières années. Dans cet article, je présente comment écrire des applications WAP en utilisant asp,
Et je vous ai donné quelques avertissements qui, je l'espère, seront utiles pour votre développement futur. La technologie multimédia n'est pas encore trop utilisée dans le WAP, mais sa mobilité est importante et offre de nombreuses opportunités commerciales aux commerçants.
