[KerneL32]

@maddriver daha kisasi icin ;

IP ARALIGI YASAKLAMA 
# 194.168.0.1 ile 194.168.255.255 arasi yasakli #

<%
' ### Hangi aralikta baslayacaksa.
BaslangicIP	= "194.168.0.1"
BaslangicSp 	= Split(BaslangicIP, ".")
BaslangicIP	= (BaslangicSp(0)*(256*256*256)) + (BaslangicSp(1)*(256*256)) + (BaslangicSp(2)*256) + (BaslangicSp(3))
' ### Hangi aralikta bitecekse
BitisIP		= "194.168.255.255"
BitisSp 	= Split(BitisIP, ".")
BitisIP		= (BitisSp(0)*(256*256*256)) + (BitisSp(1)*(256*256)) + (BitisSp(2)*256) + (BitisSp(3))
' ### hangi ip aranacaksa
AranacakIP 	= Request.ServerVariables("REMOTE_HOST")
AranacakSp 	= Split(AranacakIP, ".")
AranacakIP	= (AranacakSp(0)*(256*256*256)) + (AranacakSp(1)*(256*256)) + (AranacakSp(2)*256) + (AranacakSp(3))

If BaslangicIP < AranacakIP and BitisIP > AranacakIP Then
	Response.write "BU SITEYE GIRISIN YASAK"
Else
	Response.write "GECIS SERBEST KOLAY GELSIN."
End If
%>

Kodlari deneyemedim IIS olmadigindan. Not defterinde yazdim yani Bir sorun olursa pm atabilirsiniz.