asp实现检查ip地址是否为内网或者私有ip地址的代
网络编程 2021-07-05 10:58www.168986.cn编程入门
这篇文章主要介绍了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)) end function function IsPrivateIp(ip)'判断给定的IP地址是否内网/私有ip地址 if instr(ip,"127.")=1 then'回环IP地址 IsPrivateIp=true:exit function end if ABegin=IpToNumber("10.0.0.0"):AEnd=IpToNumber("10.255.255.255")'A类私有IP地址 BBegin=IpToNumber("172.16.0.0"):BEnd=IpToNumber("172.31.255.255")'B类私有IP地址 CBegin=IpToNumber("192.168.0.0"):CEnd=IpToNumber("192.168.255.255")'C类私有IP地址 IpNum=IpToNumber(ip) IsPrivateIp=(ABegin<=IpNum and IpNum<=AEnd) or (BBegin<=IpNum and IpNum<=BEnd) or (CBegin<=IpNum and IpNum<=CEnd) end function Response.Write IsPrivateIp("11.255.255.255")&"<br>"'false Response.Write IsPrivateIp("182.255.255.255")&"<br>"'false Response.Write IsPrivateIp("172.30.255.255")&"<br>"'true Response.Write IsPrivateIp("192.168.205.2")&"<br>"'true Response.Write IsPrivateIp("127.168.205.2")'true %>
编程语言
- 机械手焊接机器人编程 机械手焊接设备编程
- vb数据库编程实例,vb做数据库
- tiobe世界编程语言排行榜,全球编程语言排行
- 成都java编程培训 成都it编程培训中心
- 编程基础培训,编程基础知识培训
- flash游戏编程基础教程,flash游戏开发教程
- 不会英语能学编程吗 不会英语可以学程序员吗
- 爱心代码编程C语言 爱心代码编程c语言公式
- c语言编程学习入门 c语言编程快速入门
- 西门子plc编程培训 西门子plc编程培训班
- 哪里可以学编程 台州哪里可以学编程
- 少儿编程哪个好 少儿编程哪个品牌好
- 编程是什么意思,图形编程是什么意思
- c语言编程软件下载,c语言编程软件在哪下载
- java编程软件下载,java编程下载手机版
- ug编程培训学校,ug编程培训教程