MODUL 8
ASP
(Active Server Pages)
A. TUJUAN
Memahami dan mengetahui dasar-dasar pemrograman
web server menggunakan bahasa ASP (Active Server Pages).
B. LANDASAN
TEORI
Active Server Pages merupakan suatu script yanng bersifat server-side yang ditambahkan pada HTML untuk membuatsebuah web menjadi lebih menarik, dinamis dan efektif. Microsoft merupakan perusahaan software yang menciptakan teknologi ASP. ASP bukanlah sebuah bahasa pemrograman karena masih menggunakan istruksi-instruksi yang ada pada script lain yaitu VBScript dan Jscript.
Active Server Pages atau ASP merupakan suatu script yang bersifat server-side yang ditambahkan pada HTLM untuk membuat sebuah web menjadi lebih menarik, dinamis dan efektif. Dengan ASP kita dapat mengolah data konsumen yang diambil dengan sebuah form, membuat aplikasi-aplikasi tertentu dalam sebuah web, dan database dalam sebuah web.Microsoft merupakan perusahaan software yang menciptakan teknologi ASP ini. ASP bukanlah sebuah bahasa pemrograman karena masih menggunakan intruksi-intruksi yang ada pada script lain yaitu VBScript dan Jscript. VBScript dan Jscript merupakan bahasa script stpenggunar yang digunakan ASP. Karena itu tidak heran jika kemudian ASP menjadi script pemrogramman yang populer dan laku di pasaran.
Contoh Script ASP
<html>
<title> Contoh Penggunaan
Delimeters</title>
<body>
<center>
<h1> Selamat Datang</h1>
<hr>
Halaman ini diupload pada jam <% = time %>
<p>
<%
Response.write”Script yang diapit yang
dijalankan server”
%>
</body>
</html>
Sejarah
ASP diperkenalkan ke dunia oleh Microsoft pada tanggal 16 Juni 1996 dan di beri nama kode Denali. Beta version dirilis pada bulan November 1996, dan akhirnya ASP Version 1.0 secara resmi dipasarkan ke publik pada tanggal 12 Desember 1996.
Microsoft terus mengembangkan ASP. Pada tahun 1998, Microsoft telah mengeluarkan software web server yang terbaru, Internet Information Server 4.0 (IIS 4.0) yang berjalan pada windows NT 4.0 dan Personal Web Server (PWS 4.0) yang berjalan pada windows 1998. Software web server yang baru ini dapat support ASP Version 2.0.Dengan dirilisnya Windows 2000, maka Microsoft meluncurkan Internet Information Server 5.0 (IIS 5.0) dan versi terbaru ASP Version 3.0. IIS 5.0 sebenarnya lebih berintegrasi dengan Windows 2000 dalam satu paket sistem informasi.
ASP semakin dikenal luas tepatnya sejak maret 1997. ASP semakin populer karena mudah untuk dipelajari. Tentunya masih banyak web programming language yang lainnya seperti PHP, Cold Fusion, Java Sevlet, dll yang tidak kalah populernya ASP.
C. ALAT DAN
BAHAN
1.
Laptop
2.
Sistem operasi Windows 7
3.
Notepad
4.
Web Browser IIS
D. LANGKAH-LANGKAH
PRAKTIKUM
Percobaan 1
1.
Buka aplikasi Notepad
2.
Ketik script berikut
<html>
<body>
<%
dim nama
nama="Graficha"
response.write("My Name Is "& nama)
%>
</body>
</html>
<body>
<%
dim nama
nama="Graficha"
response.write("My Name Is "& nama)
%>
</body>
</html>
3.
Simpan dengan nama variable.asp
4.
Buka file dengan browser
5.
Printscreen hasilnya
Percobaan 2
1.
Buka aplikasi Notepad
2.
Ketik script berikut
<html.
<body>
<%
dim famname(5),i
famname (0) = "Dhia"
famname (1) = "Ninda"
famname (2) = "Ficha"
famname (3) = "Tika"
famname (4) = "Tya"
famname (5) = "Rima"
for i = 0 to 5
response.write(famname(i) & "<br/>")
next
%>
</body>
</html>
<body>
<%
dim famname(5),i
famname (0) = "Dhia"
famname (1) = "Ninda"
famname (2) = "Ficha"
famname (3) = "Tika"
famname (4) = "Tya"
famname (5) = "Rima"
for i = 0 to 5
response.write(famname(i) & "<br/>")
next
%>
</body>
</html>
3.
Simpan dengan nama array.asp
4.
Buka file dengan browser
5.
Amati hasilnya
6.
Printscreen hasilnya
Percobaan 3
1.
Buka aplikasi Notepad
2.
Ketik script berikut
<html>
<body>
<%
dim i
for i=1 to 6
response.write("<h" & i & ">Heading" & i & " </h" & i & ">")
next
%>
</body>
</html>
<body>
<%
dim i
for i=1 to 6
response.write("<h" & i & ">Heading" & i & " </h" & i & ">")
next
%>
</body>
</html>
3.
Simpan dengan nama loop.asp
4.
Buka file dengan browser
5.
Amati hasilnya
6.
Printscreen hasilnya
Percobaan 4
1.
Buka aplikasi Notepad
2.
Ketik script berikut
<html>
<body>
Sekarang Tanggal :
<%response.write(date())%>
<br />
Waktu di server lokal :
<%response.write(time())%>
<br />
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))
%>
<br />
Hari ini
<%response.write(WeekdayName(weekday(date)))%>,
<br/>
dan bulan ini
<%response.write(MonthName(month(date)))%>
</body>
</html>
<body>
Sekarang Tanggal :
<%response.write(date())%>
<br />
Waktu di server lokal :
<%response.write(time())%>
<br />
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))
%>
<br />
Hari ini
<%response.write(WeekdayName(weekday(date)))%>,
<br/>
dan bulan ini
<%response.write(MonthName(month(date)))%>
</body>
</html>
3.
Simpan dengan nama date.asp
4.
Buka file dengan browser
5.
Amati hasilnya
6.
Printscreen hasilnya
Percobaan 5
1.
Buka aplikasi Notepad
2.
Ketik script 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.QueryString("cars")
if fname<>"" Then
Response.Write("Hallo " & fname & "!<br/>")
Response.Write("Bagaimana Kabar Kamu?")
End if
if cars<>"" Then
Response.Write("<p> Mobil Favorit Kamu adalah " & cars & "</p>")
End if
%>
</body>
</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.QueryString("cars")
if fname<>"" Then
Response.Write("Hallo " & fname & "!<br/>")
Response.Write("Bagaimana Kabar Kamu?")
End if
if cars<>"" Then
Response.Write("<p> Mobil Favorit Kamu adalah " & cars & "</p>")
End if
%>
</body>
</html>
3.
Simpan dengan nama form.asp
4.
Buka file dengan browser
5.
Amati hasilnya
6.
Printscreen hasilnya
Percobaan 6
1.
Buka aplikasi Notepad
2.
Ketik script berikut
<%
dim numvisits
response.cookies ("NumVisits").Expires=date+365
numvisits=request.cookies("NumVisits")
if numvisits="" Then
response.cookies("NumVisits")=1
response.write("Selamat datang! Ini adalah petama kali kamu mengunjungi halaman ini.")
else
response.cookies("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
%>
<html>
<body>
</body>
</html>
dim numvisits
response.cookies ("NumVisits").Expires=date+365
numvisits=request.cookies("NumVisits")
if numvisits="" Then
response.cookies("NumVisits")=1
response.write("Selamat datang! Ini adalah petama kali kamu mengunjungi halaman ini.")
else
response.cookies("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
%>
<html>
<body>
</body>
</html>
3.
Simpan dengan nama cookies.asp
4.
Buka file dengan browser
5.
Amati hasilnya
6.
Reload halaman web tersebut beberapa kali dan
amati yang terjadi
7.
Printscreen hasilnya
E.
TUGAS
Buatlah sebuah program penjumlahan menggunakan
bahasa ASP menggunakan veriable. Tulis scriptnya dan lampirkan hasil
printscreennya.
<form method="post" action="tugas8.asp">
Nilai A adalah: <input type=text name="angka1" value=""><br /><br />
Nilai B adalah: <input type=text name="angka2" value=""><br />
<input type=submit value='Jumlahkan'>
<input type=hidden name="action" value="jumlahkan">
</form>
<%
action = lcase(request("action"))
select case action
case "jumlahkan"
dim angka1
angka1=Request.form("angka1")
dim angka2
angka2=Request.form("angka2")
if angka1<>"" Then
Response.Write("Nilai A adalah : " & angka1 & "<br />")
End if
if angka2<>"" Then
Response.Write("Nilai B adalah : " & angka2 & "<br />")
End if
jumlah = cint(request("angka1")) + cint(request("angka2"))
response.write "Jadi Nilai A ditambah Nilai B adalah: " &jumlah
end select
%>
<html>
<body>
</body>
</html>
Nilai A adalah: <input type=text name="angka1" value=""><br /><br />
Nilai B adalah: <input type=text name="angka2" value=""><br />
<input type=submit value='Jumlahkan'>
<input type=hidden name="action" value="jumlahkan">
</form>
<%
action = lcase(request("action"))
select case action
case "jumlahkan"
dim angka1
angka1=Request.form("angka1")
dim angka2
angka2=Request.form("angka2")
if angka1<>"" Then
Response.Write("Nilai A adalah : " & angka1 & "<br />")
End if
if angka2<>"" Then
Response.Write("Nilai B adalah : " & angka2 & "<br />")
End if
jumlah = cint(request("angka1")) + cint(request("angka2"))
response.write "Jadi Nilai A ditambah Nilai B adalah: " &jumlah
end select
%>
<html>
<body>
</body>
</html>
0 comments:
Posting Komentar