folder Tahribat.com Forumları
linefolder Asp - Php - Cgi - Perl
linefolder Aspede Tek İpye İzin Vermek



Aspede Tek İpye İzin Vermek

  1. KısayolKısayol reportŞikayet pmÖzel Mesaj
    lanetlicocuk
    lanetlicocuk's avatar
    Kayıt Tarihi: 30/Ekim/2003
    Erkek
    arkadaşlar elimde kendi yazdığım bir portal var ama bunasadece izin verdiğim ip adreslerinin girmesini istiyorum bunu nasıl yapacam?

    Şişirdi Beş-On Adam, Yaptı Balon Adam, Ötekşndende Basit, Vallahi Bu Son Adam.(Abdurrahim KARAKOÇ Kan Yazısı Kitabının Balon Adam Kısmının Giriş Kıtası)
  2. KısayolKısayol reportŞikayet pmÖzel Mesaj
    a4tech
    a4tech's avatar
    Kayıt Tarihi: 21/Temmuz/2005
    Erkek
    asp den anlamam ama mantığını söyleyeyim. Öncelikle FSO nesnesini kullanman gerekiyor. istersen db lie yapabilirsin ama her sayfada sorgunun çalışması ipler arttıkça sorun olacaktır. ben dosya kullanmanı tavsiye ederim. şimdi bi tane izinliler.txt olsun bu dosyada senin izin verdiğin ipler yer alacak. daha sonra scriptte kullanıcının ip adresini alacaksın ve fso nesnesi ile izinliler.txt yi okutup karşılaştıracaksın. eğer ziyaretçinin ip adresi izinliler.txt dosyasında var ise geç diyeceksin yok ise hata verdireceksin. Mantığı budur.Mantıkda program demektir ;)))
  3. KısayolKısayol reportŞikayet pmÖzel Mesaj
    lanetlicocuk
    lanetlicocuk's avatar
    Kayıt Tarihi: 30/Ekim/2003
    Erkek
    a4tech bunu yazdı:


    asp den anlamam ama mantığını söyleyeyim. Öncelikle FSO nesnesini kullanman gerekiyor. istersen db lie yapabilirsin ama her sayfada sorgunun çalışması ipler arttıkça sorun olacaktır. ben dosya kullanmanı tavsiye ederim. şimdi bi tane izinliler.txt olsun bu dosyada senin izin verdiğin ipler yer alacak. daha sonra scriptte kullanıcının ip adresini alacaksın ve fso nesnesi ile izinliler.txt yi okutup karşılaştıracaksın. eğer ziyaretçinin ip adresi izinliler.txt dosyasında var ise geç diyeceksin yok ise hata verdireceksin. Mantığı budur.Mantıkda program demektir ;)))


    :P eywalla saolasında geç diecek scripti nasıl yazacam? veya ne kullanıca yazaker

    Şişirdi Beş-On Adam, Yaptı Balon Adam, Ötekşndende Basit, Vallahi Bu Son Adam.(Abdurrahim KARAKOÇ Kan Yazısı Kitabının Balon Adam Kısmının Giriş Kıtası)
  4. KısayolKısayol reportŞikayet pmÖzel Mesaj
    polymorphic
    polymorphic's avatar
    Kayıt Tarihi: 16/Eylül/2005
    Erkek

    Al sana bakalım Veritabanında metin türünden IP adında bir sütun bulunacak...O kadar veritabanı bağlantısını yazmama gerek yok her halde ? :)


     


    <%


    sql = "SELECT * FROM ip "
    Set rs = Server.CreateOBject("ADODB.Recordset")
    rs.Open sql, bag, 1, 3
         
    %>
    <%
    Dim BenimIP
    BenimIP = Request.ServerVariables("REMOTE_ADDR")
    if InStr(BenimIP, ip) > 0 Then
    Response.write "<center><font color=ffffcc face=verdana size=2>Giriş onaylandı.</font></center>"
    Else
    Response.redirect "Yasak.Asp"
    End if
    %>


    Real programmers can write assembly code in any language. :-)
  5. KısayolKısayol reportŞikayet pmÖzel Mesaj
    polymorphic
    polymorphic's avatar
    Kayıt Tarihi: 16/Eylül/2005
    Erkek
    Ha bu arada verdiğim bu kod db'deki ilk IP yi okur sen döngüye sokarak sanırım bu işi halledebilirsin :)

    Real programmers can write assembly code in any language. :-)
Toplam Hit: 1248 Toplam Mesaj: 5