Thursday, February 24, 2011

Asp

PROGRAM NO:01

A PERSONAL WEB PAGE

<html>
<head>
<title>PERSONAL WEB PAGE </title>
</head>
<body>
<font color="green">
<%
response.write("<CENTER>"&"PERSONAL WEB PAGE"&"<br><br>"&"</
CENTER>")
response.write("Name:K.Sankar "&"<br><br>")
response.write("Roll No: 08IT39"&"<br><br>")
response.write("Department: Information Technology"&"<br><br>")
response.write("Year: 2008-2011"&"<br><br>")
response.write("College: Rathinam College"&"<br><br>")
response.write("Phone No: 8122517348")
%>
</font>
</body>
</html>

------------------------------------------------------------------------------------

PROGRAM NO:02

DATA ENTRY FORM

<html>
<body>
<form action="prog2.asp" method="get">
Name : <input type="text" name="fname">

<p>Roll No : <input type="text" name="rno">

<p>Gender :
<input type="radio" name="gender"
<% if gender="male" then response.Write("checked")%>
value="Male">Male</input>
<input type="radio" name="gender"
<% if gender="female" then response.Write("checked")%>
value="Female">Female</input>

<p>Date of Birth : Day:<select name="drop">
<option value="set">select</option>
<option value="one">1</option>
<option value="two">2</option>
<option value="three">3</option>
<option value="four">4</option>
<option value="five">5</option>
<option value="six">6</option>
<option value="seven">7</option>
<option value="eight">8</option>
<option value="nine">9</option>
<option value="ten">10</option>
<option value="eleven">11</option>
<option value="twelve">12</option>

<option value="thirteen">13</option>
<option value="fourteen">14</option>
<option value="fifteen">15</option>
<option value="sixteen">16</option>
<option value="seventeen">17</option>
<option value="eighteen">18</option>
<option value="ninteen">19</option>
<option value="twenty">20</option>
<option value="twenty one">21</option>
<option value="twenty two">22</option>
<option value="twenty three">23</option>
<option value="twenty four">24</option>
<option value="twenty five">25</option>
<option value="twenty six">26</option>
<option value="twenty seven">27</option>
<option value="twenty eight">28</option>
<option value="twenty nine">29</option>
<option value="thirty">30</option>
<option value="thirty one">31</option></select>

Month : <select name="drop">
<option value="set">select</option>
<option value="jan">Jan</option>
<option value="feb">Feb</option>
<option value="mar">Mar</option>
<option value="april">April</option>
<option value="may">May</option>
<option value="june">June</option>
<option value="july">July</option>
<option value="aug">Aug</option>
<option value="sep">Sep</option>
<option value="oct">Oct</option>
<option value="nov">Nov</option>
<option value="dec">Dec</option></select>

Year : <input type="text" name="year">

<p>Department : <input type="text" name="dept" >

<p> <input type="submit" value="Submit">
</form>

<%

dim fname
fname=Request.QueryString("fname")
if fname<>""then
response.Write("Hello "&fname& "!!!!!!!!<br>")
response.Write("Your name is registered. ")
response.Write("ThankYou")
end if

%>
</body>
</html>

----------------------------------------------------------------------------------------------

PROGRAM NO:03

VALIDATE FORM

<html>
<body>
<form action="prog3.asp" method="get">
<p>Enter your name:
<input name="uname" type="text" >

<p>Enter the date:
<input name="btdate" type="text" >

<p>
<input type="submit" value="submit">
</form>

<%

dim uname
dim btdate

uname = Request.QueryString("uname")
if uname="" then
Response.Write("Field cannot be empty")
end if

btdate=Request.QueryString("btdate")
if not isdate(btdate) then
Response.Write("Enter in dd/mm/yyyy format")
end if

%>
</body>
</html>

---------------------------------------------------------------------------------


PROGRAM NO:04

DISPLAY SESSION PROPERTIES


<html>
<body>

<% 
          response.write("<CENTER>"&"SESSION PROPERTIES"&"<br><br>"&"</CENTER>")
         
          response.write("<p>")
          response.write("Session ID:" & Session.SessionID)
          response.write("</p>")

          response.Write("<p>")
          response.Write("Session Codepage is : "& Session.codepage)
          response.Write("</p>")
         
          response.write("<p>")
          response.write("Default Timeout is: " & Session.Timeout & " minutes.")
          response.write("</p>")

          Session.Timeout=30

          response.write("<p>")
          response.write("Timeout is now: " & Session.Timeout & " minutes.")
          response.write("</p>")
%>

</body>
</html>

---------------------------------------------------------------------------------
PROGRAM NO:05

AD ROTATOR COMPONENT

<%
          if Session("ad")=6 then
             Session("ad")=1
          else
             Session("ad")=Session("ad")+1
          end if
%>

<% select case session("ad") %>

<% case 1 %>
<a href="uniprg2.asp"><img src="\\server1\07it06\images\nike.gif" ></a>

<% case 2 %>
<a href="uniprg3.asp"><img src="\\server1\07it06\images\sport2.jpg" ></a>

<% case 3 %>
<a href="uniprg4.asp"><img src="\\server1\07it06\images\Intel Wallpaper.jpg" ></a>

<% case 4 %>
<a href="uniprg5.asp"><img src="\\server1\07it06\images\COCAVIRGIN.JPG" ></a>

<% case 5 %>
<a href="uniprg6.asp"><img src="\\server1\07it06\images\11.jpg" ></a>

<% case 6 %>
<a href="uniprg7.asp"><img src="\\server1\07it06\images\01.jpg" ></a>

<% End Select %>


Save as prog5.vbs


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

Sub Application_OnStart
End Sub
Sub Application_OnEnd
End Sub

Sub Session_OnStart
Session("ad")=0
End Sub
Sub Session_OnEnd
End Sub                                                                                                                                                     

</SCRIPT>

---------------------------------------------------------------------------------


PROGRAM NO:06

BROWSER CAPABILITY COMPONENT
<html>
<body>
<%
          Set MyBrow=Server.CreateObject("MSWC.BrowserType")
%>
<table border="1" width="65%">
          <tr>
                   <td>Client OS</td>
                   <td><%=MyBrow.platform%></td>
          </tr>
          <tr>
                   <td >Web Browser</td>
                   <td ><%=MyBrow.browser%></td>
          </tr>
          <tr>
                   <td>Browser version</td>
                   <td><%=MyBrow.version%></td>
          </tr>
          <tr>
                   <td>Frame support?</td>
                   <td><%=MyBrow.frames%></td>
          </tr>
          <tr>
                   <td>Table support?</td>
                   <td><%=MyBrow.tables%></td>
          </tr>
          <tr>
                   <td>Sound support?</td>
                   <td><%=MyBrow.backgroundsounds%></td>
          </tr>
          <tr>
                   <td>Cookies support?</td>
                   <td><%=MyBrow.cookies%></td>
          </tr>
          <tr>
                   <td>VBScript support?</td>
                   <td><%=MyBrow.vbscript%></td>
          </tr>
          <tr>
                   <td>JavaScript support?</td>
                   <td><%=MyBrow.javascript%></td>
          </tr>
</table>

</body>
</html>


------------------------------------------------------------------------------------


PROGRAM NO:07

CONTENT ROTATOR COMPONENT

<%
          if Session("ad")=6 then
             Session("ad")=1
          else
             Session("ad")=Session("ad")+1
          end if
%>

<% select case session("ad") %>

<% case 1 %>
<%response.write("First page")%>

<% case 2 %>
<%response.write("Second page")%>

<% case 3 %>
<%response.write("Third page")%>

<% case 4 %>
<%response.write("Fourth page")%>

<% case 5 %>
<%response.write("Fifth page")%>

<% case 6 %>
<%response.write("Sixth page")%>

<% End Select %>


Save as prog7.vbs


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

Sub Application_OnStart
End Sub
Sub Application_OnEnd
End Sub

Sub Session_OnStart
Session("ad")=0
End Sub
Sub Session_OnEnd
End Sub                                                                                                                                                      

</SCRIPT>

--------------------------------------------------------------------------------------
PROGRAM NO:08

PAGE COUNTER COMPONENT

<%
dim numvisits
response.cookies("NumVisits").Expires=date+365
numvisits=request.cookies("NumVisits")

if numvisits="" then
          response.cookies("NumVisits")=1
          response.write("Welcome! This is the first time you are visiting this web page.")
else
          response.cookies("NumVisits")=numvisits+1
          response.write("You have visited this")
          response.write("web page" &numvisits)
          if numvisits=1 then
                   response.write "time before!"
          else
                   response.write "times before!"
          end if
end if
%>
<html>
<body>
</body>
</html>

---------------------------------------------------------------------------------------


PROGRAM NO:09

GET THE DATA OF STUDENTS USING FORMS & STORES THEM IN DATABASE

Save as prog9.html

<html>
<head>
          <title>INSERT STUDENT INFORMATION</title>
</head>

<body>
<center>
          <h1>RATHINAM COLLEGE OF ARTS & SCIENCE</h1>
          <h2>INPUT STUDENT INFORMATION</h2>

<form method="post" action="prog9.asp">
<table border="1">
          <tr>
                   <td>Reg No
                   <td><input type="text" name="T1">
          </tr>
          <tr>
                   <td>Student Name
                   <td><input type="text" name="T2">
          </tr>
          <tr>
                   <td>Department
                   <td><input type="text" name="T3">
          </tr>
          <tr>
                   <td>Address
                   <td><input type="text" name="T4">
          </tr>
</table>
          <br>
          <input type="submit" name="submit" value="Submit">
          <input type="reset" name="reset" value="Reset">
</center>
</form>
</body>
</html>

 

Save as prog9.asp

<%

set con=server.createobject("ADODB.connection")
con.provider="Microsoft.jet.OLEDB.4.0"

con.open"C:\Inetpub\wwwroot\07it06\studentinfo.mdb"
sql="insert into studenttable values('"&request.form("T1")&"','"&request.form("T2")&"',
   '"&request.form("T3")&"','"&request.form("T4")&"')"

on error resume next
con.execute sql,recaffected

if err<>0 then
response.write("no update")
else
response.write("<h3>"&recaffected&"record added <h3>")
end if
con.close

%>

-------------------------------------------------------------------------------------------


PROGRAM NO:10

RECORD NAVIGATION USING A FORM

Save as prog10.asp

<% @language=vbscript %>
<%
          dim s
          set s=server.createobject("MSWC.nextlink")
          i=s.getlistindex("links.txt")
          n=s.getlistcount("links.txt")
%>
<center>
          <h1>WELCOME TO RECORD NAVIGATION PAGE</h1>
          <img src="\\server1\07it06\images\COCAVIRGIN.JPG" height=300 width=300>
</center>

<table border="0">
          <tr>
                   <td align=right>
                   <% if i<1 then %>
                   <a href="<%=s.getpreviousURL("links.txt")%>">First File</a>
                   <% end if %>
                   </td>

                   <td align=left>
                   <% if i<n then %>
                   <a href="<%=s.getnextURL("links.txt")%>">Next File</a>
                   <% end if %>
                   </td>
          </tr>
</table>


Save as links.txt

m1.asp
m2.asp

Save as m1.asp

This is the first file

Save as m2.asp

This is the next file



Posted by at No comments:
Subscribe to: Posts (Atom)