folder Tahribat.com Forumları
linefolder Asp - Php - Cgi - Perl
linefolder Asp İle Koşullu Link (Sql Yemeden) Nasıl Yapılır ?



Asp İle Koşullu Link (Sql Yemeden) Nasıl Yapılır ?

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    yawuz
    yawuz's avatar
    Kayıt Tarihi: 17/Temmuz/2005
    Erkek

    Şimdi arkadaşlar veritabanımızda veriler var bunları türlerine göre listelemek istiyoruz mesela

    jpg dosyalar
    .exe dosyalar
    .pdf dosyaları

    diye linklerimiz olacak ve tıkladığımızda bunları listeleyecek asp ve accsess kullanıcaz bu arada güvenli bir şekilde olmalı

    tahribat.com a can feda
    Reply With Quote Alıntı yap
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    Hermes
    hermesthecat
    hermesthecat's avatar
    Kayıt Tarihi: 21/Mayıs/2007
    Erkek

    id ye göre sıralcaksan id nin sayı olup olmadıqına bakabılırsın if ile hacı.

    az insan çok huzur. | https://dnscheck.tr
    Reply With Quote Alıntı yap
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    knuckle
    knuckle's avatar
    Kayıt Tarihi: 26/Aralık/2009
    Erkek

    En güvenilir yolu rakamlarla çalışmak kuşkusuz. Dosya türlerine birer rakam atabilir, dosya bilgilerini sakladığın tablonda "tur" sütunu oluştrabilir ve bu rakamları burada kullanabilirsin. Mesela şöyle birşey;

    <%@Language = VBScript CodePage = 1254 %>

    <%

    '1- JPG Dosyaları

    '2- Exe Dosyaları

    '3- PDF Dosyaları

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

    adoBag.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.Mappath("veriler.mdb") &

    ";"

    Dim intTur: intTur = Request.QueryString("tur")

    If Len(intTur) = 0 Or IsNumeric(intTur) = False Then intTur = 1

    Set rsDosyalar = adoBag.Execute("Select ad,boyut,tarih From tblDosyalar Where tur = "& intTur)

    With Response

    If rsDosyalar.Eof Then .Write("Hiç Dosya Yok")

    While Not rsDosyalar.Eof

    .Write(rsDosyalar("ad")) & "<br />"

    .Write(rsDosyalar("boyut")) & "<br />"

    .Write(rsDosyalar("tarih")) & "<br />"

    rsDosyalar.Movenext

    Wend

    End With

    Set rsDosyalar = Nothing

    adoBag.Close

    Set adoBag = Nothing

    %>

    fazla uzaklaşmış olamaz...
    Reply With Quote Alıntı yap
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    yawuz
    yawuz's avatar
    Kayıt Tarihi: 17/Temmuz/2005
    Erkek

    şimdi bunu linke bağlayıp nasıl istediğim türdekileri listelerim?

    tahribat.com a can feda
    Reply With Quote Alıntı yap
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    NmC
    NmC's avatar
    Kayıt Tarihi: 23/Kasım/2008
    Erkek

    dosya_goster.asp?tur=1

    select * from tablo where tur=degiskenin

    tabi bu tur degiskenini filitreleyip ondan sonra sql'e sokman lazim :)

    There are 10 types of people in the world. Those who knows binary and those who dont...
    Reply With Quote Alıntı yap
  6. KısayolKısayol reportŞikayet pmÖzel Mesaj
    renegadealien
    renegadealien's avatar
    Üstün Hizmet Madalyası Savaş Madalyası Başarı Madalyası Üstün Hizmet Madalyası Developer Madalyası
    Kayıt Tarihi: 23/Mart/2003
    Erkek

    bi fonksiyonla < > " ' -- ; bunların kullanımını yasakla stringde kullanabilrisin hocam...

    10.05.2013 tarihli google arama sonucu : Aradığınız - "herşeyin hayırlısı rampanın bayırlısı" - ile ilgili hiçbir arama sonucu mevcut değil. Kendi özlü sözümdür, kaynak belirterek kullanınız.
    Reply With Quote Alıntı yap
  7. KısayolKısayol reportŞikayet pmÖzel Mesaj
    biri
    biri's avatar
    Kayıt Tarihi: 03/Ocak/2009
    Erkek

    Function inject(Str)
    Str = Replace(Str, "*", "[YASAK]",1,-1,1)
    Str = Replace(Str, "=", "[YASAK]",1,-1,1)
    Str = Replace(Str, "<", "[YASAK]",1,-1,1)
    Str = Replace(Str, ">", "[YASAK]",1,-1,1)
    Str = Replace(Str, ";", "[YASAK]",1,-1,1)
    Str = Replace(Str, "(", "[YASAK]",1,-1,1)
    Str = Replace(Str, ")", "[YASAK]",1,-1,1)
    Str = Replace(Str, "+", "[YASAK]",1,-1,1)
    Str = Replace(Str, "#", "[YASAK]",1,-1,1)
    Str = Replace(Str, "'", "[YASAK]", 1, -1, 1)
    Str = Replace(Str, "&", "[YASAK]", 1, -1, 1)
    Str = Replace(Str, "%", "[YASAK]", 1, -1, 1)
    Str = Replace(Str, "?", "[YASAK]", 1, -1, 1)
    Str = Replace(Str, "´", "[YASAK]", 1, -1, 1)
    Str = Replace(Str, ",", "[YASAK]",1,-1,1)
    Str = Replace(Str, "UNION", "[YASAK]",1,-1,1)
    Str = Replace(Str, "SELECT", "[YASAK]",1,-1,1)
    Str = Replace(Str, "WHERE", "[YASAK]",1,-1,1)
    Str = Replace(Str, "LIKE", "[YASAK]",1,-1,1)
    Str = Replace(Str, "FROM", "[YASAK]",1,-1,1)
    Str = Replace(Str, "UPDATE", "[YASAK]",1,-1,1)
    Str = Replace(Str, "INSERT", "[YASAK]",1,-1,1)
    Str = Replace(Str, "ORDER", "[YASAK]",1,-1,1)
    Str = Replace(Str, "GROUP", "[YASAK]",1,-1,1)
    Str = Replace(Str, "ALTER", "[YASAK]",1,-1,1)
    Str = Replace(Str, "ADD", "[YASAK]",1,-1,1)
    Str = Replace(Str, "MODIFY", "[YASAK]",1,-1,1)
    Str = Replace(Str, "RENAME", "[YASAK]",1,-1,1)
    Str = Replace(Str, Chr(39), "[YASAK]", 1, -1, 1)
    If InStr(1,Str,"[YASAK]",1) then
    Response.Redirect "/Default.asp"
    end if
    inject = Str
    End Function

    inject(request.querystring("tur"))

    diye filtre yapabilirsin bu konuda döküman yazmıştım

     

    http://www.tahribat.com/Dokuman-Asp-Sql-Injection-Engelleme-272/

    ¯\(ツ)/¯ ฏ๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎๎
    Reply With Quote Alıntı yap
Toplam Hit: 1167 Toplam Mesaj: 7