Senin, 01 Desember 2014

MODUL 8

TUJUAN
Mengetahui dan memahami dasar-dasar pemrograman web server menggunakan bahasa ASP (Active Server Page)

LANDASAN TEORI
ASP (Active Server Page) merupakan suatu sript yang bersifat server-side yang ditambahkan pada HTML untuk membuat sebuah web menjadi lebih menarik, dinamsis dan efektif.


ALAT DAN BAHAN
1. PC
2. Sistem Operasi Windows 7
3. Notepad++
4. Web Browser IIS

Percobaan 1 (Variable)
1. buka notepad
2. kemudia ketikan kode sebagai berikut


<%@ Page Language="C#"%>
<html>
<head>
<title>ASP.NET Test Page</title>
</head>
<body>
<%
for(int fontSize = 1; fontSize < 7; fontSize++)
{
Response.Write("<p style=\"font-size: " + (fontSize * 10) + "pt; text-align: center;\">It Works!</p>");
}
%>
</body>
</html>


3. simpan file dengan nama Variable.asp
4. Buka file dengan browser
5. Hasil


Percobaan 2 (Array)
1. buka notepad
2. kemudia ketikan kode sebagai berikut


<HTML>
<body>
<% 
dim.famnam(5),i
famname(0)= "Eko"
famname(1)= "Siti"
famname(2)= "Anto"
famname(3)= "Paijo"
famname(4)= "Ana"
famname(4)= "Suparman"
for i = 0 to 5
response.write (fname(i) & "<br>")
Next
%>


3. simpan file dengan nama array.asp
4. Buka file dengan browser
5. Hasil


Percobaan 3 (Loop)
1. buka notepad
2. kemudia ketikan kode sebagai berikut


<HTML>
<body>
<% 
dim i
for i = 1 to 6
response.write ("<h" & i & ">Heading " & i & "<h" & i & ">")
Next
%>

</body></html>


3. simpan file dengan nama loop.asp
4. Buka file dengan browser
5. Hasil


Percobaan 4 (Fungsi tanggal dan waktu)
1. buka notepad
2. kemudia ketikan kode sebagai berikut


<HTML>
<body>
Tanggal sekarang adalah : <% response.write(date()) %>
<br>
Waktu di server lokal adalah :
<% response.write(time()) %>
Contoh format tanggal dan waktu :
<% 
response.write(FormatDateTime(date()), vbgeneraldate))
response.write("<br>")
response.write(FormatDateTime(date()), vblongdate))
response.write("<br>")
response.write(FormatDateTime(date()), vbshortdate))
response.write("<br>")
response.write(FormatDateTime(now()), vblongtime))
response.write("<br>")
response.write(FormatDateTime(now()), vbshorttime))
%>
Hari ini 
<% response.write(WeekdayName(weekday(date())) %>
<br>
dan bulan ini
<% response.write (MonthName (month(date))) %>
</body></html>


3. simpan file dengan nama date.asp
4. Buka file dengan browser
5. Hasil


Percobaan 5 (Form)
1. buka notepad
2. kemudia ketikan kode sebagai berikut


<html>
<body>
<form action="form.asp" method="get">
Nama kamu: <input type="text" name="fname" size="20" /><br>
Pilih Mobil Favorit Kamu :<br>
<input type="radio" name="cars"
<% if cars="BMW" then Response.Write ("checked") %>
value="BMW">BMW</input><br>
<input type="radio" name="cars"
<% if cars="Kijang" then Response.Write ("checked") %>
 value="Kijang">Kijang</input><br>
<input type="radio" name="cars"
<% if cars="Timor" then Response.Write ("checked") %>
 value="Timor">Timor</input><br/>
<input type="submit" value="Submit"/>
</form>
<%
dim fname
fname=Request.QueryString("fname")
dim cars
cars=Request.Form("cars")
if fname<>"" Then 
Response.Write ("Hallo " & fname &"!<br/>")
Response.Write ("Bagaimana kabar kamu?")
end 
if cars<>"" then Response.Write 
("<p> Mobil Favorit Kamu Adalah:" & cars & "</p>")
end if
%>
</body>
</html>


3. simpan file dengan nama Form.asp
4. Buka file dengan browser
5. Hasil


Percobaan 6 (Cookies)
1. buka notepad
2. kemudia ketikan kode sebagai berikut


<!Doctype html><body><%
dim numvisits
response.cookies("NumVisits").Expires=date+365
NumVisits=request.cookies("NumVisits")

if nuvisits="" then
response.cookies("NumVisits")=1
response.write("Selamat Datang! Ini adalah pertama kali 
kamu mengunjungi halaman ini.")
else
response.cookie("NumVisits")=numvisits+1
response.write("Kamu sudah mengunjungi")
response.write("Halaman ini " & NumVisits)
if NumVisits=1 then
response.write "Kali sebelumnya!"
else
response.write "Kali sebelumnya!"
end if
end if
%>
</body></html>


3. simpan file dengan nama Cookies.asp
4. Buka file dengan browser
5. Hasil


Tidak ada komentar:

Posting Komentar