票
下一步就是让用户选择需要的票数.这部分的代码很像其它的部分。我将从数据库中查询相同的数据，因为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 >
|