WAP Ticket Booking System
| Jignesh Desai |
| Address : C/204 Patel Nagar, Kandivali (w), Mumbai 400067, India.
Email : codehunt@yahoo.com
Tel : 863 83 99 | Topic Title : "Muna Mobile"
Topic Description : Movie Tickets Booking System on Mobile Phone written in ASP and WAP. Tested on Nokia's and Phone's simulator.
Level : (Advanced) Assumed you are aware of ASP and WML | | Here we will see a nice, simple example of how a user can book a movie tickets through his mobile phone. We are going to use ASP and Access database to retrieve and store information. No Registration is required. Take a look on Database structure first. (Tickets.mdb) We have 4 Tables,
[Movie : Stores Movie names and stars in movie, Unique movieId(Auto Number Field).]
[Theater : Stores Theater names each one uniquely identified by theaterid (Auto Number Field).]
[Shows : Theaters running particular movies and its timings, seats availability and per ticket price, MovieId and TheaterId as Foreign Keys. Each show identified as Showid (Auto Number Field)].
[Booking : Unique booking id generated for each booking done. you also store name, phone number and number of seats booked of the users.
Here is the Relational Structure and Sample Data Used for Demo
Before writing code understand basic
For demo you can put all this .wml and .asp files in to one directory and map it as a virtual directory is IIS. Since it uses DSN-less connection put database also in the same directory.
When you call or redirect to .asp file your asp file should generate WML code instead of HTML, because that is what your w@p enable device or simulator would understand. This can be done by first throwing W@P’s mime-types from an ASP program. The following lines should be included in your ASP program as it is. <%Response.ContentType="text/vnd.wap.wml"%>
<%Response.write("<?xml version=""1.0""?><!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">")%> |
After this you can throw any WML content. First line is important as browser sould know what type of data is going to come. Passing parameters to ASP program
At time you accept input from the user which needs to be pass to an ASPprogram. Here are WML statements to pass parameters in a name valuepair to your ASP program.Using your <go> tag you call your nextWML DECK or an ASP program. Right !. <do type="accept" label="Select Movie">
<go href="theaters.asp" method="get" >
<postfield name="mid" value="$(mid)" />
</go>
</do> |
Here you can also specify method ( ie. GET/POST although POST is notsupported by few devices we will use GET Method ) and the parametersyou want to pass by using <postfield> tag. <postfield> tagrequires name and value attributes.
That's enough to proceed
Here is the entire code with explanation This is the initial screen which stays for few seconds and then redirects you to movie.asp munamobile.wml <wml>
<card ontimer="movie.asp">
<timer value="30"/>
<p align="center">
Welcome to Muna-Mobile<br/><br/><img src="movie.bmp"alt="logo" /><br/>Movie Ticket<br/>Booking System !
</p>
</card>
</wml>
|
This page give list of all Movies available in the system, and user toselect one. It lists movies as choices, <select and option> tags.Before sending any output it send appropriate mime type by settingcontent type property
movie.asp <%Response.ContentType="text/vnd.wap.wml"%>
<%Response.write("<?xml version=""1.0""?><!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">")%>
<wml>
<card>
<p align="right">Running <img src="movie.bmp" alt="logo" /></p><p>
<%
dim sql
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source=" & Server.MapPath ("tickets.mdb")
conn.open
sql="movie"
rs.open sql, conn, 2, 2
%>
<select name="mid" title="Movies">
<%Do while not rs.eof%>
<option value="<%=rs("movieid")%>"><%=rs("title")%> [<%=rs("staring")%>]</option>
<%
rs.movenext
loop
rs.Close
%>
</select>
</p>
<do type="accept" label="Select Movie">
<go href="theaters.asp" method="get" >
<postfield name="mid" value="$(mid)" />
</go>
</do>
</card>
</wml>
|
After select desired movie, program show the list of theaters running selected movie. theaters.asp <%Response.ContentType="text/vnd.wap.wml"%>
<%Response.write("<?xml version=""1.0""?><!DOCTYPE wmlPUBLIC ""-//WAPFORUM//DTD WML 1.1//EN""""http://www.wapforum.org/DTD/wml_1.1.xml"">")%>
<wml>
<card>
<p>
Currently Running in
<%
dim sql
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source=" & Server.MapPath ("tickets.mdb")
conn.open
sql="Select theaterid , name from theater where theaterid in (selecttheterid from shows where movieid = " & Request.QueryString("mid")& ")"
rs.open sql, conn, 2, 2
%>
<select name="tid" title="Theaters">
<%Do while not rs.eof%>
<option value="<%=rs("theaterid")%>"><%=rs("name")%></option>
<%
rs.movenext
loop
rs.Close
%>
</select>
</p>
<do type="accept" label="Theater ?">
<go href="shows.asp" method="get">
<postfield name="tid" value="$(tid)" />
<postfield name="mid" value="<%=Request.QueryString("mid")%>" />
</go>
</do>
</card>
</wml> |
Once theater is select program show the available show timings and ask user to select one. shows.asp <%dim sql
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source=" & Server.MapPath ("tickets.mdb")
conn.open
sql="Select * from shows where movieid = "&Request.QueryString("mid") &" and theterid = "&Request.QueryString("tid")
rs.open sql, conn, 2, 2
%>
<%Response.ContentType="text/vnd.wap.wml"%>
<%Response.write("<?xml version=""1.0""?><!DOCTYPE wmlPUBLIC ""-//WAPFORUM//DTD WML 1.1//EN""""http://www.wapforum.org/DTD/wml_1.1.xml"">")%>
<wml>
<card>
<p>
Shows Available At :
<select name="showid" title="Show Times">
<%Do while not rs.eof%>
<option value="<%=rs("showid")%>"> <%=rs("time")%>[<%=rs("seatsavailable")%>]Seats </option>
<%
rs.movenext
loop
rs.Close
%>
</select>
</p>
<do type="accept" label="Show ?" >
<go href="bookseats.asp" method="get">
<postfield name="showid" value="$(showid)" />
</go>
</do>
</card>
</wml> |
Oncewe know for which show he wants to book tickets, show him details ofwhat he has selected till now plus price per ticket and ask him howmany he wants to book ?. bookseats.asp <%Response.ContentType="text/vnd.wap.wml"%>
<%Response.write("<?xml version=""1.0""?><!DOCTYPE wmlPUBLIC ""-//WAPFORUM//DTD WML 1.1//EN""""http://www.wapforum.org/DTD/wml_1.1.xml"">")%>
<wml>
<card>
<p>
<%
dim sql
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source=" & Server.MapPath ("tickets.mdb")
conn.open
sql="SELECT shows.showid, shows.movieid, shows.theterid, shows.time,shows.seatsavailable, shows.price, movie.title, theater.name FROMtheater INNER JOIN (movie INNER JOIN shows ON movie.movieid =shows.movieid) ON theater.theaterid = shows.theterid WHERE ((showid="&Request.QueryString("showid") &"))"
rs.open sql, conn, 2, 2
%>
Rs <%=rs("price")%>/- Per Ticket <br/>
Movie: <%=rs("title")%> <br/>
Loc: <%=rs("name")%> <br/>
Time: <%=rs("time")%> <br/>
Book Seats ? : <input name="nooftickets" format="2N" />
</p>
<do type="accept">
<go href="confirmbooking.asp" method="get">
<postfield name="showid" value="<%=Request.QueryString("showid")%>" />
<postfield name="nooftickets" value="$(nooftickets)" />
</go>
</do>
</card>
</wml> |
Get his Confirmation confirmbooking.asp <%Response.ContentType="text/vnd.wap.wml"%>
<%Response.write("<?xml version=""1.0""?><!DOCTYPE wmlPUBLIC ""-//WAPFORUM//DTD WML 1.1//EN""""http://www.wapforum.org/DTD/wml_1.1.xml"">")%>
<wml>
<card>
<p>
<%
dim sql
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source=" & Server.MapPath ("tickets.mdb")
conn.open
sql="SELECT shows.showid, shows.movieid, shows.theterid, shows.time,shows.seatsavailable, shows.price, movie.title, theater.name FROMtheater INNER JOIN (movie INNER JOIN shows ON movie.movieid =shows.movieid) ON theater.theaterid = shows.theterid WHERE ((showid="&Request.QueryString("showid") &"))"
rs.open sql, conn, 2, 2
%>
Rs <%=rs("price")%>/- Per Ticket <br/>
Movie: <%=rs("title")%> <br/>
Loc: <%=rs("name")%> <br/>
Time: <%=rs("time")%> <br/>
Seats Booked : <%=Request.QueryString("nooftickets")%> <br/>
Cost : <%=rs("price")*Request.QueryString("nooftickets")%>
</p>
<do type="accept" label="Confirm">
<go href="orderidthanks.asp" method="get">
<postfield name="showid" value="<%=Request.QueryString("showid")%>" />
<postfield name="nooftickets" value="<%=Request.QueryString("nooftickets")%>" />
</go>
</do>
</card>
</wml> |
Oneconfirmation is done make entry in the database, reduce seatsavailability and show him his booking-id and other message. and thenredirect him back to home page. orderidthanks.asp <%Response.ContentType="text/vnd.wap.wml"%>
<%Response.write("<?xml version=""1.0""?><!DOCTYPE wmlPUBLIC ""-//WAPFORUM//DTD WML 1.1//EN""""http://www.wapforum.org/DTD/wml_1.1.xml"">")%>
<wml>
<card>
<p align="center">
<%
dim sql , rf
dim orderid
set conn = server.createobject("adodb.connection")
set rs = server.createobject("adodb.recordset")
set rs2 = server.createobject("adodb.recordset")
conn.Provider = "Microsoft.Jet.OLEDB.4.0"
conn.ConnectionString = "Data Source=" & Server.MapPath ("tickets.mdb")
conn.open
sql="booking"
rs.open sql, conn, 2, 2
rs.AddNew
rs("showid") = Request.QueryString("showid")
rs("seatsbooked") = Request.QueryString("nooftickets")
rs("name") = Request.QueryString("uname")
rs("telno") = Request.QueryString("telno")
rs.Update
orderid = rs("bookingid")
Response.Write "Your Ticket is confirmed and your bookingid = " &orderid
rs.Close
sqltext = "Update shows set seatsavailable = seatsavailable -"&Request.QueryString("nooftickets") &" where showid= "&Request.QueryString("showid")
set rs2 = conn.Execute(sqltext, rf)
%>
</p>
<do type="accept" label="OK">
<go href="WP_BOOKMARK#thanks" />
</do>
</card>
<card id="thanks" ontimer="munamobile.wml">
<timer name="timer1" value="50" />
<p align="center">
Thanks You can Collect your ticket from the theater 40 min prior to movie time<br/> Booking-id= <%=orderid%>
</p>
<do type="accept" label="Redirecting..">
<go href="munamobile.wml" />
</do>
</card>
</wml>
|
That's All Folks, Download the code and Enjoy !
|
|
| DISCLAIMER: The content provided in this article is not warranted or guaranteed by Developer Shed, Inc. The content provided is intended for entertainment and/or educational purposes in order to introduce to the reader key ideas, concepts, and/or product reviews. As such it is incumbent upon the reader to employ real-world tactics for security and implementation of best practices. We are not liable for any negative consequences that may result from implementing any information covered in our articles or tutorials. If this is a hardware review, it is not recommended to open and/or modify your hardware. |
More Code Examples Articles
More By aspfree  developerWorks - FREE Tools!
|
Building a software-as-a-service solution requires addressing a few key technical challenges. In this webcast, we'll focus on the role of IBM Tivoli Directory Server and WebSphere Portlet Factory in creating a Software as a Service solution. We will demonstrate how to use Tivoli Directory Server to prevent the user population of one tenant from accessing the virtual portal and portlet components of another tenant. We will also use the dynamic profile capability of WebSphere Portlet Factory to create multiple highly customized applications from one code base.
FREE! Go There Now!
| | | |
CakePHP is a stable production-ready, rapid-development aid for building Web sites in PHP. This "Cook up Web sites fast with CakePHP" series shows you how to build an online product catalog using CakePHP.
FREE! Go There Now!
| | | |
Visit IBM developerWorks to download the latest trial version of IBM Data Studio V1.1 at no cost. IBM Data Studio is a comprehensive data management solution that helps you effectively design, develop, deploy and manage your data, databases, and database applications throughout the data management life cycle utilizing a consistent and integrated user interface. Unlike other client-side data management solutions that focus on only one aspect of the application lifecycle or database administration, Data Studio complements the Rational Software Delivery platform, providing unparalleled flexibility for a heterogeneous data server environment across platforms.
FREE! Go There Now!
| | | |
Discover how IBM Rational AppScan Standard Edition can help you detext vulnerabilities in your web applications in the Web Application Security eKit. IBM Rational AppScan is a leading suite of automated web application security solutions that scan and test for common Web application vulnerabilities. The new Web Application Security eKit provides you with valuable resources, including white papers, demos, and additional information on the benefits of testing your Web applications.
FREE! Go There Now!
| | | |
This tutorial shows new users of IBM WebSphere Business Monitor Version 6.0.2 how to perform the "Hello World" equivalent for monitoring business process applications. It is intended to help you get familiar with the capabilities of the product.
FREE! Go There Now!
| | | |
XML has become a common way of storing business data as flat files and many data server vendors including IBM have provided ways to store this data within relational database systems. Increasingly collections of XML files are accessed like databases using an xQuery and other XML standard mechanisms. Businesses find the need to combine the traditional tabular structured data with XML formatted data. In this webcast, you’ll learn about IBM’s WebSphere Federation Server technology, which provides users with the ability to integrate these two data formats.
FREE! Go There Now!
| | | |
Discover how Rational tools and best practices for testing can make your job easier. The new Rational Testing eKits provide you with valuable resources – including demos, webcasts, tutorials, and articles – that help you address your specific testing needs across the software lifecycle. Five new eKits are available covering the topics of Requirements and Test Management, Functional Testing, Performance Testing, Code Quality and Embedded Systems, and SOA and Web Services Testing.
FREE! Go There Now!
| | | |
In this webcast, you'll get an introduction to the eXtreme Transaction Processing (XTP) features of WebSphere Extended Deployment and the common architectural traits required by XTP applications. See how WebSphere Extended Deployment's ObjectGrid feature provides a state-of-the-art infrastructure for hosting XTP applications.
FREE! Go There Now!
| | | |
The unprecedented scope of a service-oriented architecture (SOA) initiative brings to the forefront a number of management and governance issues that were sidestepped in the past. The key to a successful SOA implementation is managing and governing activities throughout the entire SOA delivery lifecycle by ensuring that services conform to the needs of all of the business’s stakeholders. Learn how service lifecycle management allows the business to ensure that the process by which services are defined, created, tested, deployed, optimized and retired is manageable, repeatable and auditable.
FREE! Go There Now!
| | | |
With IBM Rational Systems Development Solution, you can deliver products faster with higher quality. Within this kit, Read the “Model Driven Systems Development” white paper to see how to improve product quality and communication. Then check out the rest of the e-Kit to learn more about important topics that can affect the success of any software project through customer examples, tutorials, informative Webcasts, and best practices for designing, building and managing systems. From start to finish, at every stage in your projects, Rational Systems Development Solution can help your company reach its full potential.
FREE! Go There Now!
| | | |
All FREE IBM® developerWorks Tools!
| |
