cemm Posted December 3, 2007 Share Posted December 3, 2007 herkese selamlar konuyu dogru yere mi actım bilmiyorum ama yanlıs acmıssam herkesten ozur dilerim... bana bir program, veritabanı bilmiyorum artık adı neyse lazım (bitirme tezim icin)... yapacagı islem su: makaleler yukleyecegim ve mesela "park" kelimesini aratacagım...yalnız sonucları bana "park" kelimesinin gectigi cumleleri sıralayarak verecek, ayrıca "park" kelimesinin ek almıs ya da deyim seklindeki kullanımlarını da ayrıca gösterecek ve tabiki epey bir makaleyi kaldırabilecek...makale takibi isminde bir program buldum ancak program kelimeleri makalede gecen yerlerde gosteriyor yani sıralamıyor,ve tek tek makalelere bakmak gerekiyor, ayrıca 30-40 civarı makaleden sonra program kafayı sıyırdı...tabi bu arada ben de sıyırdım... pufff access'te yapabilirmiyim diye ugrastım ama hicbirsey anlamadım... yardımcı olabilir misiniz? ne yapmalıyım? herkese tesekkur ederim (baslıga ne yazacagımı bilemedim kusura bakmayın) Link to comment Share on other sites More sharing options...
Bultar Posted December 3, 2007 Share Posted December 3, 2007 DİKKAT: Konu Başlığını forum Kurallarına gore yeniden düzenleyiniz. Aksi halde cope tasınacaktır. Forum Kuralları - [ Madde 16 ] Konu düzenlenene kadar yazılan tüm iletiler silinecektir. Link to comment Share on other sites More sharing options...
wmismail Posted December 4, 2007 Share Posted December 4, 2007 ya asp bilgin azıcık varsa ne demek istediğimi anlayacaksın. default.asp diye bir dosya oluştur. <form action="?kelime=sorgu" methot="post"> <input type="text" name="kelime"> <input type="submit" value="Aramaya başla !"> <% 'gönderdiğimiz kelime gelmişse; if request("kelime") = "sorgu" then 'vt bağlantısı yaptık set wmismail = server.createobject("adodb.connection") wmismail.open "Provider=Microsoft.Jet.Oledb.4.0, data source=" & server.mappath("db.mdb") kelime = request("kelime") 'sonra sql sorgusu yapacağız. set rs = wmismail.execute("select * from TABLOADI where CUMLELER ="&kelime&" ") 'şimdi cümleleri bulacak. Sonra yazdıralım.. %> <% do while not rs.eof %> <%=rs("CUMLERLER")%> <% rs.movenext : loop %> bu kadar. Hatalarım olabilir. Hızlı yazdım. Zatan mantığını anlatmak için yazdım. İyi çalışmalar. Sonun olursa yazarsın. Link to comment Share on other sites More sharing options...
cemm Posted December 4, 2007 Author Share Posted December 4, 2007 ya asp bilgin azıcık varsa ne demek istediğimi anlayacaksın.default.asp diye bir dosya oluştur. <form action="?kelime=sorgu" methot="post"> <input type="text" name="kelime"> <input type="submit" value="Aramaya başla !"> <% 'gönderdiğimiz kelime gelmişse; if request("kelime") = "sorgu" then 'vt bağlantısı yaptık set wmismail = server.createobject("adodb.connection") wmismail.open "Provider=Microsoft.Jet.Oledb.4.0, data source=" & server.mappath("db.mdb") kelime = request("kelime") 'sonra sql sorgusu yapacağız. set rs = wmismail.execute("select * from TABLOADI where CUMLELER ="&kelime&" ") 'şimdi cümleleri bulacak. Sonra yazdıralım.. %> <% do while not rs.eof %> <%=rs("CUMLERLER")%> <% rs.movenext : loop %> bu kadar. Hatalarım olabilir. Hızlı yazdım. Zatan mantığını anlatmak için yazdım. İyi çalışmalar. Sonun olursa yazarsın. usta tesekkur ederim yardımcı olmussun ama sorunda burda iste hic bi bilgim yok :pardon: yine de saol Link to comment Share on other sites More sharing options...
ICHTUS Posted December 4, 2007 Share Posted December 4, 2007 webten mi bağlanman gerekiyor program demişsin? ayrıca access veritabanı bu dediğini kaldırmaz Link to comment Share on other sites More sharing options...
cemm Posted December 4, 2007 Author Share Posted December 4, 2007 webten mi bağlanman gerekiyor program demişsin? ayrıca access veritabanı bu dediğini kaldırmaz yok webten baglanmayacak...yani baglı olmayan bir makineden kullanacagım Link to comment Share on other sites More sharing options...
wmismail Posted December 5, 2007 Share Posted December 5, 2007 webten mi bağlanman gerekiyor program demişsin? ayrıca access veritabanı bu dediğini kaldırmaz ~1000 kayıta kadar sorun çıkartmaz.Program değil iis den o kodlarla yapabilirsiniz. Link to comment Share on other sites More sharing options...
cemm Posted December 5, 2007 Author Share Posted December 5, 2007 ~1000 kayıta kadar sorun çıkartmaz.Program değil iis den o kodlarla yapabilirsiniz. hemen deniyorum usta.. Link to comment Share on other sites More sharing options...
wmismail Posted December 6, 2007 Share Posted December 6, 2007 Günümüzde neredeyse tüm web siteleri içerik olarak veritabanina dayanan bir tasarimla hazirlaniyor. Bunun içIn ASP ve PHP dilleri kullaniliyor. ASP ile hazirlanan tasarimlarda da agirlikli olarak MS Access veritabani dosyalari kullaniliyor. Hazirlamis oldugunuz web sitesi böyle bir siteyse, site içine bir arama motoru hazirlayabilirsiniz. Böylece, ziyaretçileriniz veritabaninda bulunan kayitlarda, istedikleri bir veya birkaç sözcüge göre arama yapip, bulunan kayitlari listeleyebilir ve istedikleri kaydi seçerek ekranda görüntüleyebilirler. Bu yazimizda ayrintili olarak bir site içi arama motoru tasarimini anlatacagiz. ASP bilginizin oldugunu varsayarak ayrintili bilgi verilmeyecektir. Öncelikle veritabani dosyamizi hazirlayalim; MS Access ile yeni bir dosya olusturun, adi "kayitlar.mdb" olsun, bu veritabani dosyasinin içinde "icerik" adinda bir tablo bulunsun, tablomuzdaki alanlar ise, <b>ID : Otomatik sayi (Birincil Anahtar) baslik : String (255 karakter) metin : Not</b> eklinde olsun. Bu veritabaninda ID, kayitlarimizin kimlik numarasini tutacak ve otomatik sayi olacak, "baslik" alaninda, ilgili bölümün basligi olacak, "metin" alaninda ise ilgili sayfanin içerigine ait kodlar bulunacak. Arama motorumuz bu tablonun "metin" alanini kullanacak. Kodlarimizda SQL dilinin "Like" komutu ve VBScript' In "Replace" komutu anahtar olarak görev yapacak. Veritabanina ait kayitlarin görüntülendigi sayfalarin hazir oldugunu varsayarak, "arama.asp" adinda bir sayfa hazirlayacagiz, bundan önce, "arama.inc" adinda bir kod dizisi yazacagiz ve bu kod dizisini "#include file" metoduyla, arama motorunun kullanilmasini istedigimiz sayfamiza dahil edecegiz. "arama.inc" Kodlari <b><form name="arama" action="arama.asp" method="Get"> <table border="1" cellpadding="3" cellspacing="0" width="120"> <tr><th colspan="2">Site Iç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></b> Bu kodlar bize asagidaki görüntüyü saglayacaktir, ve metin kutusuna yazilan metin (örnegin Deneme), Gönder dügmesine tiklandiginda "arama.asp" sayfamiza "arama.asp?aranan=Deneme" seklinde gönderilecektir. Simdi arama.asp sayfamizin kodlarini hazirlayalim; "arama.asp" Kodlari "_" isareti satirin devam ettigini göstermektedir. <b><% 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 Sayfasi : "<% =aranan %>" Sözcügü Arama Sonuçlari</title> </head> <body> <h4>Sonuçlar</h4> <%If Request.QueryString("aranan") = "" Then Response.Write "<h5>Aranacak sözcügü girin</h5>" Response.Write " <a href=""java script: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.Open 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çeriginde uygun kayit bulunamadi...</h4>" Response.Write "<h5>Aranan Sözcük : " & aranan & "</h5>" Response.Write " <a href=""java script: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"> Bulunan kayit: <b> <% =kayitlar.RecordCount %></b> <% 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ügü kirmizi renkte görüntüleyecek ' sekilde degistirmektedir. 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> <% ' asagidaki kodlar, bulunan kayitlar bir sayfadan fazla ise, diger ' sayfalara link olusturmaktadir. <% If SayfaSayisi <> 1 Then %> Diger 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> <% kayitlar.Close Set kayitlar = Nothing baglanti.Close Set baglanti = Nothing ' temizlik yapalim, olusturdugumuz sunucu nesnelerini kapatalim ki ' sunucumuz yorulmasin. %> </body> </html></b> Bu kisa kodlar ile sayfanizda kayitlari alt alta görüntüleyebilirsiniz. Kisa metinler içeren kayitlar içIn uygun olan bu tasarimda, uzun metinler içeren kayitlarin oldugu sayfalarin görüntülenmesi hos olmayacaktir, bu durumda asagidaki satirlari, altindakilerle degistirerek kayitlariniz içIn linkler olusturabilir ve normalde kayitlarinizi görüntülemek içIn kullandiginiz sayfaya kayitla ilgili baglanti verebilirsiniz. Görüntüleme sayfanizin kodlarini da yazin, dosya adi "goster.asp" olsun. <b><tr><td valign="top"><% =degistir(kayitlar("metin")) %></td></tr> <a href="goruntule.asp?id=<% =kayitlar("id") %>"><% =kayitlar("baslik")_ %></a></b> Link to comment Share on other sites More sharing options...
wmismail Posted December 11, 2007 Share Posted December 11, 2007 .chm kullanabilrisin. Şimdi aklıma geldi. Çok kolay yapılıyor zaten chm pgoramlarıyla. Link to comment Share on other sites More sharing options...
cemm Posted December 14, 2007 Author Share Posted December 14, 2007 o nasıl yapılır acaba? Link to comment Share on other sites More sharing options...
wmismail Posted December 14, 2007 Share Posted December 14, 2007 forumda chm diye arattır. Bulduğun bir programda yapabilirsin. Progrtamların hepsi zaten aynı görevi yapıyor. Bir tanesini indir ve kullanmayı dene. Dönüşütrdüğünde senin için program karşına çıkacak. Arama da yapılabiliyor. Link to comment Share on other sites More sharing options...
cemm Posted December 24, 2007 Author Share Posted December 24, 2007 yaklasık 25 gundur surekli bununla ugrastım ve sonundaaa "beceremedim.." Link to comment Share on other sites More sharing options...
wmismail Posted December 25, 2007 Share Posted December 25, 2007 tamam arkadaşım. yazıları upload et. adresi PM at. Ben yapim bari:) Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.