储存票数

　　 现在我们已经有了所有需要的数据了，我们得把它们保存起来:

tickets = Request("ticket")

:

free_seats = rsShow("free_seats")

:

free_seats = free_seats - tickets

:

SQLUpdate = "UPDATE Show " &_

"SET Show.free_seats=" & free_seats & " " &_

" WHERE Show_ID=" & show_id

conn.Execute(SQLupdate)

SQLquery = "SELECT max([Booking_ID]) as bookingnumber FROM booking"

Set rsBooking = conn.execute(SQLquery)

maxbookid = rsBooking("bookingnumber") + 1


SQLinsert = "INSERT INTO Booking ( show_id, booked_seats ) " & _

"VALUES ('" & show_id & "', '" & tickets & "')"

conn.Execute(SQLinsert) ％ >

You have booked < ％=tickets％ > ticket(s) for < ％=movie_title％ >< br / >

The show will take place at < ％=theater_name％ > (< ％=time％ >)

< br / >

Your reference number is < ％=maxbookid％ >

下面是显示:

Figure 4:完成交易.

交易已经完成了，电影院可以坐着电影院门口收钱了.

结论

　　 WAP现在才刚刚走出它的第一步，然而它是最近几年内最有革命性的IT发展之一。在这篇文章中我介绍了怎样用asp写WAP应用程序,并对你们提出了一些警告，希望对你们以后的发展有用。多媒体技术依然不能太多的用于WAP,但是它的可移动性却是重要的，也为商家提供了不少的商机。