LAPORAN PRAKTIKUM
PEMOGRAMAN WEB
MODUL 8
Nama : Alfi Nur Rohmat
NIM : L200120074
Kelas : D
JURUSAN TEKNIK INFORMATIKA
FAKULTAS KOMUNIKASI DAN INFORMATIKA
UNIVERSITAS MUHAMMADIYAH SURAKARTA
2014
A.
TUJUAN
Mengetahui
dan memahami dasar-dasar dalam pemrograman web server
menggunakan bahasa ASP (Active Server Pages).
B. PERCOBAAN
Setting IIS pada PC
1. Masuk pada Contol
panel
2. Pilih administrativ
tools
3. Pilih Component Services
4. Klik services
(lokal)
5. Matikan Apache2.2
6. Kembali lagi ke administrativ tools
7. Pilih IIS
8. Pada default
website klik kanan
9. Klik new
10. Setting dan arahkan ke
folder yg kita buat
Percobaan 1
(Variable)
1.
Buka aplikasi notepad
2.
Ketikan script berikut
<html>
<body>
<%
dim nama
nama="Dwi"
response.write("My name is: " & nama)
%>
</body>
</html>
3.
Simpan dengan nama variable.asp
4.
Buka file dengan browser
5.
Hasil percobaan
Percobaan 2
(Array)
1.
Buka aplikasi notepad
2.
Ketikan script berikut
<html>
<body>
<%
Dim famname(5),i
famname(0) = "Eko"
famname(1) = "Siti"
famname(2) = "Anto"
famname(3) = "Paijo"
famname(4) = "Ana"
famname(5) =
"Suparman"
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.
Hasil percobaan
Percobaan 3
(Loop)
1.
Buka aplikasi notepad
2.
Ketikan script berikut
<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.
Hasil percobaan
Percobaan 4
(Date)
1.
Buka aplikasi notepad
2.
Ketikan script berikut
<html>
<body>
Tanggal sekarang adalah : <%response.write(date())%>.
<br />
Waktu di server lokal adalah :
<%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))
%>
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.
Hasil percobaan
Percobaan 5 (Form)
1.
Buka aplikasi notepad
2.
Ketikan script berikut
<html>
<body>
<form action="form.asp" method="get">
Nama kamu : <input type="text" name="fname"
size="20"
/><br />
Pilih Mobil favorite 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></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
If cars<>"" then
Response.Write("<p>Mobil favorite kamu adalah: " &cars
& "</p>")
end if
%>
</body>
</html>
3.
Simpan dengan nama form.asp
4.
Buka file dengan browser
5.
Hasil percobaan
Percobaan 6 (Cookies)
1.
Buka aplikasi notepad
2.
Ketikan 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 pertama 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.
Hasil percobaan
C.
TUGAS
Buatlah sebuah program penjumlahan menggunakan bahasa ASP
menggunakan fungsi variable seperti gambar di modul. Tuliskan scriptnya dan
lampirkan hasil print screen di browser.
<form method="post" action="tugas.asp">
Angka A: <input type=text name="angka1"
value=""><br>
Angka B: <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.QueryString("angka1")
dim angka2
angka2=Request.QueryString("angka2")
if angka1<>"" then
Response.Write("<p>Mobil favorit kamu adalah: " &
angka1 & "</p>")
End if
if angka2<>"" then
Response.Write("<p>Mobil favorit kamu adalah: " &
angka2 & "</p>")
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>
