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

实现代码：




<
功能iptonumber（IP）'ip地址转换为一个数字
ARR =分裂（IP，，）
iptonumber = 256 * 256 * 256 * CLNG（ARR（0））+ 256×256×CLNG（ARR（1））+ 256 * CLNG（ARR（2））+ CLNG（ARR（3））
端功能
函数的IsPrivateIp（IP）的判定一个给定的IP地址是内网/私有IP地址
如果仪器（IP，127 ）= 1 then'loop IP地址
isprivateip =真的退出功能
最后如果
abegin = iptonumber（10.0.0.0 ）：把= iptonumber（10.255.255.255 ）的私有IP地址
bbegin = iptonumber（172.16.0.0 ）：弯曲= iptonumber（172.31.255.255 ）B类私有IP地址
cbegin = iptonumber（192.168.0.0 ）：、= iptonumber（192.168.255.255 ）C类私有IP地址
ipnum = iptonumber（IP）
isprivateip =（abegin <= ipnum IpNum <=端）或（bbegin <= ipnum IpNum <=弯曲）或（cbegin <= <=、ipnum和IpNum）
端功能
响应。写isprivateip（11.255.255.255 ）假
响应。写isprivateip（182.255.255.255 ）假
响应。写isprivateip（172.30.255.255 真实）
响应。写isprivateip（192.168.205.2 真实）
响应。写isprivateip（127.168.205.2 ）真实
%>