find=request.querystring("deger")
kelimeler = split(find, " ")
For i = 0 to UBound(kelimeler)
arama=arama&"baslik like '%"&kelimeler(i)&"%' or icerik like '%"&kelimeler(i)&"%' or "
next
arama=Mid(arama,1,len(arama)-3)
Dim Bag, Siteler, SQLTop, TopKayit
Dim KayitSayisi, SayfaSayisi, Sayfa, i

KayitSayisi = 10
If Request.QueryString("s") <> "" Then
Sayfa = CInt(Request.QueryString("s"))
Else
Sayfa = 1
End If

Set sorgus = baglantim.Execute("SELECT * FROM sikayet where " & arama & " ORDER BY id DESC LIMIT " & (KayitSayisi*Sayfa)-(KayitSayisi) & "," & KayitSayisi)
sqlsorgutop="SELECT COUNT(id) FROM sikayet where "&arama
Set SQLTop = baglantim.Execute(sqlsorgutop)
TopKayit = SQLTop(0)

--R10.NET; Flood Engellendi -->-> Yeni yazılan mesaj 20:35:55 -->-> Daha önceki mesaj 20:32:29 --

yukarıdaki kod baslik ve icerik sayfalarında girilen kelime veya kelime öbeğini arama yapar, mantığı ise önce request.querystring ile alınan kodu boşluklara göre ayırır ve bir döngü ile bu kelimeleri iki tablo içeriğinde aranacak şekilde arama değişkenine aktarır. mid fonksiyonu ile arama değişkeninin sonuna eklenen zararlı karakterler temizlenir ve arama değişkeni alt kısımdaki sorguya parametre olarak gönderilir. inşallah yardımcı olmuştur.

eğer tek kelime üzerine arama yapacaksanız yazın düzenleyim