Asp Ziyaretçi Defteri Yapımı Sitenizde ziyaretçilerinin görüşlerini, önerilerini diğer kullanıcılara açık şekilde belirtmeleri için ziyaretçi defteri, forum gibi sistemler bulunmalıdır.
Bu yazımızda ziyaretçi defteri yapacağız.
Mantığı basit, bir veritabanı oluşturacağız ve form aracılığı ile ziyaretçi bu veritabanına kayıt girecek. Sonrada girilen kayıtları sayfada göstereceğiz.
İlk önce veritabanı oluşturmamız gerekli.
Database.mdb adında accsess veritabanı oluşturun.
İçinde mesajlar adında tablo, sütunlar ve türleri ;

Mesaj : not
İsim : not
Mail : not
Tarih : Tarih/Saat


Veritabanını oluşturduktan sonra kodlamaya başlayabiliriz.
İlk önce veritabanı bağlantısını yapacağız.
Baglanti.asp adında dosyada veritabanına bağlanacağız ve bu dosyayı bütün sayfalara include edeceğiz.


Baglanti.asp

1. <%
2. Yol=Server.Mappath("Database.mdb")
3. Set baglanti=Server.Createobject("Adodb.Connection")
4. oku="Provider=microsoft.jet.oledb.4.0; data source=" & Yol
5. baglanti.open (oku)
6. %>

Veritabanına bağlandık. Şimdi kayıtları listeletelim.
Kayitlar.asp

1. <!--#include file="Baglanti.asp"-->
2. <%
3. Set rs=baglanti.execute("select * from mesajlar order by id desc")
4. While Not rs.Eof
5. Response.Write "isim: " & rs("isim") & " <br>"
6. Response.Write "Mail: " & rs("mail") & " <br>"
7. Response.Write "Tarih: " & rs("tarih") & " <br>"
8. Response.Write "Mesaj: " & rs("mesaj") & " <br>"
9. Rs.movenext:Wend
10. Rs.Close:Set rs=nothing ' kayıtları listelettik ve bağlantıyı kapattık.
11. %>

Altına mesaj ekle diye bir link verebilirsiniz.

<a href="Mesajekle.asp" title="Mesaj Yaz">Mesaj Yaz</a>

Mesajekle.asp

1. <form action="Kaydet.asp" method="post">
2. İsim : <input type="text" name="isim" />
3. Mail :<input type="text" name="mail" />
4. Mesaj: <textarea name="mesaj"></textarea>
5. <input type="submit" value="Gönder" />
6. </form>

Kaydet.asp

1. <!--#include file="baglanti.asp"-->
2. <%
3. Set Rs=Server.Createobject("adodb.recordset")
4. Rs.Open "Select * from mesajlar",baglanti,1,3
5. isim=trim(request.form("isim"))
6. mail=trim(request.form("mail"))
7. mesaj=trim(request.form("mesaj"))
8. Rs.Addnew
9. Rs("isim")=isim
10. Rs("mail")=mail
11. Rs("mesaj")=mesaj
12. Rs("tarih")=date()
13. Rs.Update
14. %>