<%
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
%>