تقدم هذه المقالة بشكل أساسي مشاركة التعليمات البرمجية لتطبيق 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 Loopback IsPrivateIp=true:تنتهي وظيفة الخروج إذا ABegin=IpToNumber(10.0.0.0):AEnd=IpToNumber(10.255.255.255)' عنوان IP خاص من الفئة A 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)نهاية الوظيفةResponse.Write IsPrivateIp(11.255.255.255)&<br >'خطأ في الرد.اكتب 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)'صحيح %>