Tips dan Trik IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
1
Membuat Guest Book Dengan
ASP dan Miicrosoft Access
Sony Arianto Kurniawan
sonyarianto@yahoo.com
Pembaca yang budiman ;) Kali ini penulis akan menyajikan tulisan sederhana mengenai pembuatan
guest book atau buku tamu dengan menggunakan ASP (Active Server Pages) dan Microsoft Access.
Anda tentunya sudah tidak asing lagi dengan guest book ini. Hampir sebagian besar situs di internet
menyediakan fasilitas guest book, terlebih lagi pada situs-situs personal.
Guest book bisa dibuat dengan menggunakan berbagai macam bahasa. Kali ini penulis menggunakan
ASP sebagai script untuk guest book dan data dari guest book tadi disimpan ke database yaitu database
Microsoft Access. Sebelum lebih jauh kita terbenam dengan tulisan ini maka ada baiknya kita
beristirahat sejenak sambil membaca pesan-pesan berikut.
Tulisan ini bersifat terbuka dan Anda bisa memberi saran dan kritik yang bisa dikirimkan ke
sonyarianto@yahoo.com. Anda dilarang keras mengutip sebagian atau seluruh tulisan ini tanpa
sepengetahuan penulis. Tulisan ini ditujukan kepada Anda yang penulis asumsikan sudah pernah
membuat script ASP dan mengetahui Microsoft Access.
OK, misi kita kali ini adalah membuat guest book. Beberapa hal yang harus disiapkan adalah:
1. Web server, Anda bisa menggunakan Personal Web Server 4.0 atau MS IIS atau sembarang web
server yang mendukung ASP.
2. Database untuk guest book, disini kita menggunakan Microsoft Access. Adapun pada misi kali ini
nama database-nya adalah web_db.mdb. Di dalam database tersebut ada satu tabel yaitu
tbl_guest_book dengan struktur sebagai berikut:
Field Name Type Size Allow Zero Length
—————————————————–
Tanggal Date/Time
Email Text 100 Yes
Nama Text 100 Yes
Pesan Memo Yes
IPAddress Text 15 Yes
—————————————————–
Lisensi Dokumen:
Copyright © 2003 IlmuKomputer.Com
Seluruh dokumen di IlmuKomputer.Com dapat digunakan, dimodifikasi dan
disebarkan secara bebas untuk tujuan bukan komersial (nonprofit), dengan syarat
tidak menghapus atau merubah atribut penulis dan pernyataan copyright yang
disertakan dalam setiap dokumen. Tidak diperbolehkan melakukan penulisan ulang,
kecuali mendapatkan ijin terlebih dahulu dari IlmuKomputer.Com.
Tips dan Trik IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
2
Field Tanggal digunakan untuk menyimpan tanggal pemasukan guest book. Field Email dan Nama
digunakan untuk menyimpan e-mail dan nama sang pengisi guest book. Field Pesan digunakan untuk
menyimpan pesan guest book. Field IPAddress digunakan untuk menyimpan IP address sang pengisi
guest book.
Nah, sekarang kita akan berbicara masalah script ASP guest book kita ini. Pada misi ini kita akan
membuat dua buah file atau script ASP. Berikut ini nama-nama file ASP nya beserta penjelasannya.
1. guestbookdisplay.asp, file ini digunakan sebagai form untuk mengisi guest book dan sekaligus juga
untuk menampilkan hasil pengisian guest book. File ini mengandung tag FORM yang akan
mengeksekusi file guestbooksave.asp yang bertugas menyimpan data guest book yang diisi oleh
pengunjung web. Anda bisa lihat pada gambar dibawah design tampilannya.
Dari gambar diatas terlihat bahwa pada bagian atas digunakan sebagai form untuk mengisikan guest
book dan pada bagian bawah digunakan untuk menampilkan hasil pengisian guest book oleh pengisi
guest book sebelumnya. Tampilan hasil tersebut akan diurutkan secara descending berdasarkan
tanggal pengisian guest book.
2. guestbooksave.asp, file ini adalah script ASP yang berfungsi untuk menyimpan data guest book ke
Microsoft Access. File ini dieksekusi dari script guestbookdisplay.asp diatas.
Berikut ini adalah script ASP guestbookdisplay.asp
<% Option Explicit %>
<%
Dim ConnString,RecSet,Counter
ConnString = “Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\AriTech\websites\experiment\guestbook\web_db.mdb;Persist
Security Info=False”
Set RecSet = Server.CreateObject(“ADODB.RecordSet”)
RecSet.Open “select * from tbl_guest_book order by Tanggal
desc”,ConnString,1,3
If RecSet.RecordCount > 0 Then
RecSet.MoveFirst
End If
Tips dan Trik IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
3
%>
<html>
<head>
<title>Sony AK Guest Book</title>
</head>
<body>
<p><font face=”Tahoma” size=”2″><b>.: Sony AK Guest Book with
Microsoft Access
:.</b></font></p>
<form method=”POST” action=”guestbooksave.asp”>
<div align=”left”>
<table border=”0″ cellspacing=”0″ cellpadding=”0″>
<tr>
<td valign=”top”><font face=”Tahoma” size=”2″>Nama:</font></td>
<td valign=”top”><font face=”Tahoma” size=”2″><input type=”text”
name=”nama” size=”38″ maxlength=”100″></font></td>
</tr>
<tr>
<td valign=”top”><font face=”Tahoma” size=”2″>E-mail:</font></td>
<td valign=”top”><font face=”Tahoma” size=”2″><input type=”text”
name=”email” size=”38″ maxlength=”100″></font></td>
</tr>
<tr>
<td valign=”top”><font face=”Tahoma” size=”2″>Pesan:</font></td>
<td valign=”top”><font face=”Tahoma” size=”2″><textarea rows=”6″
name=”pesan” cols=”50″></textarea></font></td>
</tr>
</table>
</div>
<p><font face=”Tahoma” size=”2″><input type=”submit” value=”Simpan”
name=”B1″></font></p>
</form>
<hr>
<% dim StringBulan(11)
StringBulan(0) = “Januari”
StringBulan(1) = “Pebruari”
StringBulan(2) = “Maret”
StringBulan(3) = “April”
StringBulan(4) = “Mei”
StringBulan(5) = “Juni”
StringBulan(6) = “Juli”
StringBulan(7) = “Agustus”
StringBulan(8) = “September”
StringBulan(9) = “Oktober”
StringBulan(10) = “Nopember”
StringBulan(11) = “Desember”
%>
<% for Counter = 0 to RecSet.RecordCount – 1 %>
<div align=”left”>
<table border=”0″ width=”756″ cellspacing=”0″ cellpadding=”0″>
<tr>
<td width=”118″ align=”right”><font face=”Tahoma”
size=”2″>Tanggal </font></td>
<td width=”1″><font face=”Tahoma” size=”2″>:</font></td>
<td width=”632″><font face=”Tahoma”
size=”2″> <%=day(RecSet(“Tanggal”)) & ” ” &
StringBulan(month(RecSet(“Tanggal”))-1) & ” ” &
year(RecSet(“Tanggal”)) & “, ” & hour(RecSet(“Tanggal”)) & “:” &
minute(RecSet(“Tanggal”)) & “:” &
Tips dan Trik IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
4
second(RecSet(“Tanggal”))%></font></td>
</tr>
<tr>
<td width=”118″ align=”right”><font face=”Tahoma”
size=”2″>Nama </font></td>
<td width=”1″><font face=”Tahoma” size=”2″>:</font></td>
<td width=”632″><font face=”Tahoma”
size=”2″> <%=RecSet(“Nama”)%></font></td>
</tr>
<tr>
<td width=”118″ align=”right”><font face=”Tahoma” size=”2″>Email&
nbsp;</font></td>
<td width=”1″><font face=”Tahoma” size=”2″>:</font></td>
<td width=”632″><font face=”Tahoma” size=”2″> <a
href=”mailto:<%=RecSet(“Email”)%>”><%=RecSet(“Email”)%></a></font><
/td>
</tr>
<tr>
<td width=”118″ align=”right”><font face=”Tahoma”
size=”2″>Pesan </font></td>
<td width=”1″><font face=”Tahoma” size=”2″>:</font></td>
<td width=”632″><font face=”Tahoma”
size=”2″> <%=RecSet(“Pesan”)%></font></td>
</tr>
</table>
</div>
<hr>
<%
RecSet.MoveNext
Next
Set RecSet = Nothing
%>
</body>
</html>
Berikut ini adalah script ASP guestbooksave.asp
<% Option Explicit %>
<%
Dim Conn,ConnString
ConnString = “Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\AriTech\websites\experiment\guestbook\web_db.mdb;Persist
Security Info=False”
Set Conn = Server.CreateObject(“ADODB.Connection”)
Conn.Open ConnString
Conn.Execute “insert into tbl_guest_book values (now,’” & _
Request.Form(“email”) & “‘,’” & _
Request.Form(“nama”) & “‘,’” & _
Request.Form(“pesan”) & “‘,’” & _
Request.ServerVariables(“REMOTE_ADDR”) & “‘)”
Set Conn = nothing
%>
<html>
<head>
<title>Sony AK Guest Book</title>
</head>
<body>
<p align=”center”><font face=”Tahoma” size=”2″>Terimakasih
<%=Request.Form(“nama”)%>, pesan Anda sudah disimpan !!<br>
Tips dan Trik IlmuKomputer.Com
Copyright © 2003 IlmuKomputer.Com
5
Silakan klik di <a href=”guestbookdisplay.asp”>sini</a>
untuk kembali.</font></p>
</body>
</html>
Pada contoh diatas file path dari file database adalah di C:\AriTech\websites\experiment\guestbook\.
Anda bisa menggantinya sesuai dengan letak database Anda.
OK, sekarang Anda bisa meletakkan kedua file script di atas pada folder web Anda dan coba
jalankan di browser. Misalnya http://localhost/guestbookdisplay.asp.
Selamat mencoba dan semoga bisa Anda kembangkan lebih lanjut. Jika ada komentar bisa Anda
kirim ke sonyarianto@yahoo.com.
Download kedua script ASP dan database MS Access diatas dari URL dibawah:
http://ilmukomputer.com/tipstrik/pemrograman/guestbook.zip
Tinggalkan sebuah Komentar
Belum ada komentar.
