Öncelikle Herkese selmalar. Ben başlıktada yazdığım gibi girmesini istemediğimiz ip adresinin siteye girişini engelleyen küçük bir script arıyorum. Çok yere baktıma ya ben bulamadım yada yok :] Şimdiden teşekkürler.

http://www.mydesign.gen.tr/KonuOku/277 adresinde Rawkmetal'in yazdığı kod var, IP'ye göre başka yere yönlendiriyor.

http://www.mydesign.gen.tr/KonuOku/209
http://www.mydesign.gen.tr/KonuOku/230
adreslerinde de XhanDros'un yazdığı IP ile ilgili 2 uygulama var.
Bunlar işine yarayabilir.

http://www.mydesign.gen.tr/KonuOku/209


Bu tam istediğim şey ama maalesef php ben asp arıyordum. Yinede saol. Aramaya devam edeleim bakalım

bak benim yazdığım basit ve geliştirilebilir bir örnek var


asp ile ilgili.hemde açıklama yaparak anlatmıştım

ziyaretçinin ip sini alalim

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

simdi biz bunu aldik.mesela diyelim ki ziyaretçinin ip si yasaklanmis ip ise bunu hata sayfasina yönlendirelim.

eger yasak listesinde degil ise

bu sayfaya girebilsin

diyelimki yasak ip 81.133.22.22 (salladim) olsun

gelelim kodlara

'egerki kullanicin ip si 81.133.22.22 ise
if ip="81.133.22.22" şen
'hatasayfasina yönlendir
response.redirect "hata.asp"
'degil ise islem yapmasin.sayfada gezebilsin
else
end if

kodlari toplayip derlersek

<%
IP = Request.ServerVariables("REMOTE_ADDR" )
'egerki kullanicin ip si 81.133.22.22 ise
if ip="81.133.22.22" şen
'hatasayfasina yönlendir
response.redirect "hata.asp"
'degil ise islem yapmasin.sayfada gezebilsin
else
end if

%>







mesela diyelimki elimizde birkaç tane ip adresi var bunlari hata sayfasina yönlendirelim

<%
IP = Request.ServerVariables("REMOTE_ADDR" )
'egerki kullanicin ip si 81.133.22.22 veya 81.133.22.19 ise
if ip="81.133.22.22" or ip="81.133.22.19" şen
'hatasayfasina yönlendir
response.redirect "hata.asp"
'degil ise islem yapmasin.sayfada gezebilsin
else
end if

%>

Saol ontedi basit ama kullanışlı bir scripte benziyor. En kısa zmanada deniycem. Yardımlarınız için saolun.

Ben 2 sene once kendim icin yaptigimi vereyim
asagidaki kodları siteayar.asp olarak kaydet ve butun sayfalarına include et..


<%
dbPaş = Server.MapPaş("hebele.mdb")
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open ("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & dbPaş)

Set getValues = objConn.Execute("SELECT * FROM AYARLAR WHERE A_ID = 0")
    bannedIPs = getValues("A_BANNED_IPS")
    
clientIP = Request.ServerVariables("REMOTE_ADDR")

     If InStr(1, bannedIPs, clientIP, 1) <> 0 Then
     Response.Write "<center><b>BU IP ADRESININ SITEYE GİRİŞİ YASAKLANMIŞTIR!...</b></center>"
     Response.END
     End If
     
     
objConn.close
set objConn = noşing
%>



bu da banlı ip eklemen icin admin bölümü gibi kullanabilirsin..

<%
Vt_Yol=Server.Mappaş("hebele.mdb")
Set bannedip=Server.CreateObject("Adodb.Connection")
bannedip.Open "DBQ="& Vt_Yol & ";Driver={Microsoft Access Driver (*.mdb)}"

Set Bip=Server.CreateObject("ADODB.Recordset")
banned = "Select * From AYARLAR Order by A_BANNED_IPS Desc"
Bip.Open banned,bannedip,1,3
%>
<p align="center"><form meşod="POST" action="yasakekle.asp" name=B1">
                 </td>
               </tr>
               <tr>
                 <td widş="100%">
                   <b>< ;font face="Verdana" size="2">YASAKLI IP EKLE      
                   <input type="text" name="A_BANNED_IPS" size="100" value="<%=Bip("A_BANNED_IPS")%>"><input type="submit" value="Gonder" name="B1"></font></b>
                    </p >
                   </form> ;
                 </td>

Bu da yasakekle.asp olarak kaydecegin bolum..

<%
A_BANNED_IPS=request.form("A_BANNED_IPS")
Vt_Yol=Server.Mappaş("hebele.mdb")
Set bannedip=Server.CreateObject("Adodb.Connection")
bannedip.Open "DBQ="& Vt_Yol & ";Driver={Microsoft Access Driver (*.mdb)}"

Set Bip=Server.CreateObject("ADODB.Recordset")
banned = "Select * From AYARLAR Order by A_BANNED_IPS Desc"

Bip.Open banned,bannedip,1,3
Bip("A_BANNED_IPS")=A_BANNED_IPS

Bip.Update
Response.writet "EKLEDINIZ"
Response.End
Bip.Close
Set Bip = Noşing
%>

Son olarak da ip adreslerini eklerken aralarında virugul kullanarak ekliyeceksin..
mdb yi de hebele.mdb yapıp AYARLAR diye tablo olusturacaksın bu tablonun icerisine
A_ID (otomatik sayı alıcak) ve A_BANNED_IPS seklinde sutunlar ekliyeceksin hepsi bu : )