Cypherpunk
New member
Günümüzde neredeyse tüm web siteleri içerik olarak veritabanına dayanan bir tasarımla hazırlanıyor. Bunun için ASP ve PHP dilleri kullanılıyor. ASP ile hazırlanan tasarımlarda da ağırlıklı olarak MS Access veritabanı dosyaları kullanılıyor.
Hazırlamış olduğunuz web sitesi böyle bir siteyse, site içine bir arama motoru hazırlayabilirsiniz. Böylece, ziyaretçileriniz veritabanında bulunan kayıtlarda, istedikleri bir veya birkaç sözcüğe göre arama yapıp, bulunan kayıtları listeleyebilir ve istedikleri kaydı seçerek ekranda görüntüleyebilirler. Bu yazımızda ayrıntılı olarak bir site içi arama motoru tasarımını anlatacağız. ASP bilginizin olduğunu varsayarak ayrıntılı bilgi verilmeyecektir.
Öncelikle veritabanı dosyamızı hazırlayalım; MS Access ile yeni bir dosya oluşturun, adı "kayitlar.mdb" olsun, bu veritabanı dosyasının içinde "icerik" adında bir tablo bulunsun, tablomuzdaki alanlar ise,
şeklinde olsun. Bu veritabanında ID, kayıtlarımızın kimlik numarasını tutacak ve otomatik sayı olacak, "baslik" alanında, ilgili bölümün başlığı olacak, "metin" alanında ise ilgili sayfanın içeriğine ait kodlar bulunacak. Arama motorumuz bu tablonun "metin" alanını kullanacak.
Kodlarımızda SQL dilinin "LIKE" komutu ve VBScript' in "Replace" komutu anahtar olarak görev yapacak.
Veritabanına ait kayıtların görüntülendiği sayfaların hazır olduğunu varsayarak, "arama.asp" adında bir sayfa hazırlayacağız, bundan önce, "arama.inc" adında bir kod dizisi yazacağız ve bu kod dizisini "#include file" metoduyla, arama motorunun kullanılmasını istediğimiz sayfamıza dahil edeceğiz.
"arama.inc" Kodları
Bu kodlar bize aşağıdaki görüntüyü sağlayacaktır, ve metin kutusuna yazılan metin (örneğin Deneme), Gönder düğmesine tıklandığında "arama.asp" sayfamıza "arama.asp?aranan=Deneme" şeklinde gönderilecektir.
Şimdi arama.asp sayfamızın kodlarını hazırlayalım;
Bu kısa kodlar ile sayfanızda kayıtları alt alta görüntüleyebilirsiniz. Kısa metinler içeren kayıtlar için uygun olan bu tasarımda, uzun metinler içeren kayıtların olduğu sayfaların görüntülenmesi hoş olmayacaktır, bu durumda aşağıdaki satırları, altındakilerle değiştirerek kayıtlarınız için linkler oluşturabilir ve normalde kayıtlarınızı görüntülemek için kullandığınız sayfaya kayıtla ilgili bağlantı verebilirsiniz.
Görüntüleme sayfanızın kodlarını da yazın, dosya adı "goster.asp" olsun.
Kodların işinize yaraması dileğiyle, çalışmalarınızda başarılar.
Alıntıdır.
Hazırlamış olduğunuz web sitesi böyle bir siteyse, site içine bir arama motoru hazırlayabilirsiniz. Böylece, ziyaretçileriniz veritabanında bulunan kayıtlarda, istedikleri bir veya birkaç sözcüğe göre arama yapıp, bulunan kayıtları listeleyebilir ve istedikleri kaydı seçerek ekranda görüntüleyebilirler. Bu yazımızda ayrıntılı olarak bir site içi arama motoru tasarımını anlatacağız. ASP bilginizin olduğunu varsayarak ayrıntılı bilgi verilmeyecektir.
Öncelikle veritabanı dosyamızı hazırlayalım; MS Access ile yeni bir dosya oluşturun, adı "kayitlar.mdb" olsun, bu veritabanı dosyasının içinde "icerik" adında bir tablo bulunsun, tablomuzdaki alanlar ise,
Kod:
ID : Otomatik sayı (Birincil Anahtar)
baslik : String (255 karakter)
metin : Notşeklinde olsun. Bu veritabanında ID, kayıtlarımızın kimlik numarasını tutacak ve otomatik sayı olacak, "baslik" alanında, ilgili bölümün başlığı olacak, "metin" alanında ise ilgili sayfanın içeriğine ait kodlar bulunacak. Arama motorumuz bu tablonun "metin" alanını kullanacak.
Kodlarımızda SQL dilinin "LIKE" komutu ve VBScript' in "Replace" komutu anahtar olarak görev yapacak.
Veritabanına ait kayıtların görüntülendiği sayfaların hazır olduğunu varsayarak, "arama.asp" adında bir sayfa hazırlayacağız, bundan önce, "arama.inc" adında bir kod dizisi yazacağız ve bu kod dizisini "#include file" metoduyla, arama motorunun kullanılmasını istediğimiz sayfamıza dahil edeceğiz.
"arama.inc" Kodları
Kod:
<form name="arama" action="arama.asp" method="get">
<table border="1" cellpadding="3" cellspacing="0" width="120">
<tr><th colspan="2">Site İçi Arama</th></tr>
<tr><td align="right">Aranacak Sözcük :</td><td>
<input type="text" size="20" name="aranan"></td></tr>
<tr><td> </td><td><input type="submit" value="Gönder"></td></tr>
</table>
</form>Bu kodlar bize aşağıdaki görüntüyü sağlayacaktır, ve metin kutusuna yazılan metin (örneğin Deneme), Gönder düğmesine tıklandığında "arama.asp" sayfamıza "arama.asp?aranan=Deneme" şeklinde gönderilecektir.
Şimdi arama.asp sayfamızın kodlarını hazırlayalım;
Kod:
"arama.asp" Kodları "_" işareti satırın devam ettiğini göstermektedir
<% aranan = Request.QueryString("aranan") %>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-9">
<meta http-equiv="content-type" content="text/html; charset=windows-1254">
<title>Arama Sayfası : "<% =aranan %>" Sözcüğü Arama Sonuçları</title>
</head>
<body>
<h4>Sonuçlar</h4>
<%If Request.QueryString("aranan") = "" Then
Response.Write "<h5>Aranacak sözcüğü girin</h5>"
Response.Write "<br><a href=""javascript:window.history.back()""><h6>Geri</h6></a>"
Response.End
Else
aranan = Request.QueryString("aranan")End If %>
<% veritabani = Server.MapPath("databases/kayitlar.mdb")
baglantim = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="_ & veritabani
Set baglanti = Server.CreateObject("ADODB.Connection")baglanti.Open baglantim
Set kayitlar = Server.CreateObject("ADODB.RecordSet")
aramasql = "SELECT * FROM icerik WHERE metin LIKE '%" & aranan & "%'_ ORDER BY id ASC"
kayitlar.Open aramasql, baglanti, 1, 3
If kayitlar.RecordCount =< 0 Then
Response.Write "<h4>Site içeriğinde uygun kayıt bulunamadı...</h4>"
Response.Write "<h5>Aranan Sözcük : " & aranan & "</h5>"
Response.Write "<br><a href=""javascript:window.history.back()""><h6>Geri</h6></a>"
Response.End
End If
%>
<%
kayitlar.PageSize = 20
SayfaSayisi = kayitlar.PageCount
Kayitlar.AbsolutePage = sayfano
%>
<table width="740" border="0" cellpadding="0 cellspacing="0" align="left">
<tr><td valign="top" width="150"><br>Bulunan kayıt: <b>
<% =kayitlar.RecordCount %></b><br>
<%
If kayitlar.RecordCount > 20 Then %>
<br>Her sayfada <font color="#ff0000"><% =kayitlar.PageSize %></font>_
sonuç görüntülenmektedir.<br>
<% End If %>
<br><br></td>
<td valign="top" width="590">
<%
' Buradaki fonksiyon, aranan sözcüğü kırmızı renkte görüntüleyecek
' şekilde değiştirmektedir.
Function degistir(karakter)
duzelt = karakter
duzelt = Replace(duzelt, aranan, "<font style='color:#ff3333'><b>_
" & aranan & "</b></font>")
degistir = duzelt
End Function
%>
<table border="0" cellpadding="5" cellspacing="0" width="500">
<tr><td width="360" valign="top"><b>Metin</b></td></tr>
<%
For i = 1 To kayitlar.PageSize
If kayitlar.EOF Then Exit For
%>
<tr><td valign="top"><% =degistir(kayitlar("metin")) %></td></tr>
<%
kayitlar.MoveNextNext
%>
</table>
</td></tr>
<tr><td> </td><td>
<%
' aşağıdaki kodlar, bulunan kayıtlar bir sayfadan fazla ise, diğer
' sayfalara link oluşturmaktadır.
<%
If SayfaSayisi <> 1 Then
%>
<br><br> Diğer Sayfalar :
<%
For i = 1 To SayfaSayisiIf i <> SayfaNo Then
%>
<b>[<a href="arama.asp?sa=<% =i %>&aranan=<% =aranan %>"> <% =i %> </a>]</b>
<% Else %>
<b>[ <% =i %> ]</b><%End IfNextEnd If%></td></tr></table>
</td></tr>
</table>
<br>
<%
kayitlar.Close
Set kayitlar = Nothing
baglanti.Close
Set baglanti = Nothing
' temizlik yapalım, oluşturduğumuz sunucu nesnelerini kapatalım ki
' sunucumuz yorulmasın.
%>
</body>
</html>Bu kısa kodlar ile sayfanızda kayıtları alt alta görüntüleyebilirsiniz. Kısa metinler içeren kayıtlar için uygun olan bu tasarımda, uzun metinler içeren kayıtların olduğu sayfaların görüntülenmesi hoş olmayacaktır, bu durumda aşağıdaki satırları, altındakilerle değiştirerek kayıtlarınız için linkler oluşturabilir ve normalde kayıtlarınızı görüntülemek için kullandığınız sayfaya kayıtla ilgili bağlantı verebilirsiniz.
Görüntüleme sayfanızın kodlarını da yazın, dosya adı "goster.asp" olsun.
Kod:
<tr><td valign="top"><% =degistir(kayitlar("metin")) %></td></tr>
<a href="goruntule.asp?id=<% =kayitlar("id") %>"><% =kayitlar("baslik")_ %></a>Kodların işinize yaraması dileğiyle, çalışmalarınızda başarılar.
Alıntıdır.
