folder Tahribat.com Forumları
linefolder Asp - Php - Cgi - Perl
linefolder Arama Kısıtlaması Asp (Yardım)



Arama Kısıtlaması Asp (Yardım)

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DE5TROY3R
    DE5TROY3R's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek

    access de arama yaptırıyorum 3 harf den az olunca hata vermesini istiyorum



     if rs.eof then

    if  kelime <  3 then 'BURASI OLMADI :))
            response.write "<center><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><hr>Bu nickde kayıt bulunamadı veya 3 harfden küçük<hr></center>"

        else
            do while not rs.eof
            with response
             .write "<center>"
          
          
          
            .write "<p>Nicki "
            .write ""
                .write "<a href=kdetay.asp?id="
                 .write rs("id")
                 .write "&kid="
                 .write rs("kid")
                 .write ">"
     .write rs("baslik")
     .write "<br>"
                .write ""
             
                .write "Türü: "
                .write rs("detay")
                .write "<br>"
                .write "Level: "
                .write rs("telefon")
                .write "<br>"
                .write "<hr>"
                .write "</p</a>"
              
               
                .write "</center>"
            end with
            rs.movenext:loop
        end if
       
     

    %>

    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Fikret
    Fikret's avatar
    Kayıt Tarihi: 01/Ekim/2007
    Erkek

    len(kelime) < 3

    şeklinde olcak. len() fonksiyonu parantez içindeki değişkenin karakter sayısını verir ;) 

    screw you guys! i"m goin" hoooome!
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    angels_demos
    angels_demos's avatar
    Kayıt Tarihi: 03/Haziran/2006
    Erkek

    $öle olcak ;

    if len(kelime) < 3 then
    response.write "en az 3 kelime olsn"
    else

     KODLAR

    end if

    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DE5TROY3R
    DE5TROY3R's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek
    angels_demos bunu yazdı:
    -----------------------------

    $öle olcak ;

    if len(kelime) < 3 then
    response.write "en az 3 kelime olsn"
    else

    KODLAR

    end if


    -----------------------------

    böyle yapınca kelimeye ne yazarsan  "en az 3 kelime olsn" diyor

     -------

    if rs.eof  then
     
           response.write "<center><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><hr>Bu nickde kayıt bulunamadı !!!<hr></center>"
    response.end

    elseif len(kelime) < 3 then
    response.write "en az 3 kelime olsn"

      else
            do while not rs.eof
          
            with response
             .write "<center>"            yapınca da else deki sonuçları vermiyor (1 yazınca "en az 3 kelime olsn" diyor   2 yazınca Bu nickde kayıt bulunamadı !!! diyo:D)

    Reply With Quote Alıntı yap
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    FOXXLY
    FOXXLY's avatar
    Kayıt Tarihi: 19/Haziran/2006
    Erkek

    kelime=request.form("kelime")

     

    if len(kelime) =< 3 then
    response.write "en az 3 kelime olsn"
    else

    KODLAR

    end if

     

    şunu dne olmazsa

     

    if len(kelime) <= 3 then
    response.write "en az 3 kelime olsn"
    else

    KODLAR

    end if

    = in ne tarafda olduğunu unutum :D

    kelimeler albayım bazı anlamlara gelmiyor.
    Reply With Quote Alıntı yap
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Fikret
    Fikret's avatar
    Kayıt Tarihi: 01/Ekim/2007
    Erkek

    tam olarak yapmak istediğin şeyi söylersen gerekli döngüyü yazabiliriz :S

    screw you guys! i"m goin" hoooome!
    Reply With Quote Alıntı yap
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DE5TROY3R
    DE5TROY3R's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek
    f1kr3t bunu yazdı:
    -----------------------------

    tam olarak yapmak istediğin şeyi söylersen gerekli döngüyü yazabiliriz :S


    -----------------------------

     

    - arama yapınca  3 karakterden küçük ise hata vericek

    - kayıt bulmayınca hata vericek

    - kayıtı bulursa yazdırıcak

     -----

    kodların şuanki hali:

    <%
        ara=Request.Querystring("kelime")
    Set CeMedia = Server.CreateObject("ADODB.Recordset")

        Set CeMedia=Server.Createobject("Adodb.Connection")
            CeMedia.provider="Microsoft.Jet.Oledb.4.0"
            CeMedia.open Server.Mappath("databese.mdb")
        sor="select * from ilanlar where baslik like '%"&ara&"%' or baslik like '%"&ara&"%'"
        Set rs=CeMedia.execute(sor)
       
    if rs.eof  then
           response.write "<center><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><hr>Bu nickde kayıt bulunamadı !!!<hr></center>"

      else
            do while not rs.eof
                  with response
                .write "<center>"     
                .write "<p>Nicki "
                .write ""
                .write "<a href=kdetay.asp?id="
                .write rs("id")
                .write "&kid="
                .write rs("kid")
                .write ">"
                .write rs("baslik")
                .write "<br>"
                .write ""
                .write "Türü: "
                .write rs("detay")
                .write "<br>"
                .write "Level: "
                .write rs("telefon")
                .write "<br>"
                .write "<hr>"
                .write "</p</a>"
                .write "</center>"
            end with
            rs.movenext:loop

    end if
    %>

    ----- 

    Reply With Quote Alıntı yap
  8. KısayolKısayol reportŞikayet pmÖzel Mesaj
    camarade
    ontedi
    ontedi's avatar
    Kayıt Tarihi: 04/Eylül/2005
    Erkek

    strKelime = request.querystring("kelime") 'Filtreden geçirmeni tavsiye ederim.

    if len(strKelime) < 3 THEN
    Response.Write "Arama yapabilmek için en az 3 karakter girmeniz gerekmektedir."
         else
         set RS = Server.createObject("Adodb.Recordset")
         RS.OPEN "SELECT * FROM ilanlar WHERE baslik like '%"&strKelime&"%' or icerik like '%"&strKelime&"%'", VERİTABANI ŞEYSİ, 1, 3
         if RS.eof OR RS.bof THEN
         Response.write "Aradığınız kriterlere uygun birşey bulunamadı."
                else
                do while not RS.eof
                with Response
                .write "Başlık: "&RS("baslik")&""
                .write "İlan İçeriği: "&RS("icerik")&""
                end with
                RS.Movenext
                loop
                end if
                RS.Close
                set RS = Nothing
         end if

    Matematikçi ve Yazılımcı. http://www.ontedi.com ve http://www.cizgi.site Siteme beklerim herkesi.
    Reply With Quote Alıntı yap
  9. KısayolKısayol reportŞikayet pmÖzel Mesaj
    DE5TROY3R
    DE5TROY3R's avatar
    Kayıt Tarihi: 04/Nisan/2007
    Erkek
    ontedi bunu yazdı:
    -----------------------------

    strKelime = request.querystring("kelime") 'Filtreden geçirmeni tavsiye ederim.

    if len(strKelime) < 3 THEN
    Response.Write "Arama yapabilmek için en az 3 karakter girmeniz gerekmektedir."
    else
    set RS = Server.createObject("Adodb.Recordset")
    RS.OPEN "SELECT * FROM ilanlar WHERE baslik like '%"&strKelime&"%' or icerik like '%"&strKelime&"%'", VERİTABANI ŞEYSİ, 1, 3
    if RS.eof OR RS.bof THEN
    Response.write "Aradığınız kriterlere uygun birşey bulunamadı."
    else
    do while not RS.eof
    with Response
    .write "Başlık: "&RS("baslik")&""
    .write "İlan İçeriği: "&RS("icerik")&""
    end with
    RS.Movenext
    loop
    end if
    RS.Close
    set RS = Nothing
    end if


    -----------------------------

    oldu sonunda teşekkürler herkese:)

    filtre dedin accesin içindeki yermi filtre uygula var :) 

    Reply With Quote Alıntı yap
  10. KısayolKısayol reportŞikayet pmÖzel Mesaj
    FOXXLY
    FOXXLY's avatar
    Kayıt Tarihi: 19/Haziran/2006
    Erkek

    :S:S:S:S

    replace hocam replace :D

    böle kötü kaka kelimeleri sql inj. kelimelerini engelle yoksa seni engellerler :D 

     

    ama bi rivayete göre hava filitresi de bu işi gördüğü söyleniyor ontedi hocam hava filitresi kullanmış bi ara :/

    kelimeler albayım bazı anlamlara gelmiyor.
    Reply With Quote Alıntı yap
  11. KısayolKısayol reportŞikayet pmÖzel Mesaj
    ~$
    ComputerWolf
    ComputerWolf's avatar
    Üstün Hizmet Madalyası
    Kayıt Tarihi: 26/Mart/2003
    Erkek
    tahribat dokuman arsivine bak sql injection ile dokumanlar goreceksin onlari bir oku.Sonra ferruhmavitunanin sql inj dokumanlari ve senaryolarinada bak.
    Hep denedin. Hep yenildin. Olsun yine dene , yine yenil ama daha iyi yenil !
    Reply With Quote Alıntı yap
Toplam Hit: 1624 Toplam Mesaj: 11