Asp Kod Yardım

<%
IP = Request.ServerVariables("REMOTE_ADDR")

Set conn=Server.CreateObject("Adodb.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};pwd=**********;DBQ=" & Server.MapPath("******.mdb")

set rs = Server.CreateObject("ADODB.Recordset")
strsql = "Select * from tablo123 WHERE IP = '" &IP& "'"
rs.open strsql,conn,1,3

if NOT rs.eof then
response.write "Bu IP Yasaklanmıştır."
response.end
end if

rs.close
set rs = nothing
conn.close
set conn = nothing
%>

NE YAPTIMSA KODU İÇİNE EKLEDİM ASP DOSYASINA GİRİŞTE ıP KISITLAMASINI UYGULATAMADIM GELEN GİRİYO GİDEN GRİYO (NOT PANEL GİRİŞ SAYFASI İÇİN BU KOD (PENCERE.ASP) YANI BU KODLARIDA ONUN İÇİNE AYZDIM MDB YEDE İSTEDİĞİM IP YAZDIM BI TOBLO OLUSTURDUM BIRINE ID yaptın totomatik sayı verdim bir diyer alana IP yaptım metin dedim  IP alan altına istediğim ip ayzdım ama olmuyo acil yardım Tşkler

IP alanı metin olmaz.
Not yapman gerekir.

tşkler hemen deniyorum

[ Tüm kodu seç ] [ Yeni Pencerede Göster ]

<% If Request.ServerVariables("REMOTE_ADDR") = "256.136.56.455" Then response.write "İp Girişiniz Kısıtlanmıstır" response.end end if %>

İp kısmınıda degiştrebilir genisletebilirsin.
response.write'yide kafana qöre ayarla

ugrasma veritabanı filan

bektash

[ Tüm kodu seç ] [ Yeni Pencerede Göster ]

<% If Request.ServerVariables("REMOTE_ADDR") = "256.136.56.455" Then response.write "İp Girişiniz Kısıtlanmıstır" response.end end if %>

İp kısmınıda degiştrebilir genisletebilirsin.
response.write'yide kafana qöre ayarla

ugrasma veritabanı

İyi güzel diyorsun da,
Bu kod sadece tek IP adresi için geçerli olur. Bir IP Daha banlamak istediğinde ASP dosyasının içeriğiyle oynaması gerekecek.

Sence kullanışlı mı?

bak access ile uğraşma mysql yada sqlserver geç