IP'ye göre yönlendirme yapmak

19-11-2008, 00:04:03

Merhabalar,

Bu verdigim kodlarla ip adreslerine göre sayfanızı yönlendirme yapabilirsiniz. Mesela atıyorum almanya dan yada türkiyeden sitenize giriş yapılmasını istemiyorsunuz. ilk önce o ülkeye ait IP bloklarını bulup kodda yerine yerleştirirsiniz. Ben örnek olarak 3 ip adresi yazdım. İp adreslerini çoğaltabilirsiniz

Kodlama

<%
if not Request.ServerVariables("REMOTE_ADDR")="" Then
if (mid(Request.ServerVariables("REMOTE_ADDR"),1,8)="212.252." or mid(Request.ServerVariables("REMOTE_ADDR"),1,7)="86.108." or mid(Request.ServerVariables("REMOTE_ADDR"),1,5)="81.6.") Then%>

Bu ip adresinden sitemize giriş yasaktır.
(Bu bölüm tanımladığınız ip adreslerinden giriş yapanlara gösterilecek sayfadır. Response komutu ile istediginiz baska bir sayfayada yönlendirebilirsiniz)

<%else%>

Bu bölüm de bu ip dışında kalan ziyaretçiler için gösterilecek sayfadır. 

<%end if
  end if%>

Kodda dikkat edilmesi gereken kısım ("REMOTE_ADDR"),1,5)="81.6.") bu bölümde 81.6 ile baslayan ve devam eden ip leri kısıtladık. "81.6.") kısmını Noktalarla beraber sayıp 1,5 kısmını ona göre verdik ("REMOTE_ADDR"),1,5)

24-11-2008, 04:00:35

#2

Tescillet

Güzel Bir Paylaşım Teşekkürler

24-11-2008, 11:05:33

#3

A3raham

Güzel bilgi.
Teşekkürler.

09-12-2008, 17:54:45

#4

karga

Kimlik doğrulama veya yönetimden onay bekliyor.

pek alakası yok ama
<%
Dim ipno
Dim Toplam
Dim Ip_Array(5)
ipno = Request.ServerVariables("REMOTE_ADDR" )
Toplam = 5
Ip_Array(0) = "88.250.236.169"
Ip_Array(1) = ""
Ip_Array(3) = ""
Ip_Array(4) = ""
Ip_Array(5) = ""
For I = 0 To Toplam
If Ip_Array(I) = ipno Then
Response.redirect "ban.asp"
End If
Next
%>
bu kodda 88.250.236.169 ipisini yasaklıyor. Bunu tersine nası cevirebilirim sadece 88.250.236.169 ipisi giriş yapabilsin geri kalanı yasaklasın.

09-12-2008, 19:54:24

#5

SuSpect

Kimlik doğrulama veya yönetimden onay bekliyor.

<%
Dim ipno
Dim Toplam
Dim Ip_Array(5)
ipno = Request.ServerVariables("REMOTE_ADDR" )
Toplam = 5
Ip_Array(0) = "88.250.236.169"
Ip_Array(1) = ""
Ip_Array(3) = ""
Ip_Array(4) = ""
Ip_Array(5) = ""
For I = 0 To Toplam
If not Ip_Array(I) = ipno Then
Response.redirect "ban.asp"
End If
Next

Bu şekilde olabilir

09-12-2008, 20:11:00

#6

karga

if not denedim olmuyor

09-12-2008, 21:10:08

#7

SuSpect

karga adlı üyeden alıntı: mesajı görüntüle

if not denedim olmuyor

Hata mı veriyor? mantık olarak çalışması gerek

10-12-2008, 12:54:48

#8

scrol

<%
if not Request.ServerVariables("REMOTE_ADDR")="" Then
if (mid(Request.ServerVariables("REMOTE_ADDR"),1,14)="88.250.236.169") Then%>
Sayfanız

<%else%>

Bu ip dışından girişler yasaktır. 
yada response komutu ile ban.asp ye yönlendir
<%end if
  end if%>

30-12-2008, 22:17:38

#9

darker

Dile göre yani...