Artikel ini terutama memperkenalkan berbagi kode implementasi asp untuk memeriksa apakah alamat IP adalah alamat IP intranet atau pribadi. Bagi mereka yang juga mencari penilaian IP, Teman yang membutuhkannya dapat merujuknya.
asp memeriksa apakah alamat ip adalah kode sumber alamat ip pribadi/intranet.
Segmen alamat IP intranet/pribadi adalah sebagai berikut, serta alamat loopback yang dimulai dengan 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
Kode implementasi:
<%function IpToNumber(ip)'Alamat IP dikonversi ke angka arr=split(ip,.) IpToNumber=256*256*256*clng(arr(0))+256*256*clng(arr(1))+256 *clng(arr(2))+clng(arr(3))fungsi akhirfungsi IsPrivateIp(ip)' Tentukan apakah alamat IP yang diberikan adalah alamat ip intranet/pribadi jika instr(ip,127.)=1 lalu'Alamat IP loopback IsPrivateIp=true:fungsi keluar berakhir jika ABegin=IpToNumber(10.0.0.0):AEnd=IpToNumber(10.255.255.255)' Alamat IP pribadi Kelas A BBegin=IpToNumber(172.16.0.0):BEnd=IpToNumber(1 72.31.255.255)'Alamat IP pribadi Kelas B CBegin=IpToNumber(192.168.0.0):CEnd=IpToNumber(192.168.255.255)'Alamat IP pribadi Kelas C IpNum=IpToNumber(ip) IsPrivateIp=(ABegin<=IpNum dan IpNum<=AEnd) atau (BBegin<=IpNum dan IpNum<=BEnd) atau (CBegin<=IpNum dan IpNum<=CEnd)end functionResponse.Write IsPrivateIp(11.255.255.255)&<br >'falseResponse.Tulis 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)'benar %>