Webce.tr.gg - Ziyaretci Defteri Yapimi Anlatimi

Bu yazımızda ASP ile tasarlanmış ziyaretçi defterini geliştiriyoruz.

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. webce.tr.gg den alınmıştır.

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

id           : otomatik sayı
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

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

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

Kayitlar.asp

<%
    Set rs=baglanti.execute("select * from mesajlar order by id desc")
        While Not rs.Eof
               Response.Write "isim: " & rs("isim") & " <br>"
               Response.Write "Mail: " & rs("mail") & " <br>"
               Response.Write "Tarih: " & rs("tarih") & " <br>"
               Response.Write "Mesaj: " & rs("mesaj") & " <br>"
        Rs.movenext:Wend
    Rs.Close:Set rs=nothing ' kayıtları listelettik ve bağlantıyı kapattık.
%>

Altına mesaj ekle diye bir link verebilirsiniz.

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

Mesajekle.asp

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

Kaydet.asp

<%
    Set Rs=Server.Createobject("adodb.recordset")
        Rs.Open "Select * from mesajlar",baglanti,1,3

    isim=trim(request.form("isim"))
    mail=trim(request.form("mail"))
    mesaj=trim(request.form("mesaj"))

    Rs.Addnew
        Rs("isim")=isim
        Rs("mail")=mail
        Rs("mesaj")=mesaj
        Rs("tarih")=date()
    Rs.Update
%>

Herhangi bir hata ile karşılaşırsanız yorumlarınızda belirtiniz.
Bir sonraki yazıda görüşmek üzere...
İyi Çalışmalar.