当前位置:  编程技术>.net/c#/asp.net

vb.net获取真实IP的函数

    来源: 互联网  发布时间:2014-08-30

    本文导语:  vb.net获取真实IP的函数,供大家学习参考。 aspx vb.net获取真实IP的函数:   代码如下: Public Function CheckIp(ByVal ip As String) As Boolean Dim pat As String = "^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$" Dim reg As Regex = New Regex(pat) if ip = "" Then CheckI...

vb.net获取真实IP的函数,供大家学习参考。
aspx vb.net获取真实IP的函数:
 

代码如下:


Public Function CheckIp(ByVal ip As String) As Boolean
Dim pat As String = "^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$"
Dim reg As Regex = New Regex(pat)
if ip = "" Then
CheckIp = False
exit Function
end if
CheckIp = reg.IsMatch(ip)
End Function

Public Function get_cli_ip() As String
If ( Not( System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP") Is Nothing) And CheckIp(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP")) = True) Then
get_cli_ip = System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP")
Exit Function
ElseIf Not(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR") Is Nothing) Then
Dim ips() As String = Split(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")
For i As Integer = 0 To ips.Length - 1
If CheckIp(Trim(ips(i))) = True Then
get_cli_ip = Trim(ips(i))
Exit Function
End If
Next
End If
get_cli_ip = System.Web.HttpContext.Current.Request.ServerVariables("REMOTE_ADDR")
End Function

完整的测试页:
 

代码如下:



Public Function CheckIp(ByVal ip As String) As Boolean
Dim pat As String = "^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$"
Dim reg As Regex = New Regex(pat)
if ip = "" Then
CheckIp = False
exit Function
end if
CheckIp = reg.IsMatch(ip)
End Function

Public Function get_cli_ip() As String
If ( Not( System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP") Is Nothing) And CheckIp(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP")) = True) Then
get_cli_ip = System.Web.HttpContext.Current.Request.ServerVariables("HTTP_CLIENT_IP")
Exit Function
ElseIf Not(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR") Is Nothing) Then
Dim ips() As String = Split(System.Web.HttpContext.Current.Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")
For i As Integer = 0 To ips.Length - 1
If CheckIp(Trim(ips(i))) = True Then
get_cli_ip = Trim(ips(i))
Exit Function
End If
Next
End If
get_cli_ip = System.Web.HttpContext.Current.Request.ServerVariables("REMOTE_ADDR")
End Function



Untitled Page





    
 
 

您可能感兴趣的文章:

  • 求教Linux下得到device,memory,net的信息的函数?
  • 内核源文件/net/socket.c中调用其他模块的函数,该如何实现
  • asp.net 实现php的md5()函数功能
  • c#(asp.net)实现的文件下载函数
  • .net获取日期时间函数总结
  • c#.net 匿名函数进行EventHandler参数传递的问题
  • asp.net字符串分割函数使用方法分享
  • .net中前台javascript与后台c#函数相互调用问题
  • 有关.net泛型通用函数一些特殊问题
  • c#.net 常用函数和方法集
  • 讲解.NET环境下绘制模糊数学中隶属函数分布图第1/5页
  • asp.net获取用户ip地址公共类
  • .net后台获取html控件值的2种方法
  • asp.net获取url地址的方法
  • asp.net 获取目录中图片的代码
  • ASP.NET使用Subtract方法获取两个日期之间的天数
  • ASP.NET如何获取两个日期之间的天数
  • .net获取js中值的方法
  • .net获取本机公网IP地址示例
  • .NET中获取程序根目录的常用方法介绍
  • asp.net 获取ashx中数据的代码
  • asp.net获取网站目录物理路径
  • asp.net获取网站目录物理路径示例
  • Asp.net获取浏览器信息的简单代码
  • asp.net 获取存储过程返回值的方法
  • asp.net获取网站绝对路径示例
  • asp.net 动态获取Excel表名(第一个表)的代码
  • asp.net 获取IP地址的可靠方法
  • asp.net获取pc电脑与平板物理地址
  • 解决iis7.5服务器上.net 获取不到https页面的信息
  • asp.net使用jQuery获取RadioButtonList成员选中内容和值示例
  •  
    本站(WWW.)旨在分享和传播互联网科技相关的资讯和技术,将尽最大努力为读者提供更好的信息聚合和浏览方式。
    本站(WWW.)站内文章除注明原创外,均为转载、整理或搜集自网络。欢迎任何形式的转载,转载请注明出处。












  • 相关文章推荐
  • 请推荐本好书(有vb,vb.net经验),谢谢各位!!
  • 不知道是继续vb6还是及时开始.net又或者是钻研java呢?
  • vb.net借助剪贴板将图片导入excel内
  • vb.net实现后台发送短信的代码
  • vb.net实例代码 连接访问数据库文件(mdb)
  • vb.net使用DataGrid控件访问数据库的例子
  • DataGrid的Pagable(VB.NET)实例代码
  • vb.net实例代码 在访问表中遍历记录
  • 各位之不知道net-snmp是否收费?我的产品中用到了net-snmp lib是否需要向什么单位或者组织付费? iis7站长之家
  • asp.net DataGrid控件排序表达式(VB.NET)
  • 数据绑定到两个不同的datagrid控件(vb.net)
  • 如何让C#、VB.NET实现复杂的二进制操作
  • 使用SqlConnection将数据绑定到DataGrid中(VB.NET)
  • C#实现只运行单个实例应用程序的方法(使用VB.Net的IsSingleInstance)
  • vb.net实现数据转换为复数 金额转换成大写的代码
  • VB.NET中TextBox的智能感知应用实例
  • vb.net编程之DataGrid排序
  • Vb.net保持页面滚动条位置不变的实现代码
  • vb.net 实现操作excel的代码
  • VB.NET中Caching的使用方法
  • java命名空间javax.net类socketfactory的类成员方法: createsocket定义及介绍
  • .NET版的ExtJS库 Ext.Net
  • java命名空间java.net类datagramsocket的类成员方法: disconnect定义及介绍
  • node.js的.net扩展 node.net
  • java命名空间java.net类datagramsocket的类成员方法: close定义及介绍
  • 为什么输http://www.china-java.net,会自动改为http://www.china-java.net:8081?
  • java命名空间java.net接口cookiestore的类成员方法: get定义及介绍
  • 各位之不知道net-snmp是否收费?我的产品中用到了net-snmp lib是否需要向什么单位或者组织付费?
  • java命名空间java.net类socket的类成员方法: isbound定义及介绍
  • 【人才】有没有人会用VC6.0/VS2003.NET/VS2005.NET写WINDOWS下的驱动程序呀。
  • java命名空间java.net类datagrampacket的类成员方法: getsocketaddress定义及介绍


  • 站内导航:


    特别声明:169IT网站部分信息来自互联网,如果侵犯您的权利,请及时告知,本站将立即删除!

    ©2012-2021,,E-mail:www_#163.com(请将#改为@)

    浙ICP备11055608号-3