ASP ใช้การใช้รหัสร่วมกันเพื่อตรวจสอบว่าที่อยู่ IP เป็นอินทราเน็ตหรือที่อยู่ IP ส่วนตัว

บทความนี้จะแนะนำการแบ่งปันโค้ดของการใช้งาน ASP เพื่อตรวจสอบว่าที่อยู่ IP เป็นอินทราเน็ตหรือที่อยู่ IP ส่วนตัว เหมาะสำหรับผู้ที่กำลังมองหาการตัดสิน IP ด้วยเช่นกัน

asp ตรวจสอบว่าที่อยู่ IP เป็นซอร์สโค้ดที่อยู่ IP ส่วนตัว/อินทราเน็ตหรือไม่

ส่วนที่อยู่ IP ของอินทราเน็ต/ส่วนตัวจะเป็นดังนี้ เช่นเดียวกับที่อยู่ย้อนกลับที่ขึ้นต้นด้วย 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

รหัสการใช้งาน:

 <%function IpToNumber(ip)'ที่อยู่ IP แปลงเป็นตัวเลข arr=split(ip,.) IpToNumber=256*256*256*clng(arr(0))+256*256*clng(arr(1))+256 *clng(arr(2))+clng(arr(3))สิ้นสุดฟังก์ชันฟังก์ชัน IsPrivateIp(ip)' ตรวจสอบว่าที่อยู่ IP ที่กำหนดนั้นเป็นที่อยู่ IP ของอินทราเน็ต/ส่วนตัวหรือไม่ ถ้า instr(ip,127.)=1 แล้ว 'ที่อยู่ IP แบบวนกลับ IsPrivateIp=true:exit ฟังก์ชันสิ้นสุดถ้า ABegin=IpToNumber(10.0.0.0):AEnd=IpToNumber(10.255.255.255)' คลาส A ที่อยู่ IP ส่วนตัว BBegin=IpToNumber(172.16.0.0):BEnd=IpToNumber(1 72.31.255.255)'ที่อยู่ IP ส่วนตัวคลาส B CBegin=IpToNumber(192.168.0.0):CEnd=IpToNumber(192.168.255.255)'ที่อยู่ IP ส่วนตัวคลาส C IpNum=IpToNumber(ip) IsPrivateIp=(ABegin<=IpNum และ IpNum<=AEnd) หรือ (BBegin<=IpNum และ IpNum<=BEnd) หรือ (CBegin<=IpNum และ IpNum<=CEnd)end functionResponse.Write IsPrivateIp(11.255.255.255)&<br >'falseResponse.เขียน 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)'จริง %>