Merhaba yapmakta oldugum sitem için database kayıt ettigim verilerimi bir arama kutusu sayesinde aramak istiyorum fakat bır turlu basaramadım kodlar ve yardımcı icerik aşşagıda detaylı olarak vereceğim bu konuda yardımlarınızı bekliyorum. Saygılarımla.
Database dosyam : db/vt.mdb
Kod İçeriği :
Ara.asp Sayfa kod içeriği
<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>
arama.asp sayfa kod içeriği
<% 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 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 "
<a href=""javascript:window.history.back()"">
<h6>Geri </h6>
[/url]"
Response.End
Else
aranan = Request.QueryString("aranan")End If %>
<% veritabani = Server.MapPath("db/vt.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 dokumanlar WHERE icerik 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 "
<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 kayıt:
<% =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üğü 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'>
_
" & aranan & "</font>")
degistir = duzelt
End Function
%>
<table border="0" cellpadding="5" cellspacing="0" width="500">
<tr>
<td width="360" valign="top">
İçerik</td>
</tr>
<%
For i = 1 To kayitlar.PageSize
If kayitlar.EOF Then Exit For
%>
<tr>
<td valign="top"><% =degistir(kayitlar("icerik")) %></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
%>
Diğer 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 yapalım, oluşturduğumuz sunucu nesnelerini kapatalım ki
' sunucumuz yorulmasın.
%>
</body>
</html>
Son olarak vt.mdb databasemın tablo durumu resimde
http://img373.yukle.tc/images/3282vt.jpg
Şimdiden teşekkür eder çalışmalarınızda başarılar dilerim. Saygılarımla.
Konu: Asp vertabanımda aram yapmak istiyorum (Okunma sayısı 754 defa)
Ağustos 09, 2007, 19:35:29 ÖS