In diesem Artikel wird hauptsächlich die Codefreigabe der ASP-Implementierung vorgestellt, um zu überprüfen, ob es sich bei der IP-Adresse um eine Intranet- oder eine private IP-Adresse handelt. Freunde, die dies benötigen, können sich darauf beziehen.
asp prüft, ob es sich bei der IP-Adresse um einen privaten/Intranet-IP-Adressquellcode handelt.
Das Intranet-/private IP-Adresssegment lautet wie folgt, ebenso wie die Loopback-Adresse, die mit 127 beginnt:
10.0.0.0-10.255.255.255
172.16.0.0—172.31.255.255
192.168.0.0-192.168.255.255
Implementierungscode:
<%function IpToNumber(ip)'IP-Adresse in Zahlen umgewandelt arr=split(ip,.) IpToNumber=256*256*256*clng(arr(0))+256*256*clng(arr(1))+256 *clng(arr(2))+clng(arr(3))end functionfunction IsPrivateIp(ip)' Bestimmen Sie, ob die angegebene IP-Adresse eine Intranet-/private IP-Adresse ist, wenn instr(ip,127.)=1, dann'Loopback-IP-Adresse IsPrivateIp=true:Funktion beenden, wenn ABegin=IpToNumber(10.0.0.0):AEnd=IpToNumber(10.255.255.255)' Private IP-Adresse der Klasse A BBegin=IpToNumber(172.16.0.0):BEnd=IpToNumber(1 72.31.255.255)'Private IP-Adresse der Klasse B CBegin=IpToNumber(192.168.0.0):CEnd=IpToNumber(192.168.255.255)'Private IP-Adresse der Klasse C IpNum=IpToNumber(ip) IsPrivateIp=(ABegin<=IpNum und IpNum<=AEnd) oder (BBegin<=IpNum und IpNum<=BEnd) oder (CBegin<=IpNum und IpNum<=CEnd)end functionResponse.Write IsPrivateIp(11.255.255.255)&<br >'falseResponse.Write 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)'true %>