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üge 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,
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ı
<form name="arama" action="arama.asp" method="get">
<table border="1" cellpadding="3" cellspacing="0" width="120">
<tr><th colspan="2">Site Iç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;
"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 Sayfasi : "<% =aranan %>" Sözcügü Arama Sonuçlari</title>
</head>
<body>
<h4>Sonuçlar</h4>
<%If Request.QueryString("aranan") = "" Then
Response.Write "<h5>Aranacak sözcügü girin</h5>"
Response.Write "
<a href=""javascript:window.history.back()""><h6>Geri</h6>[/url]"
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çeriginde uygun kayit bulunamadi...</h4>"
Response.Write "<h5>Aranan Sözcük : " & aranan & "</h5>"
Response.Write "
<a href=""javascript:window.history.back()""><h6>Geri</h6>[/url]"
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">
Bulunan kayit:
<% =kayitlar.RecordCount %><%
If kayitlar.RecordCount > 20 Then %>
Her sayfada <font color="#ff0000"><% =kayitlar.PageSize %></font>_
sonuç görüntülenmektedir.
<% End If %>
</td>
<td valign="top" width="590">
<%
' Buradaki fonksiyon, aranan sözcügü kirmizi renkte görüntüleyecek
' sekilde degistirmektedir.
Function degistir(karakter)
duzelt = karakter
duzelt = Replace(duzelt, aranan, "<font style='color:#ff3333'>
_
" & aranan & "</font>")
degistir = duzelt
End Function
%>
<table border="0" cellpadding="5" cellspacing="0" width="500">
<tr><td width="360" valign="top">
Metin</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>
<%
' asagidaki kodlar, bulunan kayitlar bir sayfadan fazla ise, diger
' sayfalara link olusturmaktadir.
<%
If SayfaSayisi <> 1 Then
%>
Diger Sayfalar :
<%
For i = 1 To SayfaSayisiIf i <> SayfaNo Then
%>
>[<a href="arama.asp?sa=<% =i %>&aranan=<% =aranan %>"> <% =i %> [/url]]
<% Else %>
[ <% =i %> ]<%End IfNextEnd If%></td></tr></table>
</td></tr>
</table>
<%
kayitlar.Close
Set kayitlar = Nothing
baglanti.Close
Set baglanti = Nothing
' temizlik yapalim, olusturdugumuz sunucu nesnelerini kapatalim ki
' sunucumuz yorulmasin.
%>
</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.
<tr><td valign="top"><% =degistir(kayitlar("metin")) %></td></tr>
<a href="goruntule.asp?id=<% =kayitlar("id") %>"><% =kayitlar("baslik")_ %>[/url]
Kodların işinize yaraması dileğiyle, çalışmalarınızda başarılar.
Ekleyen: admin
Konu: ASP'de Site İçi Arama Motoru (Okunma sayısı 5659 defa)
Haziran 22, 2010, 21:44:21 ÖS