İyinet'e Hoşgeldiniz!

Türkiye'nin En Eski Webmaster Forum'una Hemen Kayıt Olun!

Kayıt Ol!

* = 1 den 255 e kadar olan sayılar :)

cscodes

0
İyinet Üyesi
Katılım
20 Şubat 2005
Mesajlar
312
Reaction score
0
arkadaşlar bunu nasıl yaparım

basit bi ip engelleme scripti yapıyorum örn: *.88.88.88 girildi
bu * değerini scriptin 1 den 255 e kadar olan sayılar olarak algılamasını istiyorum

*=1to255 : P beceremedim : )
 

216

0
İyinet Üyesi
Katılım
4 Ağustos 2006
Mesajlar
336
Reaction score
0
Kod:
<%
for i=1 to 255
ip = i & ".88.88.88"
if ip=request.servervariables("REMOTE_ADDR") then Response.write ("Engelli IP")
next
%>
 

cscodes

0
İyinet Üyesi
Katılım
20 Şubat 2005
Mesajlar
312
Reaction score
0
teşekkürler kendime göre geliştiririm onu
 

forumselcuk

0
İyinet Üyesi
Katılım
26 Şubat 2006
Mesajlar
713
Reaction score
1
Konum
Selçuk Üniversi
şöylede olabilir
<%
Dim ip=request.servervariables("REMOTE_ADDR")
if left(ip,2)=81 then
reponse.write("Engelli İp")
end if
%>
Bu ip'nin soldan iki karakterini okur yani left komutu
sonrası size kalmış
 

bleem

0
İyinet Üyesi
Katılım
16 Mart 2004
Mesajlar
207
Reaction score
0
can sıkıntısından extra bir örnek (ve bence daha uygun)

Kod:
<%
ban="*.88.88.88,70.*.83.88,212.245.23.*" 'birden fazla ip'yi virgülle ayıralım
banipler=split(ban,",")
ziyaretcinin="70.84.83.88"
znumlar=split(ziyaretcinin,".")


for ii=0 to ubound(banipler)
	numlar=split(banipler(ii),".")

	if ubound(numlar)=ubound(znumlar) then ' basit bir hata engelleme yapalım

		for i=0 to ubound(numlar)
			if (numlar(i)=znumlar(i)) or numlar(i)="*" then
				banli=True
			else
				banli=False
				exit for
			end if
		next

	end If

	if banli Then Exit for
next

if banli then response.write "Banı yemiş" Else response.write "Temiz, geç" End if

%>
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Üst