mengenai pembuatan guest book atau buku tamu dengan menggunakan ASP (Active Server Pages) dan Microsoft Access.

ahhh....
setelah lama da ga posting blog akhirnya posting lagi deh.ini jg posting gara" disuruh ngrjain tgs dari dosen ASP...!!!

sekarang qt mulai aja lah!

seperti judul post di atas qt akan membahas tentang PEMBUATAN GUEST BOOK DENGAN ASP DAN MICROSOFT ACCSES!!

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
-----------------------------------------------------

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

<% 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
%>

.: Sony AK Guest Book with
Microsoft Access
:.

Nama:	name="nama" size="38" maxlength="100">
E-mail:	name="email" size="38" maxlength="100">
Pesan:	<br /><span style="font-style: italic;">name="pesan" cols="50">

name="B1">

---

<% 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 %>

size="2">Tanggal	:	size="2"> <%=day(RecSet("Tanggal")) & " " & StringBulan(month(RecSet("Tanggal"))-1) & " " & year(RecSet("Tanggal")) & ", " & hour(RecSet("Tanggal")) & ":" & minute(RecSet("Tanggal")) & ":" & second(RecSet("Tanggal"))%>
size="2">Nama	:	size="2"> <%=RecSet("Nama")%>
Email& nbsp;	:	href="mailto:<%=RecSet("Email")%>"><%=RecSet("Email")%>< /td>
size="2">Pesan	:	size="2"> <%=RecSet("Pesan")%>

---

<%
RecSet.MoveNext
Next
Set RecSet = Nothing
%>



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
%>

Terimakasih
<%=Request.Form("nama")%>, pesan Anda sudah disimpan !!

Silakan klik di sini
untuk kembali.

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.

silahkan mencoba ya!!!

moga" bisa...

hahahahah