ASP Limits IP Access

Visit <%
"Get the address of the visitor
Ip=request.servervariables ("REMOTE_ADDR")

' The allowed IP address segment is 10.0.0.0~10.68.63.255
allowip1= "10.0.0.0"
Allowip2= "10.68.10.71"
Response.writecheckip (IP,ALLOWIP1,ALLOWIP2)
Functioncheckip (IP,ALLOWIP1,ALLOWIP2)
Dimcheck (4)
Checkip=false
Ipstr=split (IP, ".")
Allow1=split (Allowip1, ".")
Allow2=split (ALLOWIP2, ".")
Ifcint (Allow1 (0)) >cint (allow2 (0)) then ' to determine if the IP address segment is legitimate
Response.Write "No Access"
Exitfunction
endif
Fori=0toubound (IPSTR)
Ifcint (Allow1 (i)) <cint (Allow2 (i)) then
Ifcint (Allow1 (i)) =cint (Ipstr (i)) then
Check (i) =true
Checkip=true
Exitfor
Else
Ifcint (Ipstr (i)) <cint (Allow2 (i)) then
Check (i) =true
Checkip=true
Exitfor
Else
Ifcint (Ipstr (i)) >cint (Allow2 (i)) then
Check (i) =false
Checkip=false
Exitfor
Else
Check (i) =true
Checkip=true
endif
endif
endif
Else
Ifcint (Allow1 (i)) >cint (Ipstr (i)) Orcint (Allow1 (i)) <cint (Ipstr (i)) then
Check (i) =false
Checkip=false
Ifi<>ubound (IPSTR) Then
Exitfor
endif
Else
Check (i) =true
endif
endif
Next
if (check (0) =trueandcheck (1) =trueandcheck (2) =trueandcheck (3) =false) and (CInt (Allow2 (2)) >cint (IPSTR (2)) Then
Checkip=true
endif
Endfunction
%>