Arama Motoru Daha Kaliteli Arama?

[0sk1]

Arkadaşlar bir arama motoru projem var şimdi şöyle yaptım;

<%
Dim Kelimeler,Kelimeler2
Kelimeler=request.QueryString("Ara")
Kelimeler2=request.QueryString("Ara")

Function Degistir(veri)
veri=replace(veri," ","%' or SAdi LIKE '%")
Degistir=veri
End Function
Function Degistir2(veri2)
veri2=replace(veri2," ","%' or Sicerik LIKE '%")
Degistir2=veri2
End Function
%>[/CODE]

Yukarıda replaceleri belirttim..

Daha Sonra SQL Sorgusunu şu şekilde yaptım

[CODE]select * from Ara where Sicerik like '%" & Degistir(Kelimeler) & "%' Or Sicerik like '%" & Degistir2(Kelimeler2) & "%'[/CODE]

Birazcık karışık oldu ama amacıma ulaştım sayılır örneğin

Merhaba TNCTR olarak Aradığımızda sorgulanan sql kodu

[CODE]select * from Ara where Sicerik like '%Merhaba%' or SAdi LIKE '%TNCTR%' Or Sicerik like '%Merhaba%' or Sicerik LIKE '%TNCTR%'[/CODE]

Oluyor Böylece Yazdığım Her Kelime için sayfa başlıkları ve içeriklerinde arıyor herhangi bi bir kelimeye başlıkta ya da içerikte rastlarsa gösteriyor .. daha nasıl geliştirebilirim yardımlarınızı bekliyorum..

[0sk1]

Arkadaşlar bi fikri olan yok mu?

Tablo Yapısı:

Sadi varchar 8000 > Site Adı

Sicerik varchar 8000 > Aciklama

SLink varchar 8000 > Link

SGosterme int 4 > Gosterilme Sayısı

[wmismail]

Osk1 daha kaliteli arama nasıl oluyor ya Like kullanıyorsun işte. Like kelime içinde bulduğunu seçer. mesela kullanıcı ism diye arattı. wmismail seçilir. Bunun daha kalitelisi nasıl olur

[0sk1]

hayır ama şunu diyorum kelimeleri 2 şerli gruplara ayırır öyle like nasıl yaparım belki bi söyleyen olur dedim ama..

[wmismail]

Şöyle yapcan öyleyse

Kaç kelime gelmişse ona göre bir for döngüsü alacaksın ve kelime sayısınca replace yapıp yerine koydurcaksın