<%
'' Get the address of the visitor
IP = Request.serverVariables ("remote_addr")
'' Allowed IP address segment is 10.0.0.0 ~ 10.68.63.255
ALLOWIP1 = "10.0.0.0"
ALLOWIP2 = "10.68.10.71"
Response.write Checkip (IP, ALOWIP1, ALOWIP2)
Function Checkip (IP, ALOWIP1, ALOWIP2)
DIM Check (4)
Checkip = false
IPSTR = Split (IP, ".")
Allow1 = split (allowip1, ".")
Allow2 = split (allowip2, ".")
IF CINT (Allow1 (0))> CINT (Allow2 (0)) THEN '' Judging whether the IP address segment is legal
Response.write "forbidden access"
EXIT FUNCTION
END IF
For i = 0 to Ubound (IPSTR)
IF CINT (Allow1 (I)) IF CINT (Allow1 (i)) = CINT (IPSTR (i)) THEN Check (i) = true Checkip = TRUE EXIT for Else IF CINT (IPSTR (i)) Check (i) = true Checkip = TRUE EXIT for Else IF CINT (IPSTR (i))> CINT (Allow2 (i)) THEN Check (i) = false Checkip = false EXIT for Else Check (i) = true Checkip = TRUE END IF END IF END IF Else IF CINT (Allow1 (I))> CINT (IPSTR (i)) or CINT (Allow1 (I)) Check (i) = false Checkip = false IF i <> ubound (ipstr) THEN EXIT for END IF Else Check (i) = true END IF END IF NEXT IF (0) = true and check (1) = true and check (2) = true and check (3) = false) and (cint (allow2))> CINT (IPSTR (2))) THEN Checkip = True END IF END FUNCTION %>
