ASP'de veritabanında gelişmiş arama sayfası mantığı

<%

Set rs = Nothing

Bag.Close

Set Bag = Nothing

%>

Arama formumuz hazır. Bu kodları, arama_form.asp adıyla kaydedin.

Dikkat ederseniz, form yollama metodunu get yaptık. Çünkü arama sonucunun gösterildiği sayfada, sayfalama sistemi gerekebilir. Ve diğer sayfalara geçerken, arama kriterlerini de diğer sayfaya aktarmak için bunları QueryString ile taşımamız gerekir. Bunun için de gerekli olan metot get metodudur'tir. Sayfalama yapmayacağınızı düşünüyorsanız post ile de verileri alabilirsiniz. Daha temiz bir görüntü olacaktır. Ama tavsiyem her zaman get 'tir.

ara.asp

Şimdi de arama sonucunun gösterildiği sayfayı hazırlayalım.

<%

Set Bag = Server.CreateObject("Adodb.Connection")

Bag.Open "Provider=Microsoft.Jet.Oledb.4.0; Data Source="& Server.MapPath("veritabani.mdb") &";"

Set rs = Server.CreateObject("Adodb.Recordset")

strKelime = Request.Querystring("kelime")

strYer = Request.Querystring("yer")

intKategori = Request.Querystring("kategori")

SQL = "SELECT * FROM Haberler WHERE Haber_ID >0 "

'Eğer anahtar kelime yazılmışsa, ilgili yerde arama yapalım

If strKelime <>"" Then

If strYer = "baslik" Then SQL = SQL & "AND Baslik LIKE '%"& strKelime &"%' "

If strYer = "ozet" Then SQL = SQL & "AND Ozet LIKE '%"& strKelime &"%' "

If strYer = "haber" Then SQL = SQL & "AND Haber LIKE '%"& strKelime &"%' "

If strYer = "hepsi" Then SQL = SQL & "AND (Baslik LIKE '%"& strKelime &"%' OR Ozet LIKE '%"& strKelime &"%' OR Haber LIKE '%"& strKelime &"%')"

End If

'Eğer bir kategori seçilmişse, sadece o kategorideki haberlerde arama yapalım

If intKategori <>"" AND IsNumeric(intKategori) Then

SQL = SQL & "AND Kategori_ID = "& CInt(intKategori) &" "

End If

Rs.Open SQL, Bag, 1, 3

If rs.Eof Then

' Bir sonuç bulunmadıysa, sayfaya uygun bir mesaj yazalım

Response.Write "Aradığınız kriterlere uygun sonuç bulunamadı."

Else

Do While Not rs.Eof %>

<%=rs("Baslik")%>

<%=rs("Ozet")%>

<%

rs.Movenext

Loop

End If

Rs.Close

Set rs = Nothing

Bag.Close

Set Bag = Nothing

%>

Bu sayfayı ise ara.asp olarak kaydedin.

Özellikle SQL değişkeninin oluşturulduğu satırlara dikkat ederseniz, bu tür arama sayfalarının nasıl oluşturulduğunu kolayca anlayabilir, kendi sitelerinizde kendinize özgü olarak uygulayabilirsiniz.