WAP における ASP テクノロジー (4)
著者：Eve Cole
更新時間：2009-05-30 19:54:43
劇場と上映時間を選択してください
コードのこの部分では、ユーザーが映画を視聴する時間を選択できます。すべてのレコードは、前のページで選択した映画に基づいて決定されます。ここで劇場と上映時間を選択してください。
movie_id = リクエスト("映画")
sqlQuery = "映画 WHERE からタイトルを選択 Movie_id = " & movie_id
set rsMovie = conn.Execute(sqlQuery)
movie_title = rsMovie("タイトル")
:
sqlQuery = "ショー、シアターから [名前]、[時間]、[show_id] を選択します " &_
"WHERE show.movie_id = " & movie_id &_
「AND Theater.theater_id = show.theater_id」
set rsShows = conn.Execute(SQLquery)
このコードを注意深く検討すると、Session を使用して映画情報を保存し、このページでクエリを実行する方が簡単であることがわかります。また、残念ながらセッションが必要です
Cookie のサポートは WAP 仕様でもサポートされていますが、Nokia 7110 ではサポートされていません。つまり、WAP ではまだセッションを使用できません。
サービス中です。
以下に興味深い点をいくつか示します。
<select name='show'>
<%
rsShows.eof を実行しないでください
response.write("<option value='" & rsShows("show_id") & "'>" & Left(rsShows("name"),cutter) & " (" &
rsShows("時間") & ")" & "</option>" &vbcrlf)
rsShows.MoveNext
ループ %>
</選択>
カッター変数について疑問に思っている場合は、笑ったり泣いたりできる何かをここで紹介します。
ディムカッター
if InStr(Request.ServerVariables("HTTP_USER_AGENT"), "Nokia7110") then
カッター＝12
それ以外
カッター＝7
終了する場合
このコードは、さまざまなデバイスに基づいたオプションを表示します。これを行うには十分な理由があります。Nokia Toolit 1.2 エミュレータはオプションを数文字まで削減することを好みます。また、映画の名前とリリース日を表示したいので、映画名の文字数を減らす必要があります。この問題は実際の携帯電話では発生しないため、最初にデバイスの種類を決定する必要があります。
実際の Nokia 7110 でコードをテストする機会が得られると (私は貧乏でお金がなかったので、これは遠い夢でした...)、すぐに大画面が思った以上にあると感じました。実際、一部の映画館には奇妙な名前が付けられており、これらの長い名前は多くの画面スペースを占有します。この表示スペースを無駄にして、これらの名前を簡素化する必要はありません。
チケット
次のステップでは、コードのこの部分は他の部分とよく似ています。実際にはSessionを使用できないため、データベースから同じデータをクエリします。
WAPフォンを使用するので、まだ販売中の座席があるかどうかを確認するためにいくつかのコンテンツを確認する必要があります。
SQLquery = "SELECT * FROM show WHERE Show_id = " & show_id
set rsShow = conn.Execute(SQLquery)
:
席 = rsShow("free_seats")
:
席数 = 0 の場合
Response.write("申し訳ありませんが、もう席はありません")
rsShow.close
rsShow = 何も設定しない
Response.write("</p></card></wml>")
応答.終了
それ以外
席数が 6 を超える場合は、「最大 6 枚のチケット、または利用可能な最大枚数まで予約します」
最大座席数=6
それ以外
max_seats = 席数
終了する場合
終了する場合
%>
<%=movie_title%>、<% =theater_name%>
<select name='チケット'>
<%
ディミ
i=1
i <= max_seats の間実行します
response.write("<option value='" & i & ''>" & i & " ticket(s)" & "</option>" &vbcrlf)
i = i + 1
ループ %>
</選択>
投票を保存する
必要なデータがすべて揃ったので、それを保存する必要があります。
チケット = リクエスト("チケット")
:
free_seats = rsShow("free_seats")
:
free_seats = free_seats - チケット
:
SQLUpdate = "UPDATE 表示 " &_
"SET Show.free_seats=" & free_seats & " " &_
" WHERE Show_ID=" & show_id
conn.Execute(SQLupdate)
SQLquery = "予約からの予約番号として SELECT max([Booking_ID])"
rsBooking = conn.execute(SQLquery) を設定します。
maxbookid = rsBooking("予約番号") + 1
SQLinsert = "予約に挿入 ( show_id, Booked_seats ) " & _
"VALUES ('" & show_id & "', '" & チケット & "')"
conn.Execute(SQLinsert) %>
<%=movie_title%> の <%=tickets%> 枚のチケットを予約しました<br />
ショーは <%=theater_name%> (<%=time%>) で開催されます
<br />
あなたの参照番号は <%=maxbookid%> です
以下に表示があります。
図 4: トランザクションを完了します。
取引は完了し、映画館は映画館の入り口に座ってお金を集めることができます。
結論は
WAP はまだ最初の一歩を踏み出したばかりですが、近年の最も革新的な IT 開発の 1 つです。この記事では、ASP を使用して WAP アプリケーションを作成する方法を紹介します。
そして、私はあなたにいくつかの警告を与えましたが、それがあなたの将来の発展に役立つことを願っています。 WAP ではマルチメディア テクノロジはまだあまり活用できませんが、そのモビリティは重要であり、加盟店に多くのビジネス チャンスをもたらします。
