Scribd
Upload
306 views41 pages

BCA Web Design Lab Guide

This document contains a lab report submitted by Abhishek for the Web Designing lab in the 3rd year BCA DDE program. It includes 15 practical assignments covering various HTML tags and features for creating static and dynamic web pages, as well as introductions to XML, cookies, server-side scripting with ASP, database access using ADO, and more. The practical assignments include creating basic HTML pages, pages using tables, lists, images and forms, applying stylesheets, creating an XML file and dynamic page, using frames for calculations, and scripts for cookies, variables, ads, browser capabilities, and database operations.

Uploaded by

Abhishek
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
306 views41 pages

BCA Web Design Lab Guide

This document contains a lab report submitted by Abhishek for the Web Designing lab in the 3rd year BCA DDE program. It includes 15 practical assignments covering various HTML tags and features for creating static and dynamic web pages, as well as introductions to XML, cookies, server-side scripting with ASP, database access using ADO, and more. The practical assignments include creating basic HTML pages, pages using tables, lists, images and forms, applying stylesheets, creating an XML file and dynamic page, using frames for calculations, and scripts for cookies, variables, ads, browser capabilities, and database operations.

Uploaded by

Abhishek
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Subject Code: BCA 308

Lab: Web Designing


Submitted by: ABHISHEK
University Roll Number: 8021823
Class: BCA 3rd year DDE
Reference Number: 19233015
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

Contents
1
.Introduction to HTML. Create a basic HTML file......................3
2.Create a static webpage using table tags of HTML...................5
3.Create a static web page which defines all text formatting tags of
HTML in tabular format...............................................7
4.Create webpage using list tags of HTML.............................9
5.Create webpage to include image using HTML tag....................11
6.Create employee registration webpage using HTML form objects......12
7.Apply style sheet in Web page. [inline, embedded and linked]......14
8.Create a simple xml file and also create dynamic web page in which
XML tags used.......................................................15
9.Create a dynamic web page which displays arithmetic operations
[addition, subtraction, division, multiplication and modulus] using
HTML Frame..........................................................16
10.Write a script which creates and retrieves Cookies information. . .18
11.Introduction to Global.asa file and it's firing sequence.........19
12.Write a suitable script which creates and retrieves Application and
Session Variables...................................................20
13.Create a dynamic web page which displays Ads using AdRotator
Component...........................................................22
14.Create a dynamic web page which displays capabilities of a web
browser using Browser Capabilities Component........................24
15.Introduction to ADO objects and adovbs.inc file..................27
16.Introduction to DSN. Create System DSN Connection for web
application.........................................................33
17.Write a suitable script which displays records from the database. 35
18.Write a script which inserts the record into the database........37
19.Write a script which update the record into the database.........39
20.Write a script which deletes the record from the database........40

2
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 1

Introduction to HTML. Create a basic HTML file

Hyper Text Markup Language is a set of logical codes (markup) in


parentheses that constitute the appearance of a web document and the
information it contains. It is a language for creating static web
pages. It specifies how the contents are to be presented on the web
page. HTML is not a case sensitive language so; HTML and html both are
same.

HTML is a text document with formatting codes and this document has
the suffix “.html” or “.htm”.

Basic HTML Document


An element called HTML surrounds the whole document. This element
contains two sub-elements, HEAD and BODY. These elements are required
to form any HTML document.
<Html>
<Head>
<Title>The First Page</title>
</head>
<Body>
Hello World
</body>
</html>
Just write down above code in the notepad editor and save this file
with the extension of .html or
.htm and then double click on that file you will get output on the
default web browser.
OUTPUT

3
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

Following are more sub tags of <Head>


<HTML>
<HEAD> has sub-elements that define header material:
<TITLE> document title. The title of your document is what appears in
a web browser’s Favourite or Bookmark list. Search engines on the
Internet use the document’s title for indexing purposes.
</TITLE>
<BASE> can be used to record the document's location in the form of a
URL. </BASE>
<ISINDEX> indicates to the browser that the document is an index
document. This is used only if the document is on a server that does
indexing.
</ISINDEX>
<LINK> indicates a relationship between this document and some other
object on the Web.
</LINK>
<META> provides information such as the page’s keywords and
description that appears in HTTP headers.
</META>
<SCRIPT> contains either JAVA Script or VB Script</SCRIPT>
<STYLE> contains information used by cascading style sheets </STYLE>
</HEAD>
<BODY>
the remaining HTML elements are contained within these tags.
</BODY>
</HTML>

4
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 2

Create a static webpage using table tags of HTML

<html>
<body>
<TABLE BORDER="1" CELLPADDING="2">
<CAPTION ALIGN="Top"><b>Specification Table with Hours and
Marks<CAPTION>
<TR>
<TH ROWSPAN="2">Unit No.</TH>
<TH ROWSPAN="2">Unit Title</TH>
<TH ROWSPAN="2">Teaching Hours</TH>
</TR> <TH Colspan="4">Distribution of Theory Marks</TH>
<TR>

<TD>R Level </TD>


<TD>U Level </TD>
</TR> <TD>A Level </TD>
<TR> <TD>Total Marks </TD>

<TD> <center>I </TD>


<TD>Introduction to Internet Technology</TD>
<TD><center>2</TD>
<TD><center>4</TD>
</TR> <TD><center>4</TD>
<TR> <TD><center>0</TD>
<TD><center>8</TD>

<TD> <center>II </TD>


<TD>Basics of HTML & CSS</TD>
<TD><center>6</TD>
</TR> <TD><center>0</TD>
<TR> <TD><center>2</TD>
<TD><center>6</TD>
<TD><center>8</TD>

<TD> <center>III </TD>


<TD>Active Server Pages 3.0</TD>
</TR> <TD><center>6</TD>
<TR> <TD><center>4</TD>
<TD><center>8</TD>
<TD><center>0</TD>
<TD><center>12</TD>

<TD> <center>IV </TD>


<TD>Server Side Coding with VBScript and XML</TD>
<TD><center>8</TD>
<TD><center>2</TD>
<TD><center>4</TD>
<TD><center>8</TD>
5
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

<TD><center>14</TD>
</TR>
<TR>
<TD> <center>V </TD>
<TD>ASP Objects & Components</TD>
<TD><center>10</TD>
<TD><center>4</TD>
<TD><center>4</TD>
<TD><center>6</TD>
</TR> <TD><center>14</TD>
<TR>

<TD> <center>VI </TD>


<TD>Accessing database with ASP & ADO</TD>
<TD><center>10</TD>
<TD><center>4</TD>
<TD><center>4</TD>
</tr> <TD><center>6</TD>
<TR> <TD><center>14</TD>

<TD> </TD>
<TD><center><b>Total</TD>
<TD><center><b>42</TD>
<TD><center><b>18</TD>
</tr> <TD><center><b>26</TD>
</TABLE> <TD><center><b>26</TD>
</body> <TD><center><b>70</TD>
</html>

OUTPUT

6
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 3

Create a static web page which defines all text formatting tags of HTML in tabular format

<html>
<body>
<center>
<table border=1>
<caption align="top"><font size="+2" color="red">Text Formatting
Tags</font> </caption>
<tr>
<th>HTML Tag</th>
<th>Output</th>
</tr>
<tr>
<td>normal text</td>
<td>hello world</td>
</tr>
<tr>
<td>Font & its attributes</td>
<td><FONT SIZE="+2" COLOR="#RRGGBB"> hello world
</FONT></td>
</tr>
<tr>
<td>&lt;B&gt;</td>
<td><B> Bold </B></td>
</tr>
<tr>
<td>&lt;I&gt;</td>
<td><I> Italic </I></td>
</tr>
<tr>
<td>&lt;U&gt;</td>
<td><U> Underline </U></td>
</tr>
<tr>
<td>&lt;EM&gt;</td>
<td><EM> Emphasis </EM></td>
</tr>
<tr>
<td>&lt;STRONG&gt;</td>
<td><STRONG> STRONG </STRONG></td>
</tr>
<tr>
<td>&lt;TELETYPE&gt;</td>
<td><TT> TELETYPE </TT></td>
</tr>
<tr>
<td>&lt;CITE&gt;</td>
<td><CITE> Citation </CITE></td>
</tr>
<tr>
<td>&lt;STRIKE&gt;</td>
<td><STRIKE> strike-through text </STRIKE></td>
</tr>
7
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

<tr>
<td>&lt;BIG&gt;</td>
<td><BIG> text in a big font </BIG></td>
</tr>
<tr>
<td>&lt;SMALL&gt;</td>
<td><SMALL> text in a small font <SMALL></td>
</tr>
<tr>
<td>&lt;SUB&gt;</td>
<td>a<SUB> b </SUB></td>
</tr>
<tr>
<td>&lt;SUP&gt;</td>
<td>a<SUP> b</SUP></td>
</tr>
</table>
</body>
</html>

OUTPUT

8
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 4

Create webpage using list tags of HTML

<html>
<body>
<b> HTML List: Ordered, Unordered & Definition List</b>
<hr>

Following is the list of proposed student activities like:

<OL type=1>
<li>Develop programs related with unit vice topics in computer
laboratory.</li>
<li>Develop any module of to be useful in real life application.</li>
<li>Multimedia presentation of module developed by students.</li>
</OL>
<hr>

List of Software/Learning Websites

<UL>
<li><u>ASP Tutorial - W3Schools</u><br>
<a href=http://www.w3schools.com/asp/> www.w3schools.com/asp</a></li>
<li><u>Classic ASP Tutorials & Articles - Web Wiz</u><br>
<a href="http://www.webwiz.co.uk">www.webwiz.co.uk -
Knowledgebase</a></li>
<li><u>HTML Tutorial - W3Schools</u><br>
<a href="http://www.w3schools.com/html/">
www.w3schools.com/html</a></li>
<li><u>CSS Tutorial</u><br>
<a href="http://www.csstutorial.net/"> www.csstutorial.net</a></li>
<li><u>VBScript Tutorial - Tutorials Point</u><br>
<a href="http://www.tutorialspoint.com/vbscript/index.htm">
www.tutorialspoint.com/vbscript/index.htm</a></li>
<li><u>ADO Tutorial - W3Schools</u><br>
<a href="http://www.w3schools.com/ADO/default.asp">
www.w3schools.com/ADO/default.asp</a></li>
</UL>
<hr>

<DL> <DT>HTML</DT>
<DD>Hyper Text Markup Language</DD>
<DT>XML</DT>
<DD>eXtensible Markup Language</DD>
</DL>
</body>
</html>

9
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

OUTPUT

10
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 5

Create webpage to include image using HTML tag

<html>
<body background="Desert.jpg">
<center><img src="dns.gif">
</body>
</html>

11
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 6
Create employee registration webpage using HTML form objects
<html>
<body>
<Center>
<img src="employee_icon.png" height=52 width=52>
<Font size="+3" color=red>Employee Registration Form</font>
<form method=post action="prac.html">
<table>
<tr>
<td></td>
<td><input type=radio name=initial checked>Mr.
<input type=radio name=initial>Mrs.
<input type=radio name=initial>Ms.</td>
</tr><tr>
<td>First Name</td>
<td><input type=text name=fn placeholder="First Name"></td>
</tr><tr>
<td>Last Name</td>
<td><input type=text name=ln placeholder="Last Name"></td>
</tr> <tr>
<td>Mail Address1</td>
<td><input type=text name=add1></td>
</tr><tr>
<td>Mail Address2</td>
<td><input type=text name=add2></td>
</tr><tr>
<td>City</td>
<td><input type=text name=ct></td>
</tr><tr>
<td>State</td>
<td><select name=state>
<option value="Gujarat">Gujarat
<option value="Maharastra">Maharastra
<option value="Karnataka">Karnataka
<option value="Delhi">Delhi
</select>
</td>
</tr><tr>
<td>Zip</td>
<td><input type=text name=zp></td>
</tr><tr>
<td>Upload Photo</td>
<td><input type=file name=photo></td>
</tr><tr>
<td>E-Mail</td>
<td><input type=text name=email size=30></td>
</tr><tr>
<td>Mobile</td>
<td><input type=text name=mob placeholder="+91"></td>
</tr><tr>
<td>Languages known</td>
<td><input type=checkbox name=lk value=Gujarati checked>Gujarati</td>

12
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

</tr><tr>
<td></td>
<td><input type=checkbox name=lk value=Hindi checked>Hindi</td>
</tr><tr>
<td></td>
<td><input type=checkbox name=lk value=English checked>English</td>
</tr><tr>
<td></td>
<td><input type=checkbox name=lk value=Marathi >Marathi</td>
</tr><tr>
<td>Additional Information</td>
<td><textarea name=add rows=3 cols=20 placeholder="Optional"
wrap></textarea></td>
</tr><tr>
<td></td>
<td><input type=submit value=submit>&nbsp;<input type=reset
value=reset></td>
</table>
</form>
</body>
</html>

OUTPUT

13
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 7
Apply style sheet in Web page. [inline, embedded and linked]
ext.css
hr
{
color:sienna;
}
p
{ margin-left:20px;

}
body background-image:url("sheet.jpg");
{

}
stylesheet.html
<html>
<head>
<link rel="stylesheet" type="text/css" href="ext.css">
<style> h1
{
background-color:#6495ed;
}
p
{ background-color:#e0ffff;

}
div background-color:#b0c4de;
{

}
</style>
</head>
<body>

<h2>Internal, External & Inline Style!</h1>


<div>Text inside a div element.
<p>paragraph background color</p> still in the div element.
</div>
<p style="color:red;margin-left:20px;">Hello world.</p>
</body>
</html>

14
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

OUTPUT

PRACTIAL 8
Create a simple xml file and also create dynamic web page in which XML tags used
Simple XML file: name.xml
<Name>
<First> Sachin </First>
<Last> Tendulkar </Last>
</Name>
XML with ASP: name.asp
To generate an XML response from the server - simply write the
following code and save it as an ASP file on the web server.
<%
response.ContentType="text/xml"
response.Write("<?xml version='1.0' encoding='ISO-8859-'?>")
response.Write("<Name>") response.Write("<First>Sachin</First>")
response.Write("<Last>Tendulkar</Last>") response.Write("</Name>")
%>

15
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 9

Create a dynamic web page which displays arithmetic operations [addition, subtraction,
division, multiplication and modulus] using HTML Frame

frame.asp
<Html>
<frameset rows="50%, 50 %">
<frame src="Form.asp" name="que">
<frame src="Answer.asp" name="ans">
</frameset>
</html>

Form.asp
<%@ language= vbscript %>
<% option explicit %>
<Html>
<body>
<form method=post action="answer.asp" target="ans">
<b><center><u><font color=red size=4>Arithmetic Operations</font>
</u></b></center><br><br><br>
<table align=center border=0>
<tr>
<td><b>Enter First Number:</td>
<td><input type=text name=n1 placeholdder="First Number"></td>
</tr>
<tr>
<td><b>Enter Second Number:</td>
<td><input type=text name=n2 placeholdder="Second Number"></></td>
</tr>
<tr>
<td><b>Select Your Choice:</td>
<td><select name=opr>
<option value="Addition">Addition
<option value="Subtraction">Subtraction
<option value="Division">Division
<option value= "Multiplication"> Multiplication
<option value="Modulus">Modulus
</select>
</td>
</tr>
</table><Br>
<center> <input type = submit value="submit"> </center>
</form>
</body>
</html>

Answer.asp
<html>
<body>
<% dim a, b, c a=request ("n1")

16
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

b=request ("n2") c=request ("opr") response.write " " response.write


"<br>"
%>
<center><font color=red size=4>
<%
Select case c
Case "Addition"
response.write "Addition of "
response.write a response.write " & " response.write b response.write
" is " response.write (a + 0 + b)
Case "Subtraction"
response.write "Substraction of "
response.write a response.write " & " response.write b response.write
" is "
response.write (a - b)
Case "Division"
response.write "Division of "
response.write a response.write " & " response.write b response.write
" is "
response.write (a / b)
Case "Multiplication"
response.write "Multiplication of "
response.write a response.write " & " response.write b response.write
" is "
response.write (a * b)

Case "Modulus"
response.write "Modulus of "
response.write a response.write " & " response.write b
response.write " is " response.write (a mod b)

End select
%>
</font>
</center>
</body>
</html>

17
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 10

Write a script which creates and retrieves Cookies information

ABC.asp (Reading Cookies using Request Object)


<% option explicit %>
<%
Dim searchterms, Date, objad
Searchterms = request.cookies ("lastsearch") ("terms")
%> Date= request.cookies ("lastsearch") ("date")
<Html>
<Body>
<form method=post action="XYZ. asp"><center>
<Br><Br>
<b> <center>Search What You Want </center></b>
<%
If isdate (date) then
response.write "(last visited on " & now & ")" End if
%>
<Hr>
<Center><font color=yellow size=10> Google:
<input type=text name=terms value="<%= searchterms %>"< Br><Br>
<input type=submit value="search"> </Center>
<% set objad = nothing %>
</form>
</body>
</html>

XYZ.asp (Write Cookies using Response object)


<% option explicit %>
<%
Dim Sterms Sterms=request ("terms")
Response. Cookies ("lastsearch") ("terms") = sterms
Response. Cookies ("lastsearch") ("date") = date Response.
Cookies ("lastsearch").expires = date + 365
%>
<Html>
<Body>
<b><center>
<font color=red size=30>Information Here... </font>
</center></b><br>
To try another search, <a href = "ABC.asp">click here</a>
</body>
</html>

18
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 11

Introduction to Global.asa file and it's firing sequence

The global.asa file is a special file that handles session and


application events. This file must be spelled exactly as it is here on
this page and it must be located in your websites root directory.
For example, we use the global.asa file on this website to display the
number of Active Users on our site. Rather than inputting data into a
database and keeping a stored record of it, our global.asa file acts
as a monitor of how many users are visiting any page our website.

Example
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">

Sub Application_OnStart
'Set our user count to 0 when we start the server Application
("ActiveUsers") = 0
End Sub

Sub Session_OnStart
'Change Session Timeout to 20 minutes (if you need to)
Session.Timeout = 20
Set a Session Start Time
this is only important to assure we start a session Session ("Start")
= Now
'Increase the active visitors count when we start the session

Application.Lock
Application("ActiveUsers")=Application ("ActiveUsers")+1
Application.UnLock
End Sub

Sub Session_OnEnd
‘Decrease the active visitors count when the session ends.
Application.Lock
Application("ActiveUsers")= Application("ActiveUsers")-1
Application.UnLock
End Sub
</SCRIPT>

Firing Sequence of Global.asa File

Application_OnStart: Occurs when the FIRST user calls the first page
in an ASP application. This event occurs after the Web server is
restarted or after the Global.asa file is edited. The
"Session_OnStart" event occurs immediately after this event.
Session_OnStart - This event occurs EVERY time a NEW user requests his
or her first page in the ASP application.
Session_OnEnd - This event occurs EVERY time a user ends a session. A
user-session ends after a page has not been requested by the user for
a specified time.
Application_OnEnd - This event occurs after the LAST user has ended
the session. Typically, this event occurs when a Web server stops.
This procedure is used to clean up settings after the Application
19
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

stops, like delete records or write information to text files.

20
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 12

Write a suitable script which creates and retrieves Application and Session Variables

Application Variable
In this example we will create a Global.asa file that counts the
number of current visitors.
The Application_OnStart sets the Application variable "visitors" to 0
when the server starts
The Session_OnStart subroutine adds one to the variable "visitors"
every time a new visitor arrives
The Session_OnEnd subroutine subtracts one from "visitors" each time
this subroutine is triggered

The Global.asa file:


<script language="vbscript" runat="server"> Sub Application_OnStart
Application("visitors")=0 End Sub

Sub Session_OnStart Application.Lock


Application("visitors")=Application("visitors")+1 Application.UnLock
End Sub

Sub Session_OnEnd
Application.Lock Application("visitors")=Application("visitors")-1
Application.UnLock
End Sub

</script>

To display the number of current visitors in an ASP file:

<html>
<body>
There are
<%response.write(Application("visitors"))%> online now..
</body>
</html>

21
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

Session Variable

To create Session variable:


<%
Session("username")="bbit" Session("code")=605
%>

When the value is stored in a session variable it can be reached from


any page in the ASP application. To retrieves Session values:

<html>
<body>
Welcome
<% Response.Write(Session("username"))%>
</body>
</html>

OUTPUT
Welcome bbit

22
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 13

Create a dynamic web page which displays Ads using AdRotator Component

Note: This practical works with IIS 5.0 & 6.0 and will not works with
IIS 7.0 or above.

Rotator Schedule File


AdRotator.txt
REDIRECT AdRotator.asp WIDTH 440
HEIGHT 60
BORDER 1
* winxp.gif
-
windows xp 20
nts_iis.gif
-
Microsoft Internet Information Services 60
ie.gif
-
Microsoft Internet Explorer 20

AdRotator.asp
<% option explicit %>
<%
Dim objad
Set objad = server.createobject ("MSWC.adrotator")
%>
<Html>
<Body>
<Center>
<%= objad.getadvertisement ("AdRotator.txt") %>
</Center> <Br><hr>

<b><center>this is an Advertise ...</center></b>


<br>
<b><center>this is an Advertise ...</center></b>
<Br>

<Center>
<%= objad.getadvertisement ("AdRotator.txt") %>
</Center>

<% set objad = nothing %>


</body>
</html>

23
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

OUTPUT

24
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 14

Create a dynamic web page which displays capabilities of a web browser using Browser
Capabilities Component

<%@ LANGUAGE = "VBSCRIPT" %>


<HTML>
<BODY>
<% Set objBC = Server.CreateObject ("MSWC.BrowserType") %>
<B> BROWSER CAPABILIES COMPONENT
<HR> <CENTER>
<TABLE>
<TR>
<TD>
<B> Name of the Web browser
</TD>
<TD>
<%= objBC.browser %>
</TR> </TD>
<TR>

<TD> <B> Operating system being used

</TD>
<TD> <%= objBC.platform %>
</TR>
<TR> </TD>

<B> Version of the Web browser


<TD>

</TD> <%= objBC.version %>


</TR> <TD>
<TR>
</TD>
<B> Major version number

<TD>
<%= objBC.majorver %>
</TR> </TD>
<TD>

</TD> <B> Minor version number

<TR>
<TD> <%= objBC.minorver %>
</TR>
<TR> </TD>
<TD>
<B> Does the Web browser support frames?
</TD>

<TD>

25
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

</TD>
<TD>
<%If objBC.frames Then %> True
<%Else %>
</TR> False
<TR> <%End If %>
</TD>

<TD> <B> Does the Web browser support tables?

</TD>
<TD> <%If objBC.tables Then %> True
<%Else %>
False
</TR> <%End If %>
<TR>
</TD>

<B> Does the Web browser support cookies?


<TD>

</TD> <% If objBC.cookies Then %> True


<TD> <%Else %>
False
<%End If %>
</TR>
<TR>
</TD>

<TD>
<B> Does the Web browser support background sounds?
</TD>
<TD>
<%If objBC.backgroundsounds Then %> True
<%Else %>
False
<%End If %>
</TD>
</TR>
<TR>
<TD> <B> Does the Web browser support JavaScript?

</TD>
<TD> <% If objBC.javascript Then %> True
<%Else %>
False
<%End If %>
</TD>
</TR>
<TR>
<TD>

</TR> </TD>
<TD>
26
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

web browser support vbscript?

<%If objBC.vbscript Then %> True


</TD> <B> <%Else %>
Does False
the <%End If %>
</TABLE> </CENTER>
</BODY>
</HTML>

OUTPUT

27
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 15

Introduction to ADO objects and adovbs.inc file

ADO (ActiveX Data Objects)


The ActiveX Data Objects provide an application level interface to
data providers such as Microsoft SQL Server or Microsoft Access. ADO
is directly used within ASP to communicate with such databases.
The ADO model contains six objects.
The Connection object connects you to data source and works with
databases.
The Recordset object allows you to work with the data in a table. It
can be used to read through the rows of a table, modify the rows of a
table or collect new data to be added to the table.
The Error object represents an error generated by the data source.
The Field object represents a single column in the table.
The Command object provides another way to create a Recordset object.
It combines the Recordset object and Connection object.
The Parameters collection contains any parameters needed by the
command. The parameters are stored in Parameter object.

ADOVBS.inc File
ADOVBS.inc is a file included with IIS that holds all ADO constants
defined. Most ASP scripts use constants with names like
'adOpenForwardOnly' and 'adLockReadOnly' when connecting to databases.
These are constants, which are defined in the ADOVBS.inc file and
define various connection and recordset properties with English-like
names.

To include ADOVBS.inc, add one line to the top of your ASP pages:
which reads
<!--#include virtual="/adovbs.inc"-->

Place the ADOVBS.inc in your root web application directory. The


contents of the ADOVBS.inc is listed below for your use. Each
assignment must be on a single line. When the entire contents below
are copied into a text file, ensure that it appears as a single
column.
<%
'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0 Const adOpenKeyset = 1
Const adOpenDynamic = 2 Const adOpenStatic = 3

'---- CursorOptionEnum Values ----


Const adHoldRecords = &H00000100 Const adMovePrevious = &H00000200
Const adAddNew = &H01000400 Const adDelete = &H01000800
Const adUpdate = &H01008000 Const adBookmark = &H00002000
Const adApproxPosition = &H00004000 Const adUpdateBatch = &H00010000
Const adResync = &H00020000
Const adNotify = &H00040000

28
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

'---- LockTypeEnum Values ----


Const adLockReadOnly = 1 Const adLockPessimistic = 2 Const
adLockOptimistic = 3 Const adLockBatchOptimistic = 4

'---- ExecuteOptionEnum Values ----


Const adRunAsync = &H00000010

'---- ObjectStateEnum Values ----


Const adStateClosed = &H00000000 Const adStateOpen = &H00000001 Const
adStateConnecting = &H00000002 Const adStateExecuting = &H00000004

'---- CursorLocationEnum Values ----


Const adUseServer = 2 Const adUseClient = 3

'---- DataTypeEnum Values ----


Const adEmpty = 0 Const adTinyInt = 16 Const adSmallInt = 2 Const
adInteger = 3 Const adBigInt = 20
Const adUnsignedTinyInt = 17 Const adUnsignedSmallInt = 18 Const
adUnsignedInt = 19 Const adUnsignedBigInt = 21 Const adSingle = 4
Const adDouble = 5 Const adCurrency = 6 Const adDecimal = 14 Const
adNumeric = 131 Const adBoolean = 11 Const adError = 10
Const adUserDefined = 132 Const adVariant = 12
Const adIDispatch = 9 Const adIUnknown = 13 Const adGUID = 72 Const
adDate = 7
Const adDBDate = 133 Const adDBTime = 134
Const adDBTimeStamp = 135 Const adBSTR = 8
Const adChar = 129 Const adVarChar = 200
Const adLongVarChar = 201 Const adWChar = 130 Const adVarWChar = 202

29
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

Const adLongVarWChar = 203 Const adBinary = 128


Const adVarBinary = 204 Const adLongVarBinary = 205

'---- FieldAttributeEnum Values ----


Const adFldMayDefer = &H00000002 Const adFldUpdatable = &H00000004
Const adFldUnknownUpdatable = &H00000008 Const adFldFixed = &H00000010
Const adFldIsNullable = &H00000020 Const adFldMayBeNull = &H00000040
Const adFldLong = &H00000080 Const adFldRowID = &H00000100
Const adFldRowVersion = &H00000200 Const adFldCacheDeferred =
&H00001000

'---- EditModeEnum Values ----


Const adEditNone = &H0000 Const adEditInProgress = &H0001 Const
adEditAdd = &H0002
Const adEditDelete = &H0004

'---- RecordStatusEnum Values ----


Const adRecOK = &H0000000 Const adRecNew = &H0000001 Const
adRecModified = &H0000002 Const adRecDeleted = &H0000004
Const adRecUnmodified = &H0000008 Const adRecInvalid = &H0000010
Const adRecMultipleChanges = &H0000040 Const adRecPendingChanges =
&H0000080 Const adRecCanceled = &H0000100
Const adRecCantRelease = &H0000400
Const adRecConcurrencyViolation = &H0000800 Const
adRecIntegrityViolation = &H0001000 Const adRecMaxChangesExceeded =
&H0002000 Const adRecObjectOpen = &H0004000
Const adRecOutOfMemory = &H0008000 Const adRecPermissionDenied =
&H0010000 Const adRecSchemaViolation = &H0020000 Const adRecDBDeleted
= &H0040000

'---- GetRowsOptionEnum Values ----


Const adGetRowsRest = -1

'---- PositionEnum Values ----


Const adPosUnknown = -1 Const adPosBOF = -2 Const adPosEOF = -3

30
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

'---- enum Values ----


Const adBookmarkCurrent = 0 Const adBookmarkFirst = 1 Const
adBookmarkLast = 2

'---- MarshalOptionsEnum Values ----


Const adMarshalAll = 0
Const adMarshalModifiedOnly = 1

'---- AffectEnum Values ----


Const adAffectCurrent = 1 Const adAffectGroup = 2 Const adAffectAll =
3

'---- FilterGroupEnum Values ----


Const adFilterNone = 0
Const adFilterPendingRecords = 1 Const adFilterAffectedRecords = 2
Const adFilterFetchedRecords = 3 Const adFilterPredicate = 4

'---- SearchDirection Values ----


Const adSearchForward = 1 Const adSearchBackward = -1

'---- ConnectPromptEnum Values ----


Const adPromptAlways = 1 Const adPromptComplete = 2
Const adPromptCompleteRequired = 3 Const adPromptNever = 4

'---- ConnectModeEnum Values ----


Const adModeUnknown = 0 Const adModeRead = 1 Const adModeWrite = 2
Const adModeReadWrite = 3
Const adModeShareDenyRead = 4 Const adModeShareDenyWrite = 8 Const
adModeShareExclusive = &Hc Const adModeShareDenyNone = &H10

'---- IsolationLevelEnum Values ----


Const adXactUnspecified = &Hffffffff Const adXactChaos = &H00000010
Const adXactReadUncommitted = &H00000100 Const adXactBrowse =
&H00000100
Const adXactCursorStability = &H00001000 Const adXactReadCommitted =
&H00001000 Const adXactRepeatableRead = &H00010000 Const
adXactSerializable = &H00100000 Const adXactIsolated = &H00100000

31
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

'---- XactAttributeEnum Values ----


Const adXactCommitRetaining = &H00020000 Const adXactAbortRetaining =
&H00040000

'---- PropertyAttributesEnum Values ----


Const adPropNotSupported = &H0000 Const adPropRequired = &H0001 Const
adPropOptional = &H0002 Const adPropRead = &H0200
Const adPropWrite = &H0400

'---- ErrorValueEnum Values ----


Const adErrInvalidArgument = &Hbb9 Const adErrNoCurrentRecord = &Hbcd
Const adErrIllegalOperation = &Hc93 Const adErrInTransaction = &Hcae
Const adErrFeatureNotAvailable = &Hcb3 Const adErrItemNotFound =
&Hcc1 Const adErrObjectInCollection = &Hd27 Const adErrObjectNotSet =
&Hd5c
Const adErrDataConversion = &Hd5d Const adErrObjectClosed = &He78
Const adErrObjectOpen = &He79
Const adErrProviderNotFound = &He7a Const adErrBoundToCommand = &He7b
Const adErrInvalidParamInfo = &He7c Const adErrInvalidConnection =
&He7d Const adErrStillExecuting = &He7f
Const adErrStillConnecting = &He81

'---- ParameterAttributesEnum Values ----


Const adParamSigned = &H0010 Const adParamNullable = &H0040 Const
adParamLong = &H0080

'---- ParameterDirectionEnum Values ----


Const adParamUnknown = &H0000 Const adParamInput = &H0001 Const
adParamOutput = &H0002
Const adParamInputOutput = &H0003 Const adParamReturnValue = &H0004

'---- CommandTypeEnum Values ----


Const adCmdUnknown = &H0008 Const adCmdText = &H0001 Const adCmdTable
= &H0002
Const adCmdStoredProc = &H0004

'---- SchemaEnum Values ----


Const adSchemaProviderSpecific = -1

32
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

Const adSchemaAsserts = 0 Const adSchemaCatalogs = 1


Const adSchemaCharacterSets = 2 Const adSchemaCollations = 3 Const
adSchemaColumns = 4
Const adSchemaCheckConstraints = 5
Const adSchemaConstraintColumnUsage = 6 Const
adSchemaConstraintTableUsage = 7 Const adSchemaKeyColumnUsage = 8
Const adSchemaReferentialContraints = 9 Const adSchemaTableConstraints
= 10 Const adSchemaColumnsDomainUsage = 11 Const adSchemaIndexes = 12
Const adSchemaColumnPrivileges = 13 Const adSchemaTablePrivileges = 14
Const adSchemaUsagePrivileges = 15 Const adSchemaProcedures = 16 Const
adSchemaSchemata = 17
Const adSchemaSQLLanguages = 18 Const adSchemaStatistics = 19 Const
adSchemaTables = 20
Const adSchemaTranslations = 21 Const adSchemaProviderTypes = 22 Const
adSchemaViews = 23
Const adSchemaViewColumnUsage = 24 Const adSchemaViewTableUsage = 25
Const adSchemaProcedureParameters = 26 Const adSchemaForeignKeys = 27
Const adSchemaPrimaryKeys = 28
Const adSchemaProcedureColumns = 29

%>

33
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 16

Introduction to DSN. Create System DSN Connection for web application

DSN (Data Source Name)


A data source name (DSN) is a data structure that contains the
information about a specific database that an Open Database
Connectivity (ODBC) driver needs in order to connect to it.
DSN, which resides either in the registry or as a separate text file,
is information such as the name, directory and driver of the database.

Creating System DSN with MS Access Database

For Windows 7 user, first open Control Panel then select System and
Security option in which select Administrative Tools options. Double
click on ODBC Data Source Administrator icon.
Now you will see ODBC Data Source Administrator window (as shown
below). Select System DSN tab, and click Add.

Click Add button and then select the Microsoft Access Driver and click
finish

34
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

Enter a Data Source Name and description for the connection.


Then choose to create a new database or select an existing .mdb file
from the hard disk then click ok to finish the process.

After creating the System DSN use that connection for a particular ASP
page. The following script shows System DSN named myDSN:

<%
Set con = Server.CreateObject (“ADODB.Connection”) Con.Open “DSN =
myDSN”
%>

35
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 17

Write a suitable script which displays records from the database

<%@ LANGUAGE = VBScript %>


<% option explicit %>

<Html>
<head>
<TITLE>Information Tech Dept</TITLE>
<LINK REL="STYLESHEET" HREF="table.css">
</head>

<Body>
<%
Dim conn, objRS, Sql
Set conn = server.createobject("ADODB.connection") conn.Mode = 1 '
read only
conn.connectionString = "DSN=dsnemp" conn.open
Set objRS = server.createobject("ADODB.recordset") Sql = "select *
from emp"
objRS.open Sql, conn
%>

<center>
<b>Information Technology Department</b>
<TABLE border=1>
<TR>
<TD><b>Employee Number</b></TD>
<TD><b>Employee Name</b></TD>
<TD><b>Basic Salary</b></TD>
</TR> <TD><b>Joining Date</b></TD>
<% do while not objRS.EOF %>
<%= "<TR><TD>" & objRS ("Emp_No") %> </TD>
<%= "<TD>" & objRS ("Emp_Name") %> </TD>
<%= "<TD>" & objRS ("Basic_Sal") %> </TD>
<%= "<TD>" & objRS ("Date_Join") %> </TD></TR>

<%
objRS.movenext Loop objRS.close conn.close
%>

</body>
</html>

36
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

OUTPUT

37
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 18

Write a script which inserts the record into the database

stu_insert.asp
<html>
<body>
<h2>Student Insert Record</h2>
<form method="Post" action="rec_insert.asp">
<table>
<tr>
<td>Enrollment No</td>
<td><input type="text" name="enrl" size="20"></td>
</tr>
<tr>
<td>Student Name</td>
<td><input type="text" name="sname" size="20"></td>
</tr>
<tr>
<td>Contact No</td>
<td><input type="text" size="20" name="cno"></td>
</tr>
<tr>
<td>Semester</td>
<td><input type="text" size="20" name="sem"></td>
</tr>
</table>
<input type="submit" name="Submit" value="Submit">
</body>
</html>

OUTPUT

38
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

rec_insert.asp

<%
Dim conn, objRS, Sql
Set conn = server.createobject("ADODB.connection") conn.Mode = 3
conn.connectionString = "DSN=student" conn.open
Set objRS = Server.CreateObject("ADODB.Recordset") objRS.open
"Student",conn,,3,adCmdTable

objRS.AddNew
objRS("Enrollment_No") = Request("enrl") objRS("Student_Name") =
Request("sname") objRS("Contact_No") = Request("cno")
objRS("Semester") = Request("sem") objRS.Update

<%
%>
<p>
response.write "record inserted"
%>
</p>
<% objRS.Close
Set objRS = Nothing conn.Close
Set CONN = Nothing

%>

39
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 19

Write a script which update the record into the database

<% enr= 5 %>


<% nm= "Smith" %>

<%
Dim cn Dim rs Dim sql

Set cn= Server.CreateObject("ADODB.Connection") Set rs=


Server.CreateObject("ADODB.Recordset")

cn.connectionstring = "DSN=student" cn.open


sql = "SELECT * FROM Student WHERE(Enrollment_No=" & enr & ")" rs.Open
sql,cn, 1, 3

rs.Fields("Student_Name") = nm rs.Update
response.write "Record Updated" rs.Close
Set rs = Nothing cn.Close
Set cn = Nothing
%>

40
DDE BCA 3rd year lab: Web Designing Reference Number:19233015

PRACTICAL 20

Write a script which deletes the record from the database

<% enr= 4 %>

<%
Dim cn Dim rs Dim sql

Set cn= Server.CreateObject("ADODB.Connection") Set rs=


Server.CreateObject("ADODB.Recordset")

cn.connectionstring "DSN=student" cn.open


sql= "DELETE FROM Student WHERE (Enrollment_No = " & enr & ")" rs.Open
sql, cn
response.write "Record Deleted"
cn.Close
Set cn = Nothing
%>

41

You might also like