program web

1 >> Dasar Pemrograman Web
:: Pendahuluan

Pastilah kita pernah mengunjungi suatu situs yang sangat berkesan, misalnya dari sisi
layout dan desainnya atau dari sisi interaktifnya, seperti bhinneka.com, amazon.com,
ebay.com, dan lain-lain. Pastilah kita pernah mengisikan sesuatu pada sebuah situs
baik itu sebuah buku tamu, polling, email dan lain-lain. Lalu kita juga dapat melihat
pada halaman tersebut seperti tanggal saat ini, jam, dan jumlah pengunjung yang telah
melihat situs tersebut.
Sebelum kita meranjak ke materi lainnya, ada baiknya kita mengeri dahulu cara kerja
Internet dalam hal ini konsep client server dan peer to peer. Kita tidak usah
membicarakan bagaimana data berjalan dan sampai ketujuan dengan melewati
berbagai perangkat-perangkat jaringan computer karena tidak akan habis dibahas
dalam satu bab.
Konsep client server adalah koneksi dan komunikasi yang dilakukan dua computer
dimana satu sisi bertindak sebagai klien dan sisi lain sebagai server, server hanya
melayani permitaan klien dank lien mengirimkan atau meminta suatu prose pada
server. Sedangkan peer to peer adalah konsep teknologi dimana antara kedua sisi
tersebut menjadi kabur, satu sisi computer tersebut bisa berupa client dengan
meminta suatu layanan ke server dan sisi lain computer tersebut bisa berupa server
dengan menerima proses permintaan dari client.

Web Programming With ASP
1

Web Programming With ASP
2
Web dibuat dengan suatu bahasa pengkodean HTML, agar dapat interaktif maka
seorang web development membuat suatu pemrograman agar dapat interaksi antara
pengunjung dan situs tersebut, ada banyak bahasa yang dapat digunakan seperti ASP,
PHP, Javascript, dan lain-lain.
Contohnya pada saat kita masuk ke situs tertentu, terdapat hit counter, jam, dan
bukutamu, dan halaman polling. Lalu pertanyaan dasar gimana kita membuat ini,
apakah bisa diwujudkan dengan hanya menggunakan HTML, atau butuh suatu script lain
untuk mewujudkannya. Jawabannya dengan kode HTML ini bisa diwujudkan dengan
sangat sederhana dan terbatas kemampuannya.

:: Sekilas cara kerja Web
Pada saat kita mengetikkan sesuatu alamat pada browser maka data akan dilewatkan
oleh suatu protocol HTTP melewati port 80 pada server. Alamat ini adalah URL dari
suatu situs yang mempunyai alamat yang unik di Internet. Web Browser akan
mengirimkan suatu aturan yang telah disepakati sebelumnyua, aturan ini biasa disebut
sebagai protocol, stadar protocol menggunakan TCP/IP, proses ini dimulaid dengan
melakukan 3 way handshakes antara sumber dan tujuan.
Web browser, suatu aplikasi pada client yang akan menampilkan halaman web sites
dari internet. Web browser di install di sisi user (OS) menampilkan informasi ke
komputer dengan interpreting bahasa pengkodean HTML, dimana homepage berisi
gambar, suara, multimedia, dan resources lainnya yang dapat diakases.
Files Coding pada HTML memberikan datanya ke browser apa yang akan ditampilkan ke
sisi client. Isi HTML yang akan ditampilkan bukan dari browsernya tetapi dari web
servernya dan Browser akan menginterpret tag HTML untuk link ke halaman berikutnya

Misalnya pada browser kita memasukan alamat www.deris.co.tv maka yang akan
terjadi adalah permintaan client akan diteruskan ke sebuah webserver yang mempunyai
alamat tertentu misalnya 202.159.31.150, agar mudah untuk diingat maka penulisan
menggunakan layanan DNS, dimana DNS untuk merubah alamat IP tadi ke suatu kata
yang mudah untuk diingat misalnya deris.co.tv.

Web Programming With ASP
3
:: Web Programming ASP
ASP diperkenalkan ke dunia pertama kali oleh Microsoft pada tanggal 16 Juli 1996, dan
diberi 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.
Kita dapat menggunakan program notepad untuk menuliskan kode-kodenya dan nanti
akan dieksekusi oleh browser, namun saat ini ada banyak program untuk editor web
seperti dreamweaver yang sangat disukai penulis karena perfomanya. Agar supaya ASP
dapat dijalankan dikomputer local maka dibutuhkan suatu webserver localhost seperti
IIS (internet information server) atau PWS (Personal web server) yang ada pada cd
Windowsnya.
Seperti telah disinggung diawal bahwa pemrograman ASP akan kita ‘sisipkan’ pada kode
HTML biasa. ASP merupakan penerjemah VBScript dan Jscript pada web server, sampai
saat ini terdapat teknologi terayar Microsoft yaitu ASP.NET yang terintegrasi dalam
Microsoft.Net.
Bila VBScript kita gunakan untuk dieksekusi pada server, kita menamakannya ASP dan
jika dieksekusi pada klien (browser) maka kita namakan VBScript.

Contoh penulisan pertama ASP
Tag html
…
<%
Script ASP
%>
…
Tag html

Contoh penulisan VBScript
Tag html
…
<script language=VBScript)
Script VBScript
</script>
…
Tag html

Setelah kita menuliskan pada editor buatlah ekstension dengan *.asp, dan tempatkan
pada direktori yang telah kita konfigurasi di virtual direktori pada saat instalasi
webserver IIS atau PWS. Untuk kasus di LAB perhatikan penomeran IP pada masing-
masing meja computer.

Latihan 1.1 ASP.
<html>
<head>
<title> ASP Pertamaku</title>
</head>
<body>
<%
  Dim halos
  halos = "Hallo dieksekusi dari server"
  Response.Write(halos)
%>
<hr>
<script language=VBScript>
  Dim haloc
  haloc = "Hallo dieksekusi dari client"
  Document.Write(haloc)
</script>
</body>
</html>

Maka hasilnya di browser adalah ;

Gambar 1.1 tampilan script latihan 1.1

Web Programming With ASP
4
Namun cobalah perhatikan source code dari tampilan 1.1, untuk melihat source dari
browser client pilih View | View Source. Maka akan terlihat seperti dibawah ini ;

Gambar 1.2 tampilan view source dari browser

Latihan 1.2 ASP.
<html>
<head>
<title><percobaan dengan ASP></title>

</head>
<body>
<%
response.write
(
"Selamat Datang di ASP <br> STMIK MDP Palembang <br>
Jl. Rajawali"
)
%>
</body>
</html>

Dan hasilnya akan tampil seperti dibawah ini ;

Web Programming With ASP
5

Gambar 1.3. tampilan latihan 1.2.

Latihan 1.3.

<html>
<head>
<title>Tampilan Tanggal</title>
</head>
<body>
<font size = 7 face="arial">Menampilkan tanggal hari
ini</font><br>
<b>Hari ini Tanggal </b>: <%=Date %> <br>
<B>Tapi sekarang Tanggal</b> : <%=Now %> <br>
<B>Bulan sekarang </b> : <%= month(Now) %> <br>
<B>Tahun sekarang </b> : <%= year(Now) %> <br>
<B>Bulan terbilang </b> : <%= monthname(month(now)) %> <br>
<B>Bilangan tanggal </b> : <%= day(Now) %> <br>
<B>Jam hari ini </b> : <%= hour(Now) %> <br>
<B>Menit hari ini </b> : <%= minute(Now) %> <br>
<B>Detik hari ini </b> : <%= second(Now) %> <br>
</body>
</html>

Maka tampilan dari script diatas adalah ;

Web Programming With ASP
6

Gambar 1.4. Tampilan latihan 1.3

Web Programming With ASP
7

>> Dasar-Dasar ASP
2

:: Logika Pemrograman
Tipe data digunakan misalnya untuk menyimpan data dan umumnya kita menyimpan
data data sebagai variable, variable memiliki nama dan nilai. Nama variable
menentukan bagaimana variable itu akan dipanggil dan nilainya merupakan data yang
disimpan pada variable tersebut.
Seperti bahasa pemrograman konvensional lainnya, variable kita deklarasikan terlebih
dahulu agar nantinya dapat dieksekusi dan juga akan mempercepat waktu
pengeksekusian program.

>> Variabel
Untuk mendeklarasikan variable, kita menggunakan statemen DIM seperti dibawah ini;
Dim nama_variabel, contohnya :
Dim ilkom
Dim raihan
Setelah melakukan deklarasi barulah kita mengisikan sebuah nilai pada variable
tersebut. Untuk mengisinya kita gunakan operator penugasan (assignment operator)
seperti :
ilkom = 15
  raihan = “nasyedman”

Web Programming With ASP
8

Web Programming With ASP
9
dari variable diatas maka variable stmik akan menyimpan nilai numeric 15 dan variable
raihan akan menyimpan string “nasyedman”.

Ada beberapa petunjuk pemberian nama Variabel diantaranya, harus dimulai dengan
suatu karakter alpabetik, tidak dapat mengandung titik atau karrakter untuk deklarasi
tipe, harus unik dengan jangkauan yang samaa (lihat yang dibawah ini untuk catatan
tentang jangkauan, harus berupa 255 karakter atau kurang
Contoh dalam pendeklarasian suatu variable dalam sebuah program pendek looping ,
seperti

Latihan 2.1
<% dim HP
HP = “Samsung”
If HP = “Nokia” Then %>
HP kita sama donk……..
<% Else %>
HP kita lain ya
<% End If %>

Hasil : HP kita lain ya

Latihan 2.2
<html>
<head>
<title><percobaan dengan ASP></title>
</head>
<body>
<%
   Dim ilkom
   ilkom= "Selamat Datang di STMIK MDP"
   Response.write (mdp)
%>
<BR>
<%
   ilkom = "Kampus Inderalaya"
   Response.write (ilkom)
%>

</body>
</html>

Web Programming With ASP
10
>> String
Digunakan untuk menyimpan data berupa teks, karakter, maupun kumpulan karakter,
penulisannya diapit dengan tanda kutip (“), contohnya adalah ;

Latihan 2.3
<html>
<head>
<title>Fungsi STRING </title>
</head>
<body>
<script language="vbscript">

document.write "ASCII huruf besar = "
document.write asc ("Z")
document.write "<br>"
document.write "ASCII huruf kecil = "
document.write asc ("z")
document.write "<br>"

document.write "merubah dari besar ke kecil = "
document.write Lcase("ILKOM UNSRI")
document.write "<BR>"
document.write "merubah dari kecil kebesar = "
document.write UCase("FASILKOM UNSRI")
document.write "<BR>"

</script>
</body>
</html>

Maka hasil dari latihan 2.3 adalah;

Latihan 2.4

<html>
<head>
<title>Fungsi STRING </title>
</head>
<body>
<script language="vbscript">

data1= "bandung lautan artis"
document.write "menampilkan tiga dari kiri = "
document.write left(data1,3)
document.write "<br>"
document.write "menampilkan 4 dari kanan = "
document.write right (data1,4)
document.write "<br>"
document.write "menampilakn tengah = "
document.write mid (data1,2,3)
document.write "<br>"

document.write mid(data1,1,3)
document.write "<br>"
document.write mid(data1,19,2)
document.write "<BR>"

document.write "mengetahui jumlah karakter di data1 = "
document.write len(data1)
document.write "<br>"

</script>
</body>
</html>

Maka hasil dari latihan 2.4 adalah;

Web Programming With ASP
11

Web Programming With ASP
12
Latihan 2.5

<html>
<head>
<title>Fungsi STRING </title>
</head>
<body>
<script language="vbscript">

data2 = " Bandung Lautan Artis"
document.write "menghapus spasi di sebelah kiri = "
document.write LTrim(data2)
document.write "<br>"

data3 = "ILKOM UNSRI PALEMBANG"
document.write "menghapus spasi di sebelah kanan = "
document.write RTrim(data3)
document.write "<br>"

document.write "<br>"
string1 = "dERIS "
string2 = "Deriss"
document.write StrComp(string1, string2,1)
document.write "<br>"

</script>
</body>
</html>

Maka hasil dari latihan 2.5 adalah;

Latihan 2.6

<html>
<head>
<title>Fungsi STRING </title>
</head>
<body>
<script language="vbscript">

data = "x"
document.write "menampilkan tanda x = "
document.write string(95, data)
document.write "<br>"

document.write "<BR>"
document.write "membaca deris stiawan terbalik = "
data5 = "DERIS SETIAWAN"
document.write strreverse(data5)
document.write "<br>"

</script>
</body>
</html>

Maka hasil dari latihan 2.6 adalah;

Web Programming With ASP
13

Latihan 2.7

<html>
<head>
<title>Fungsi STRING </title>
</head>
<body>
<script language="vbscript">

document.write "<br>"
document.write "menampilkan currency = "
document.write formatcurrency(10000,2)

document.write "<br>"
document.write "menampilkan tanggal longdate = "
document.write formatdatetime("27/07/2004", vblongdate)
document.write "<br>"

document.write formatpercent(30/100,2)

</script>
</body>
</html>

Maka hasil dari latihan 2.7 adalah;

>> Function
Pada script VBScript ada beberapa fungsi standar yang telah ada, kita dapat memanggil
fungsi Tersebut dengan mendeklarasikan terlebih dahulu, contohnya ;

Latihan 2.8
<html>
<head>
<title>contoh function</title>
</head>
<body>
<%
   function Hari_Esok()
   Hari_ini = Date()
   Hari_Esok = Hari_ini + 1
   end Function

Web Programming With ASP
14

   response.write ("<H1> Panggil Fungsi </H1>")
   response.write ("Besok Tanggal : "& Hari_Esok ())
%>
</body>
</html>

Maka hasil dari latihan 2.8 adalah;

Latihan 2.9
<html>
<head>
<title>contoh function</title>
</head>
<body>
<%
   function tampil()
   data_A = 90
   data_B = 10
   tampil = data_A + data_B
   end Function

   function bagi()
   data_A = 90
   data_B = 10
   bagi = data_A / data_B
   end Function

Web Programming With ASP
15

   response.write ("<H1> HASIL </H1>")
   response.write ("Hasilnya adalah : "& tampil())
   response.write ("<br>")
   response.write ("<hr>")
   response.write ("Hasilnya bagi : "& bagi())

%>
</body>
</html>

Maka hasil tampilan dari latihan 2.9

>> Konstanta
Beberapa variable tidak dapat diubah nilainya selama program dieksekusi dan dapat
kita jadikan sebagai konstanta. Nilai konstanta tetap sampai program berakhir,
pendefinisian konstanta dilakukan bersama dengan pendeklarasian, contohnya ; Const
nama_konstanta = nilanya_konstanta, contohnya :
  Const pi =3.14
Konstanta sangat berguna dalam perhitungan-perhitungan dalam matematikan and
fisika. Konstanta juga memiliki batas definisi, jadi sebuah konstanta bisa pula memiliki
btas definisi yang local maupun global, cara melakukan pembatasan ini sama dengan
pada vaiabel, yaitu ;

Web Programming With ASP
16

Web Programming With ASP
17
Public Const pi = 3.14
Private Const nama = “deris”

Latihan 2.10
<html>
<head>
<title>konstanta</title>
</head>
<body>
<%
  Const pi = 3.14
  Const kata = “Nilai pi adalah = “
  Response.write(“<h1>” & kata & pi & “</h1>”)
%>
</body>
</html>

>> Operator
Operator digunakan untuk melakukan beberapa operasi terhadap data,dalam VBScript
dikenal beberapa operator yaitu ;

Operator Kegunaan
+ Penjumlahan
- Pengurangan
* Perkalian
/ Pembagian
^ Pemangkatan
\ Pembagian integer
= Membangdingkan apakah data disebelah
kirinya sama dengan data disebelah kanan
<> Membandingkan apakah data yang disebelah
kirinya tidak sama dengan data disebelah
kanan
> Membandingkan apakah data disebelah
kirinya lebih besar daripada data disebelah
kanan
>= Membandingkan apakah data disebelah
kirinya lebih besar atau sama dengan data
disebelah kanan

Contoh dalam penulisan ;
2+3 = 5
2^3 = 8
10/3 = 3.3333
10\3 = 3

>> Pernyataan Kondisi
Kondisi digunakan jika terdapat struktur program yang harus dipilih salah satu sebelum
menuju bagian berikutnya, ini sering kita dengar pada pemrograman lainnya seperti
If…then….Else dan Select…Case

Latihan 2.11
<html>
<head>
<title>if then</title>
</head>
<body>
<%

Function halo_nama(nama)
If nama = "Deris" Then
halo_nama = "Hallo" & nama
End if
end function
Response.write("<h1>Panggil Fungsi !</h1>")
Response.write(halo_nama("Deris"))

%>
</body>
</html>

Web Programming With ASP
18

Latihan 2.12
<html>
<head>
<title>If...Then...Else</title>
</head>
<body>
<%
Function halo_nama(nama)
If nama = "Deris" Then
   halo_nama = "Haloo " & nama
  ElseIf nama = "Stiawan" Then
   halo_nama = "Haloo " & nama & ", nama deris"
Else
   Halo_nama = "Maaf Anda tidak dikenal,siapanih"
End If
End Function

Response.write("<h1>Panggil fungsi !</h1>")
Response.write("<h1>Jika nama adalah Deris</h1>")
Response.write(halo_nama("Deris"))
Response.write("<h1>Jika nama adalah Stiawan</h1>")
Response.write(halo_nama("Stiawan"))
Response.write("<h1>Jika nama adalah Anonymous</h1>")
Response.write(halo_nama("anonymous"))
%>
</body>
</html>

Tampilan dari latihan 2.12

Web Programming With ASP
19

Web Programming With ASP
20
  Latihan 2.13

<html>
<head>
<title>contoh function</title>
</head>
<body>

<script language="vbscript">
document.write "<b>"
document.write "<center>"
document.write "proses pengulangan for..next"
document.write "<hr>"
document.write "</center>"

for angka = 1 to 100 step 2
  document.write angka
  document.write "<br>"
next

</script>
</body>
</html>

Latihan 2.14
<html>
<head>
<title>contoh function</title>
</head>

<body>
<script language="vbscript">
document.write "<b>"
document.write "<center>"
document.write "proses pengulangan for..next"
document.write "<hr>"
document.write "</center>"

dim x(10)
a=0
do
x(A) = 10 * a
a = a + 1
  document.write " nomor index ke :" & a
  document.write "<br>"
loop until a = 10000

</script>
</body>
</html>
Maka tampilan dari latihan 2.14 ;

Latihan 2.15
html>
<head>
<title>contoh function</title>
</head>

<body>
<%
  Function hai_nama(nama)
  select case UCASE(nama)
  case "STMIK MDP"
   hai_nama = "halloo....." & nama & ", bapak FASILKOM
UNSRI"
  case "ILKOM UNSRI"
   hai_nama = "halloo......." & nama & ", ibu ILKOM
UNSRI"
  case else
   hai_nama = "Maaf , anda tidak dikenal"
  end select
  end function

  response.write ("<H1> Jika Nama Adalah FASILKOM UNSRI
</H1>")
  response.write (hai_nama ("ilkom unsri"))

Web Programming With ASP
21

Web Programming With ASP
22
  response.write ("<H1> Jika Nama Adalah ILKOM UNSRI
</H1>")
  response.write (hai_nama ("ilkom unsri"))
  response.write ("<H1> Jika Nama Adalah anonymous </H1>")
  response.write (hai_nama ("anonymous"))
%>

</body>
</html>

Tampilan dari latihan 2.15 ;

>> Penyimpanan Informasi
3

:: Object Built In
Seperti yang telah disinggung sebelumnya bahwa dalam VBScript terdapat objek-objek
yang dapat digunakan untuk membuat program (object built in),objek-objek tersebut
dapat digunakan untuk mengumpulkan data permintaan browser, menyimpan informasi
browser, dan lain-lain masih banyak lagi, ada beberapa object built in yang akan kita
bahas dalam bagian ini, diataranya;

>> Input Output
Pastilah kita pernah mengunjungi situs tertentu dan melihat beberapa kotak dialog
seperti input nilai, inputkan nama, dan lain-lain seperti di VB. Mekanisme ini digunakan
untuk berkomunikasi dengan pengujung dengan menggunakan MsgBox dan InputBox,
MsgBox digunakan untuk menampilkan sejumlah pesan kepada pengunjung sedangkan
Input Box digunakan untuk memperoleh masukan dari pengunjung

Web Programming With ASP
23

Gambar 3.1

Gambar 3.2. tampilan inputbox
Untuk membuat MsgBox seperti gambar 3.1 dapat kita coba latihan dibawah ini ;
Latihan 3.1
<html>
<head>
<title>Contoh Message</title>

</head>

<body>
<script language="vbscript">
msgbox "SELAMAT DATANG DI ASP" + CHR(13) + "THE POWER
MICROSOFT",vbcritical,"informasi"
msgbox "SAMA-SAMA",0,"informasi"
</script>

</body>
</html>

Cara penulisan dalam membuat MsgBox adalah ;
  MsgBox(Prompt[,buttons][,title][,helpfile, contex_id]) atau bisa juga
MsgBox “[pesan]”, kode icon + kode tombol,”[judulnya]”

Web Programming With ASP
24

Web Programming With ASP
25
Yaitu;
Prompt : teks yang akan ditampilkan pada bagian body dari message
Buttons : mengatur tampilan tombol,icon dan modilariti MsgBox
Title : judul yang akan ditampilkan pada MsgBox
Helpfile : nama dari file help yang akan dibuka bila pengguna menekan tombol F1
Context_id : identitas yang berhubungan dengan file help yang telah dispesifikasikan.
Sedangkan untuk membuat tampilan seperti gambar 3.2 dapat kita perhatikan script
dibawah ini, pada latihan 3.2 ;

<html>
<head>
<title>Contoh Message Input Data</title>
</head>

<body>
<script language="vbscript">
nama = inputbox("Your Name","identity")
address = inputbox("Your Address","identity")
msgbox "Your Name = "+ nama + chr (13) + " Your address ="
+ address,vbinformation,"Informations"

</script>
</body>
</html>

Cara penulisan input box adalah ;
  Nama variable = inputbox “[pesan]”,”[judul]”

>> Objek Form
Sebelum kita membicarakan objek pada form, ada beberapa control HTML yang
nantinya akan kita gunakan untuk membangun aplikasi dengan ASP. Penggunaan pada
tag ini dimulai dengan <input> dan dikuti dengan tag yang akan kita masukan pada
sebuah form.
Ada beberapa control form pada HTML, diantaranya adalah ;

Text boxes : <input>

Text areas : <textarea>

Radio Buttons : <input> dengan type set radio

Check Boxes : <input> dengan type set checkbox

List Boxes : <select>

Submit buttons : <input> dengan type set submit
Normal buttons : <input> dengan type set button

Reset buttons : <input> dengan type set reset

Web Programming With ASP
26

Web Programming With ASP
27
Objek form digunakan untuk berkomunikasi dengan form pada dokumen HTML. Objek
ini memiliki suatu metode submit, yang berfungsi untuk mengirimkan form, eventnya
yaitu onSubmit. Ada beberapa property dari objek form, yaitu ;

Property Keterangan
Action Halaman tujuan dari form
Method Metode request dari form
Encoding Encoding Form

Dalam sebuah form banyak memiliki elemen-elemen input, agar para pengunjung dapat
berkomunikasi dengan elemen ini kita harus membuatkan beberapa property-properti,
metode dan event, seperti dibawah ini ;

Elemen Property Metode Event
Button, reset,
submit
Form,name,value Click Onclick
Checkbox Form,name,
checked, default
checked
Click Onclick
Radio Form,name, value,
checked
Click, focus Onclick
Password Form,name, value,
default value
Focus, blur,select -
Text,textarea Form,name, value,
default value
Focus, blur,select Onfocus, onblur
Onchange,onselect
Select Name, length,
option,selectedIndex
Focus, blur Onfocus, onblur
Onchange
Hidden Name, value - -

Latihan 3.3

<Html>
<Head>
<Title>Daftar Mahasiswa</Title>
</Head>

<Body>
<Center>
<H1>
Daftar Mahasiswa<Br>
Diploma Komputer UNSRI<Br>Inderalaya

</Center></H1>
<hr>

<Form Method="Get" Action="TampilMahasiswa.Asp"
Name="FrmMahasiswa">

<Table>
<Td>Npm</Td><Td>:</Td><TD><Input Type="Text" Name="TxtNpm"
Size=12></Td><TR>

<Td>Nama Mahasiswa</Td><Td>:</Td><TD><Input Type="Text"
Name="TxtNama" Size=25></Td><TR>

<Td>Alamat</Td><Td>:</Td><TD><Input Type="Text"
Name="TxtAlamat" Size=35></Td><Tr>

<Td>Hobby</Td><Td>:</Td><TD><Input Type="Text"
Name="TxtHobby" Size=45></Td><TR>

<Td>Dosen Favorit</Td><Td>:</Td><TD><Input Type="Text"
Name="TxtDosen" Size=12></Td><TR>

<Td>Kritik</Td><Td>:</Td><TD><textarea rows="4"
name="Kritik" cols="20"></textarea></TD><TR>

<TD Colspan=3 align=middle>
<Input Type="Submit" Value="Simpan" Name="CmdSimpan">
<Input Type="Reset" Value="Batal" Name="CmdBatal"></TD>

</Table>
</Form>
</Body>
</Html>

Dari latihan diatas dapat dilihat bahwa kita akan membuat tampilan dengan nama
maha.asp dan akan ditampilkan pada halaman berikutnya dengan nama
tampilmahasiswa.asp. perhatikan action pada script diatas. Maka pada saat kita
mengisikan pada setiap kolom dihalaman maha.asp maka akan dikirimkan ke halaman
tampilmahasiswa.asp dalam bentuk teks yang kita deklarisikan sesuai dengan nama
kolom tersebut.

Web Programming With ASP
28
Sedangkan pada script dibagian akhir terdapat input type= ‘submit” untuk membuat
tombol dengan tampilan simpan dan namanya “Cmdsimpan”. Sedankan tombol dengan
tampilan reset untuk menghilangkan nilai yang dimasukan user.

Tampilmahasiswa.asp
<Html>
<Head>
<Title>Daftar Mahasiswa</Title>
</Head>

<Body>
<Center>
<H1>
Daftar Mahasiswa<Br>
Diploma Komputer
</Font>
</Center></H1>
<hr>

<Table>
<Td>Npm</Td><Td>:</Td><TD>
<%=Request.QueryString("TxtNpm")%></Td><TR>

<Td>NamaMahasiswa</Td><Td>:</Td><TD>
<%=Request.QueryString ("TxtNama")%></Td><TR>

<Td>Alamat</Td><Td>:</Td><TD>
<%=Request.QueryString("TxtAlamat")%></Td><Tr>

<Td>Hobby</Td><Td>:</Td><TD>
<%=Request.QueryString("TxtHobby")%></Td><TR>

<Td>Dosen Favorit</Td><Td>:</Td><TD>
<%=Request.QueryString("TxtDosen")%></Td><TR>

<Td>Kritik</Td><Td>:</Td><TD>
<%=Request.QueryString("Kritik")%></TD><TR>

</Table>

<A Href="Maha.asp">Kembali Ke Data Mahasiswa TI 71</A>
</Body>
</Html>

Web Programming With ASP
29

Web Programming With ASP
30
Dari script tampilmahasiwa diatas dapat kita lihat bahwa pada saat kita mengirimkan
dari halaman ‘maha.asp’ dengan method = “Get”, maka pada tscript
‘tampilmahasiswa.asp’ kita tuliskan script
<%=Request.QueryString(“vardata”)%>
Jadi yang harus diperhatikan adalah penulisan “name” pada inputtype halaman
sebelumnya.

Maka tampilan dari latihan 3.3 adalah ;

Web Programming With ASP
31
>> Proses Input Form

Dari contoh sebelumnya telah kita lihat beberapa contoh yang mengandung form. Jika
kita perhatikan maka terdapat tag seperti <FORM METHOD = “POST | GET “ ACTION =
“NAMEFILE.ASP”
Proses terhadap input dilakukan dengan menggunakan objek Request. Input form
tersebut akan ditampung oleh koleksi QueryString dan koleksi Form. Perbedaan
menggunakan kedua koleksi ini tergantung pada parameter METHOD dan FORM.

Jika kita perhatikan pada contoh latihan 3.3, dimana pada halaman ‘tampilmahasiswa’
terdapat vardata yang digunakan untuk menampung data yang akan diambil. Misalnya
pada halaman ’maha.asp’ data yang menampung nama adalah komponen <INPUT
TYPE=text> yang diberi NAME=namamahasiwa. Maka untuk mengambilnya
<%=Request.QueryString ("TxtNama")%>

Sekarang kita masih menggunakan koleksi QueryString namun bedanya metode yang
dikirimkan menggunakan POST bukan GET.

Latihan 3.4
Form.asp

<Html>
<Head>
<Title>Daftar Mahasiswa</Title>
</Head>

<Body>

<Form Method="POST" name="form" Action="proses.asp"
Name="FrmMahasiswa">
Nama depan <input type="text" name="nama"> <br>
Nama keluarga <input type="text" name="keluarga"> <br>
Umur <input type="text" name="umur"> <br>

<Input Type="hidden" Value="new" Name="status">
<Input Type="submit" Value="Batal" Name="CmdBatal"></TD>
</Form>
</Body>
</Html>
Proses.asp

<Html>
<Head>
<Title>Daftar Mahasiswa</Title>
</Head>

<Body>
hallo, <%=Request.FORM("nama")%>
<%=Request.FORM("keluarga")%><br>
anda saat ini berusia <%=Request.FORM("umur")%> tahun. <br>

<%
if Request.FORM("status") = "new" then
  response.write" ini adalah kunjungan pertama anda !"
end if
%>

</body>
<html>

Apa perbedaannya, jika kita perhatikan pada saat dijalankan dibrowser dengan
mekanisme FORM maka yang tidak tampak atau tertulis query string yang panjang,
berbeda jika kita menggunakan mekanisme GET yang akan menampilkan query string
yang panjang pada address browser.

Tampilan Latihan 3.4

Web Programming With ASP
32
>> Verifikasi Input Form
Untuk contoh awal buatlah script dibawah ini,

Latihan 3.5
<html>
<head>
<title>contoh function</title>
</head>
<body>
<script language="vbscript">

function login_onsubmit
if document.login.txtlogin.value =" " then
   login_onsubmit = false
   msgbox "Maaf Login Harus Diisi..",48+1,"Konfirmasi"
else
if document.login.txtpass.value =" " then
   login_onsubmit = false

Web Programming With ASP
33
   alert "Password Harus Diisi.."
  else
   if document.login.txtlogin.value ="Deris" then
   if document.login.txtpass.value ="Stiawan" then
   login_onsubmit = True
   else
   login_onsubmit = false
   msgbox "Password Anda Salah",vbcritical
   end if
   else
   login_onsubmit = false
   msgbox "Maaf Login Salah",vbcritical

   end if
   end if
  end if
end function
</script>

<Form method="POST" Action="Tampilan.asp" name="LOGIN"
<Table Border=1>
<tr>
<td><b>Login </td></b><td><Input Type="text"
Name="txtlogin" Size=10></td>
</tr>
<br>
<tr>
<td><b>Password </td></b><td><Input Type="password"
Name="txtpass" Size=10></td>
</tr>

</Table>
<br>Input Type="Submit" value="Kirim" Name="BtnKirim">
<Input Type="Reset" Value="Batal" Name="BtnBatal">
</form>
</html>

Maka tampilan dari latihan 3.5 adalah ;

Latihan 3.6

<html>
<head>
<title>Objek form</title>
</head>
<body>
<h1>Objek form</h1>
<hr>
<form name="formku" action="test.asp" method="post">
<pre>
Login
<input type="text" name="nama">
<input type="submit" value="Kirim">
</form>
</pre>

<script language=VBScript>
Function formku_onSubmit
  If Document.formku.nama.value = "" Then
  formku_onSubmit = False
   Alert "Anda belum mengisi nama login"

Web Programming With ASP
34
Else
  formku_onSubmit = True
End If
End Function
</script>

</body>
</html>

Maka tampilan dari latihan 3.6 adalah ;

Web Programming With ASP
35

>> ActiveX Data Object (ADO)
4

:: ADO Objek Model
Dalam membuat suatu halaman web belum lengkap rasanya jika kita tidak dapat
berinteraksi secara dinamis dengan web yang kita kunjungi, salah satu nilai tambah
dari ASP adalah kita dapat membuat script yang kita buat diintegrasikan dengan suatu
Database, misalnya Microsoft Access.Visual Foxpro, atau Microsoft SQL Server.
ActiveX Data Object (ADO) adalah komponen yang memungkinkan aplikasi client untuk
mengakses dan memanipulasi data pada web server. Identitas program ADO adalah
ADODB.
Seperti objek-objek laiinya ADO juga memiliki koleksi, properti dan metode,
diantaranya adalah ADO objek Model, Objek Command, Objek Connection, Objek Error,
Objek Field, Objek Parameter, Objek Property, Objek Recordset, Metode AddNew,
Append, metode delete, metode execute, Properti AbsolutePage, Absoluteposition, dll.

>> ODBC
Untuk dapat mengakses sumber daya OLE DB, langkah pertama yang harus dilakukan
adalah memberitahukan kepada ADO dimana diletakan file sumber database tersebut.

Web Programming With ASP
36
Conection string yang digunakan berbeda-beda tergantung pada sumber data Database
yang kita buat.
• Sumber data Microsoft Access menggunakan OLE Dbnya =
Provider=Microsoft.Jet.OLEDB.4.4;Data Source= letak file.mdb
• Microsoft SQL Server = Provider = SQLOLEDB.1;Data Source = letak database server
• Oracle = Provider = MSDAORA.1;Data Source = letak database pada server
• Microsoft Indexing service = Provider=MSIDXS.1;Data Source = letak file

Contohnya ;
<%
Set cnn = Server.CreateObject(“ADODB.Connection”)
Cnn.open “Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Documents\data.mdb
%>

note : penulisan connection string harus dilakukan dalam satu baris.

Dengan menggunakan ODBC kita akan dapat lebih banyak mendapatkan driver database
namun koneksi akan lebih ribet dibandingkan dengan cara OLE DB. Pada setiap versi
Windows ODBC dapat diakses di Control Panel.

Perhatikan pada bagian atasnya terdapat beberapa tab, diantaranya ;
User DSN : jika digunakan maka user maka hanya komputer tersebut saja yang dapat
mengkasesnya
System DSN : semua komputer yang memiliki jaringan yang sama maka dapat mengakes
sumber data,
File DSN : akan memberikan akses multi user terhadap sumber data, serta dapat di
transfer dari satiu server ke server lainnya.

Contoh script System DSN adalah ;
<%
set nama objek = Server.CreateObject(“ADODB.Connection”)
Nama objek.open “nama sumber data”
%>

Web Programming With ASP
37

Web Programming With ASP
38
Sedangkan script File DSN adalah ;

<%
Set namaobjek = Server.CreateObject(“AdoDB.Connection”)
Namaobjek.open “FILTERDSN=namafile.dsn
%>

>> Koneksi Tanpa DSN
Sebernarnya ada trik yng sangat gampang agar kita tidak perlu mengkoneksikan script
yang kita buat dengan database, dengan demikian akan memudahkan pada waktu akan
mengupload ke Internet. Memang Microsoft pernah sesmubar bahwa dengan
menggunakan DSN maka proses akan lebih cepat. Namun belakangan ini banyak di
milis-milis dari para programmer ASP yang mengatakan bahwa bugs ‘Too Many Client
Tasks’ salah satunya terjadi karena koneksi ke database menggunakan DSN dimana
terjadi pada saat koneksi bersamaan banayk user. Kebanyakan sistem DSN less
disarankan digunakan untuk koneksi dengan Access.

Perbedaan utama antara System DSN dengan DSN less adalah pada penyebutan nama
database secara langsung pada DSN-less beserta driver yang digunakan, sementara pada
koneksi DSN, nama database telah diwakili oleh nama dari DSN yang dibuat pada menu
ODBC.

Contoh script perbedaanya ;
String Koneksi
StrKoneksi = “DRIVER={Microsoft Access Driver (*.mdb}; “
StrKoneksi = StrKoneksi & “DBQ=” & Server.Mappath
(“namadatabase.mdb”)

String Koneksi DSN-less
<%
Set DBConnection = Server.CreateObject(“adodb.connection”)
StrKoneksi = “DRIVER={Microsoft Access Driver (*.mdb}; ”
StrKoneksi = StrKoneksi & “DBQ=” DB Connection.Open
StrKoneksi
%>

>> Buku Tamu
<HTML>
<HEAD>
<TITLE> Selamat Datang </TITLE>
</HEAD>

<BODY>
<CENTER>
<font face="Impact" size="7" color="#0000FF">Welcome in
Deris Stiawan<br>Official Sites</font><BR><CENTER>

<p align="center"><i><font face="Trebuchet MS" size="4">
Please...give me some critics or opinion about my sites <A
HREF="guest.asp"><b>click here</b><br>

<A HREF="List.asp">Click here to see another
visitors</font></i></p>
<p align="center"></p>

</BODY>
</HTML>

Tampilan 4.1


S
elanjutnya kita buat script dan simpan dengan nama ‘guest.asp’
Latihan 4.2
<HTML>
<HEAD>
<TITLE> Buku Tamu </TITLE>
<SCRIPT LANGUAGE=VBScript>


</SCRIPT>
</HEAD>

<BODY>
<CENTER>
<FONT FACE="Impact" Size=7 COLOR=#0000FF>
Buku Tamu </FONT>
</CENTER>

<FORM NAME="frmGuest" ACTION="terimakasih.asp"
METHOD="post">
<TABLE ALIGN=Center width="380">
<TR>
<TD>
<PRE>
Nama : <INPUT TYPE=Text NAME=txtNama> <BR>
Email : <INPUT TYPE=Text NAME=txtEmail> <BR>
</TD>
</TR>
<TR>
<TD>

<PRE>
Komentar:
<TEXTAREA NAME=txtarComent ROWS=9 COLS=43> </TEXTAREA>
</TD>
</TR>
<TR>
<TD>

<INPUT TYPE=Button VALUE=Submit NAME=btnSubmit>
<INPUT TYPE=Reset>

</TD>
</TR>
</TABLE>
</FORM>
</BODY>
</HTML>

Web Programming With ASP
40
Tampilan 4.2

Pada saat halaman ‘guest.asp’ diisi oleh pengunjung dan teks tadi akan disimpan
kedalam sebuah database (Access) berilah nama ‘BukuTamu.mdb’. Kita buat dulu table
dalam database access. Adapun struktur tabelnya adalah ;

Field Tipe Data Keterangan
Indeks Autonumber Kunci primer
Tanggal Date time -
Nama Text Panjang 30
Email Text 30
Komentar Memo -

Buatlah halaman untuk memperlihatkan pengunjung yang pernah mengisi buku tamu
kita dan simpan dengan nama terimakasih.asp. Seperti pada tampilan 4.3

Latihan 4.3
  <% Option Explicit %>

<HTML>
<HEAD>

Web Programming With ASP
41

Web Programming With ASP
42
<TITLE> Buku Tamu </TITLE>
</HEAD>

<BODY>



<CENTER>
<FONT FACE=Impact SIZE=7 COLOR=#0000FF>
GuestBook List</FONT><FONT FACE=Verdana SIZE=5
COLOR=#f7efde><HR>
</FONT> </CENTER>

<%
Dim objConn
Dim ObjRset
Dim filePath
Dim strSQL
Dim tombol
Dim hlm
Dim i

'---Mapping file BukuTamu.mdb---
filePath = Server.MapPath("BukuTamu.mdb")

'---Definisi pernyataan SQL---
strSQL = "SELECT * FROM Guest"

'---Membuka koneksi---
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=" & filePath

'---Definisi Recordset---
Set objRset = Server.CreateObject("ADODB.Recordset")

'---Menentukan halaman aktif---
tombol = Request.Form("tombol")
If Request.Form("hlm") = "" Then
  hlm = 1
Else
  hlm = Request.Form("hlm")
End If

'---Menampilkan 5 record per halaman---
objRset.Open strSQL, objConn, adOpenStatic
objRset.PageSize = 5

'---Mengatur halaman---
If tombol = "Prev 5" or tombol = "Next 5" Then
Select Case tombol

Web Programming With ASP
43
Case "Prev 5"
  If hlm > 1 Then
   hlm = hlm - 1
Else
  hlm = 1
End If
Case "Next 5"
  If objRset.AbsolutePage < objRset.PageCount Then
   hlm = hlm + 1
Else
  hlm = objRset.PageCount
End If
Case Else
  hlm = 1
End Select
End If

objRset.AbsolutePage = hlm
%>



<TABLE BORDER=1>

<TR>
  <TD WIDTH=20% BGCOLOR=#80f6ac> Tanggal </TD>
  <TD WIDTH=20% BGCOLOR=#80f6ac> Nama </TD>
  <TD WIDTH=20% BGCOLOR=#80f6ac> Email </TD>
  <TD WIDTH=40% BGCOLOR=#80f6ac> Komentar </TD>
</TR>


<% For i = 1 to objRset.PageSize %>
<TR>
  <TD WIDTH=20% BGCOLOR=#f7efde>
<%=objRset("Tanggal")%> </TD>
  <TD WIDTH=20% BGCOLOR=#f7efde> <%=objRset("Nama")%>
</TD>
  <TD WIDTH=20% BGCOLOR=#f7efde> <%=objRset("Email")%>
</TD>
  <TD WIDTH=40% BGCOLOR=#f7efde>
<%=objRset("Komentar")%> </TD>
</TR>


<%
objRset.MoveNext
If objRset.EOF Then
Exit For
End If
Next
%>
</TABLE>


<FORM ACTION=list.asp METHOD="POST">
<INPUT TYPE="Hidden" NAME="hlm" Value="<%= hlm %>">

<% If hlm > 1 Then %>
<INPUT TYPE="Submit" Name="tombol" Value="Prev 5">
<% End If %>

<% If hlm < objRset.PageCount Then %>
<INPUT TYPE="Submit" Name="tombol" Value="Next 5">
<% End If %>

</FORM>

<CENTER>
<FONT FACE=Technical SIZE=4 COLOR=#f7efde>
<A HREF="default.asp"><Click here to Menu</font>
</BODY>
</HTML>

Tampilan 4.4

Web Programming With ASP
44
>> Project II – Buku Tamu >>
Script kali ini kita akan menggunakan database untuk menyimpan datanya, buatlah
database terlebih dahulu dengan menggunakan Access, nama databasenya adalah
data.mdb dan tabel nya diberi nama Guest.
Langkah pertama buatlah latihan 4.1 dibawah ini dengan menggunakan FrontPage 2003,
simpan dengan nama ‘password.asp’.

Latihan 4.5
Password.asp
<html>
<head>
<title>contoh function</title>
</head>

<body>
<script language="vbscript">

function login_onsubmit
if document.login.txtlogin.value =" " then

Web Programming With ASP
45
   login_onsubmit = false
   msgbox "Maaf Login Harus Diisi..",48+1,"Konfirmasi"
else

if document.login.txtpass.value =" " then
   login_onsubmit = false
   alert "Password Harus Diisi.."
  else

   if document.login.txtlogin.value ="Deris" then
   if document.login.txtpass.value ="Stiawan" then
   login_onsubmit = True
   else
   login_onsubmit = false
   msgbox "Password Anda Salah",vbcritical
   end if
   else
   login_onsubmit = false
   msgbox "Maaf Login Salah",vbcritical

   end if
   end if
  end if
end function

</script>

<Form method="POST" Action="Tampilan.asp" name="LOGIN"
<Table Border=1>
<tr>
<td><b>Login </td></b><td><Input Type="text"
Name="txtlogin" Size=10></td>
</tr>
<br>
<tr>
<td><b>Password </td></b><td><Input Type="password"
Name="txtpass" Size=10></td>
</tr>
</Table>
<P align="center"><Input Type="Submit" value="Kirim"
Name="BtnKirim">
<Input Type="Reset" Value="Batal" Name="BtnBatal">
</form>
</html>

Tampilan Latihan 4.5

Latihan 4.6
Pada saat pengujung mengisi Login dan Password dengan benar maka akan diteruskan
ke halaman ‘Tampilan.asp’. adapun scriptnya dapat dilihat dibawah ini, namun apabila
pengunjung salah memasukan password atau login maka akan keluar kota message box.
Pada tampilan.asp akan terlihat isian pada kolom Login dan Password pengunjung.

Web Programming With ASP
46
  Tampilan.asp
<html>
<head>
<title>contoh function</title>
</head>

<body>

<h1> Selamat Datang Sahabatku yang baik </H1>
<hr>
Selamat Siang : <%=Request.form("Txtlogin")%><BR>
Password anda : <%=Request.form("Txtpass")%><BR>

<A Href=Biodata.asp> Isi Buku Tamu</A><BR>
<A Href=bukutamu.asp>tampilkan buku tamu</A><BR>

</body>
</html>

Latihan 4.7
Dari halaman tampilan.asp pengunjung dapat memilih Isi buku tamu atau melihat isi
buku tamu. Maka jika pengunjung memilih untuk mengisi buku tamu maka kita harus
membuat script yang akan menampung beberapa pertanyaan dasar.

Biodata.asp
<html>
<head>
<title>contoh function</title>
</head>

<body>
<B><CENTER> BIODATA PENGUNJUNG<br> OFFICIAL SITES
<HR>
</HR>
</CENTER>
</B>

Web Programming With ASP
47

<Form Action="Proses1.asp" method=POST name=FrmIsi>
<Table border=0>
<td> Nama Anda</td><td>:</td><td><input Type=text
Name=txtname
size=30 maxlength=30></td><tr>

<td>Alamat Anda</td><td>:</td><td><input Type=text
Name=txtalamat
size=15 maxlength=15><td><tr>

<td>Kota/propinsi</td><td>:</td><td><input Type=text
Name=txtkota
size=15 maxlength=15><input type=text name=txtpropinsi
size=15 maxlength=15></td><tr>

<td>No.Telp/ HP </td><td>:</td><td><input Type=text
Name=txtTelpon
size=15 maxlength=30></td><tr>
<td Colspan=3 align=center><Input type=submit
value="proses">
<input type=reset value="batal"></td>
</table>

<script language="vbscript">
function frmisi_onsubmit
   frmIsi_onsubmit=true
end function

</script>

<a href=proses1.asp>kembali</a>
</body>
</html>

Tampilan latihan 4.7

Web Programming With ASP
48
Latihan 4.8
Pada saat pengunjung mengisi form pada biodata.asp, maka isian tersebut akan
diproses pada ‘proses1.asp’. halaman ini hanya sebagai konfirmasi untuk mengegaskan
bahwa form telah diisi.

Proses1.asp
<%
Dim DB
set db = server.createobject("ADODB.Connection")
DB.open("Provider=Microsoft.jet.OLEDB.4.0;Data
Source="&Server.mappath("Data.mdb"))
Satu baris
dim rs
set rs = server.createobject ("ADODB.Recordset")
RS.Open "tbldata", DB,adOpenkeyset,3

rs.addnew
rs("Nama")=request.form("txtname")
rs("Alamat")=request.form("txtalamat")
rs("kota")=request.form("txtkota")
rs("Propinsi")=request.form("txtPropinsi")
rs("Telpon")=request.form("txttelpon")
rs.update

response.write "<b><center><u>"
response.write "Terima Kasih,"
response.write "</B></CENTER></U>"
response.write "<HR>"
response.write "<BR>"

response.write "Data-data Anda Sudah Disimpan"
response.write "<BR>"
%>
<B><a href=bukutamu.asp>Tabel Konfirmasi</a></b>

Web Programming With ASP
49
Latihan 4.9
Pada saat pengunjung telah mengisi form bukutamu,semua data akan tersimpan pada
database Access di ‘data.mdb’. jika pengunjung ingin melihat semua data yang telah
diisi oleh pengunjung lainnya, maka kita harus membuat suatu script ‘bukutamu.asp’.

bukutamu.asp

<html>
<head>
<title> ISI BUKU TAMU PENGUNJUNG</title>
</head>
<body>
<b><a href="password.asp">Kembali</a></b><br>
<b><center><H1>Sahabat-Sahabatku Yang Baik <br><H1>
<br><br>
</b>

<%
Dim DB
set db = server.createobject("ADODB.Connection")
DB.open("Provider=Microsoft.jet.OLEDB.4.0;Data
Source="&Server.mappath("data.mdb"))
Satu baris

dim rs
set rs = server.createobject("ADODB.Recordset")
RS.Open "select * From tbldata",DB

If rs.EOF and RS.BOF then
  Response.write "Maaf Database kosong"
else
  response.write "<table border>"

response.write "<tr>"
response.write "<td><b>"
response.write "Nama Sahabat"
response.write "</B></td>"

response.write "<td><b>"
response.write "Alamat"
response.write "</B></td>"

response.write "<td><b>"
response.write "Kota"
response.write "</B></td>"

response.write "<td><b>"
response.write "Propinsi"

Web Programming With ASP
50
response.write "</B></td>"

response.write "<td><b>"
response.write "Telpon"
response.write "</B></td>"
response.write "<HR>"
response.write "</TR>"

rs.movefirst
while not rs.eof

response.write "<tr>"
response.write "<td>"
response.write rs.fields("Nama")
response.write "</TD>"

response.write "<td>"
response.write rs.fields("Alamat")
response.write "</TD>"

response.write "<td>"
response.write rs.fields("Kota")
response.write "</TD>"

response.write "<td>"
response.write rs.fields("Propinsi")
response.write "</TD>"

response.write "<td>"
response.write rs.fields("Telpon")
response.write "</TD>"
response.write "</Tr>"

rs.movenext
wend

end if
response.write "</table>"
%>
</body>

Tampilan latihan 4.9

Web Programming With ASP
51

Web Programming With ASP
52
>> Polling Pendapat Sederhana
cari data tentang
g untuk memilih
n 4.10
<HTML>
E Jajak Pendapat </TITLE>
sesTanda") = ""
CELLSPACING=0>
<TD COLSPAN=2 BGCOLOR=#7e5fad WIDTH=100%
c2>
R>
bcdef>
rmPoll ACTION=Result.asp METHOD=post>
ows 9X
>

Program jajak pendapat umumnya digunakan untuk melihat dan men
sesuatu dalam suatu populasi. Misalnya meminta para pengunjun
Sistem Operasi apa yang sering mereka gunakan tanpa menggunakan koneksi dengan
DSN.

Latiha
<HEAD>
<TITL >
</HEAD>

<BODY>
<%
ssion(" Se
%>

<TABLE BORDER=0 WIDTH=100%
> <TR

ALIGN=Center>
<FONT FACE=Verdana SIZE=6 COLOR=#f2fa
  Jajak Pendapat </FONT>
</TD>
/TR> <
<T
0% BGCOLOR=#a <TD WIDTH=3
<FORM NAME=f
<INPUT TYPE=hidden Name=hidTanda VALUE="">
<BR>
  Menurut Anda, sistem operasi manakah yang paling
baik? <BR>
E=Radio NAME=radOS VALUE="A"> Wind <INPUT TYP
BR> <
  <INPUT TYPE=Radio NAME=radOS VALUE="B"> Windows
NT/2000 <BR>
  <INPUT TYPE=Radio NAME=radOS VALUE="C"> UNIX <BR>
  <INPUT TYPE=Radio NAME=radOS VALUE="D"> Linux <BR
  <INPUT TYPE=Radio NAME=radOS VALUE="E"> BeOS <BR>
  <INPUT TYPE=Radio NAME=radOS VALUE="F"> OS/2 <BR>
  <INPUT TYPE=Radio NAME=radOS VALUE="G"> DOS
<BR> <BR>
  <INPUT TYPE=Submit NAME=btnSubmit VALUE=Vote!>
</FORM>
</TD>
  <TD WIDTH=80% BGCOLOR=#f7efde ALIGN=Center>
  <FONT FACE=Technical SIZE=4>
sebuah perusahaan yang bergerak di bidang
perluan
TR>

Tampila .10

atihan 4.11
<HTML>
>
COLOR=#f7efde>

i, j
0), arrOS(10)
"Windows 9X"
  Kami adalah
  komputer dan ingin mengumpulkan data untuk ke
  penelitian kami. Mohon partisipasi Anda untuk mengisi
  jajak pendapat ini.
</FONT>
</TD>
</
</TABLE>
</BODY>
</HTML>
n latihan 4

L
<HEAD
<TITLE> Jajak Pendapat </TITLE>

<BODY BG

<%
dim objConn, objRset
dim reqOS, filePath, totRec
dim
dim jmlOS(10), pctOS(1
dim totOS
arrOS(1) =
arrOS(2) = "Windows NT/2000"
arrOS(3) = "UNIX"
arrOS(4) = "Linux"
arrOS(5) = "BeOS"

Web Programming With ASP
53

Web Programming With ASP
54
arrOS(6) = "OS2"
arrOS(7) = "DOS"

'---Mengambil nilai dari form sebelumnya---
qOS = Request.Form("radOS")
.SessionID) then
Response.Write "<CENTER> <H1>" & _
kali"
Server.MapPath("Polling.mdb")
t objConn = Server.CreateObject("ADODB.Connection")
rovider=Microsoft.Jet.OLEDB.4.0;Data
CreateObject("ADODB.Recordset")
jRset.Open "Hasil", objConn, adOpenStatic,
in9X")=1
d if
jRset("UNIX")=1
d if
jRset("Linux")=1
d if
jRset("OS2")=1

re

'---Verifikasi form---
if (Session("sesTanda")=Session

  "Maaf, Anda tidak dapat mengisi lebih dari satu
& _
"<H1> </CENTER>"
else

'---Membuka koneksi---
filePath=
Se
objConn.Open "P
Source=" + filePath

'---Mendeklarasikan Recordset---
set objRset = Server.
ob
adLockOptimistic, adCmdTable

'---Memasukkan data ke dalam tabel---
objRset.AddNew

if reqOS="A" then
objRset("W
d if en

if reqOS="B" then
jRset("WinNT2K")=1 ob
en

if reqOS="C" then
ob
en

if reqOS="D" then
ob
d if en

if reqOS="E" then
jRset("BeOS")=1 ob
en

if reqOS="F" then
ob

Web Programming With ASP
55
end if
.SessionID
R> <H1>" & _
> <H2> Atas kesediaan Anda " & _
CENTER>"
  jmlOS(i) = jmlOS(i) + getRec(i,j)
xt
)*100
mbuat grafik dengan bantuan tabel-->
ENTER>
T SIZE=5>
pendapat hingga
=Date%>
R> </CENTER>
LE BORDER=0 WIDTH=300>
<TD WIDTH=<%=int(pctOS(i))%>% BACKGROUND=bar.bmp>
>

if reqOS="G" then
jRset("DOS")=1 ob
end if
objRset.Update
Session("sesTanda") = Session
Response.write "<CENTE
"Terima Kasih </H1> <BR
"mengisi jajak pendapat ini </H2> <HR> </
'---Memasukkan record ke dalam array---
totRec = objRset.RecordCount
objRset.MoveFirst
getRec = objRset.GetRows

for i=1 to 7
  for j=0 to totRec-1

next
  totOS = totOS + jmlOS(i)
ne
for i=1 to 7
  pctOS(i) = (jmlOS(i)/totOS
next

%>
<!--Me
<C
<FON
Berikut ini akan kami tampilkan hasil jajak
tanggal <%
</FONT> <BR> <B
Jumlah pemberi suara <%=totOS%> <BR> <BR>
<%
for i=1 to 7
%>
<TAB
<TR>

</TD>
<TD WIDTH=<%=100-int(pctOS(i))%>%\>
<%=arrOS(i)%>, <%=int(pctOS(i))%>%
</TD>
</TR>
</TABLE>
<%
next
end If
%>
</BODY
</HTML>

Web Programming With ASP
56
>> Proyek Akhir ASP

gunakan Frontpage dan ASP. Adapun syarat-syarat
Tug

u atau interaksi lain yang sesuai dengan tema web site
sederhana
• Tug d
• Tug d entuk hardcopy dan softcopy
ke Internet
  Buatlah website dengan meng
site yang anda buat adalah ; dari web
• as Kelompok
• Didalam content harus mempunyai
o Link-link
o Images
o Tabel
o Buku tam
o Polling
as ikumpulkan sebelum ujian akhir semesteran.
as ikumpulkan dalam b
• Nilai lebih jika web site yang dibuat juga dipublishkan

Web Programming With ASP
57
:: Daftar Pustaka
Beginning ASP.NET Using VB.NET, Wrox
engan ASP, Yahya Kurniawan

Profesional XML, Wrox
Aplikasi Web Database d
Pemrograman Client/Server dengan ASP, Frans Newman
www.microsoft.com/net
www.asp.net

Janter Riduan Nababan

Minggu, 09 Desember 2012

program web

0 komentar:

Posting Komentar

More Text

Total Pageviews

Pages

Sponsored Ads

Ads

Followers

About Me

Popular Posts

Blogger templates

Translate

Daftar Blog Saya

visitor

Archive

Blogger news

Blogroll

About