ASP' de Site İçi Arama Motoru

**Aytaç** · 07-14-2006

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,

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;

"arama.asp" Kodları "_" işareti satırın devam ettiğini göstermektedir.

Kod:
<% aranan = Request.QueryString("aranan") %>
<html>
<head>
<**** **********="content-type" content="text/html; charset=ISO-8859-9">
<**** **********="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.Op en 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.

07-14-2006	#1
Aytaç AkdenizForum Kankası Türkiyenin En Kaliteli Bilgi Paylasim Mekani AKdenizForum.. Kullanıcı Bilgileri Üyelik Tarihi: Jul 2006 Yaş: 23 Mesajlar: 567 Üye No: 105 Extra Bilgiler Tecrübe Puanı: 44 Rep Gücü : 59 Rep Derecesi : İletişim	ASP' de Site İçi Arama Motoru 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, 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; "arama.asp" Kodları "_" işareti satırın devam ettiğini göstermektedir. Kod: <% aranan = Request.QueryString("aranan") %> <html> <head> <** ******="content-type" content="text/html; charset=ISO-8859-9"> < *******="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.Op en 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. ๑۩۞۩. Fëanor Fëfalas. ۩۞۩๑

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	son Mesaj
Vbulletin Için Arama Motoru Optimizasyonu	dEHSEt	Vbulletin Genel Ayarları Ve Eklentileri	0	05-16-2007 06:35 PM
Arama Motoru Optimizasyonu	dJ_FoxX	Webmaster Genel	0	05-13-2007 05:46 PM
Google ile hack 2	Brad-Let	WebSite Security	0	08-01-2006 12:33 PM
Site Mail Listesi Çalma	Brad-Let	WebSite Security	0	07-27-2006 06:59 AM

Seçenekler
Yazdırılabilir şekli göster Sayfayı E-Mail olarak gönder