Türkiye'nin En Eski Webmaster Forumu İyinet'e Hoşgeldiniz!
Kayıt Ol
* = 1 den 255 e kadar olan sayılar :)
- Katılım
- 26 Şubat 2006
- Mesajlar
- 713
- Açılan Konu
- 98
- Tepki puanı
- 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ış
<%
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ış
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
%>