| 以下是引用片段： SQLquery = \"SELECT * FROM show WHERE Show_id = \" & show_id set rsShow = conn.Execute(SQLquery) : seats = rsShow(\"free_seats\") : if seats = 0 then Response.write(\"Sorry, no more seats\") rsShow.close set rsShow = nothing Response.write(\"< /p >< /card >< /wml >\") Response.end else if seats > 6 then 'book up to 6 tickets or max available max_seats=6 else max_seats = seats end if end if % > < %=movie_title% > at < % =theater_name% > < select name='ticket' > < % dim i i = 1 Do while i < = max_seats response.write(\"< option value='\" & i & \"' >\" & i & \" ticket(s)\" & \"< /option >\" &vbcrlf) i = i + 1 loop % > < /select > |
储存票数
现在我们已经有了所有需要的数据了，我们得把它们保存起来:
| 以下是引用片段： 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,但是它的可移动性却是重要的，也为商家提供了不少的商机。
