Yazılım Öğren

ASP Kayıtları Listeleme KAYITLAR.ASP

Öncelikle kayıtları listeleyeceğimiz bir arabirim inşa ettik. kayitlar.asp ye göz atalım. Bu ve diğer ASP dosyaları C:\inetpub\wwwroot\ konumunda olsun.

Kod1. kayitlar.asp

 

<% 

Veri_yolu = Server.MapPath(“db/kisiler.mdb”)

Bcumle = “DRIVER={Microsoft Access Driver (*.mdb)};DBQ=” & Veri_yolu

Set bag = Server.Createobject(“ADODB.Connection”)

bag.Open (Bcumle)

Set kset = bag.execute(“SELECT * FROM kisiler”)

%>

<% i=1 %>

<p><a href=”kayit_yeni.asp”>Yeni Kayıt</a></p>

<table border=1>

<tr>

<th>#</th>

<th>Ad</th>

<th colspan=2>Eylemler</th>

</tr>

<% Do While Not kset.eof %>

<tr><td><%= i %></td>

<td><%= kset(“ad”) %></td>

<td><a href=”kayit_duzenle.asp?id=<%= kset(“id”) %>”>düzenle</a></td> 

<td><a href=”kayit_sil.asp?id=<%= kset(“id”) %>”>sil</a></td></tr>

<% kset.movenext %>

<% i = i + 1 %>

<% Loop %>

</table>

<%

kset.Close

Set kset = Nothing

bag.Close

Set bag = Nothing

%>

 

Bu script, basit bir ÅŸekilde /db alt dizinindeki kisiler.mdb ile baÄŸlantı kuruyor. kisiler tablosundan aldığı tüm kayıtların “ad” alanındaki deÄŸerlerini yazdırıyor. Ve de her bir kayıt için düzenleme ve silme linkleri oluÅŸturuyor. Linkler oluÅŸturulurken sorgu stringi içinde eylemi gerçekleÅŸtirecek script dosyasına “id” anahtarıyla kaydın “id” alanındaki deÄŸeri gönderiliyor. Tabi bunlar kayıtseti sonunda duracak bir döngü içerisinde yapılıyor. Veriler tablo hücrelerine döngüyle döküldüğüne de dikkat ediniz.