票 下一步就是让用户选择需要的票数.这部分的代码很像其它的部分。我将从数据库中查询相同的数据，因为Session不能在真正的WAP手机中使用，所以我必须对有些内容进行确认，看看是否还有座位出售. 数据挖掘交友
以下是引用片段：
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,但是它的可移动性却是重要的，也为商家提供了不少的商机。
