Este artículo presenta principalmente el uso compartido de código de la implementación de asp para verificar si la dirección IP es una intranet o una dirección IP privada. Es para aquellos que también buscan un juicio de IP. Los amigos que lo necesiten pueden consultarlo.
asp comprueba si la dirección IP es un código fuente de dirección IP privada/de intranet.
El segmento de dirección IP privada/de intranet es el siguiente, así como la dirección de loopback que comienza con 127:
10.0.0.0-10.255.255.255
172.16.0.0—172.31.255.255
192.168.0.0-192.168.255.255
Código de implementación:
<%función IpToNumber(ip)'Dirección IP convertida a números arr=split(ip,.) IpToNumber=256*256*256*clng(arr(0))+256*256*clng(arr(1))+256 *clng(arr(2))+clng(arr(3))función finalfunción IsPrivateIp(ip)' Determina si la dirección IP proporcionada es una intranet/dirección IP privada si instr(ip,127.)=1 entonces'Dirección IP de bucle invertido IsPrivateIp=true: la función de salida finaliza si ABegin=IpToNumber(10.0.0.0):AEnd=IpToNumber(10.255.255.255)' Dirección IP privada Clase A BBegin=IpToNumber(172.16.0.0):BEnd=IpToNumber(1 72.31.255.255)'Dirección IP privada Clase B CBegin=IpToNumber(192.168.0.0):CEnd=IpToNumber(192.168.255.255)'Dirección IP privada Clase C IpNum=IpToNumber(ip) IsPrivateIp=(ABegin<=IpNum y IpNum<=AEnd) o (BBegin<=IpNum y IpNum<=BEnd) o (CBegin<=IpNum y IpNum<=CEnd)función finalResponse.Write IsPrivateIp(11.255.255.255)&<br >'falsaRespuesta.Escribir IsPrivateIp(182.255.255.255)&<br>'falseResponse.Write IsPrivateIp(172.30.255.255)&<br>'trueResponse.Write IsPrivateIp(192.168.205.2)&<br>'trueResponse.Write IsPrivateIp(127.168.205.2)'verdadero %>