Tag: IP预览模式: 普通 | 列表

只允许某一IP地址段访问的方法

作者:江蓝日期:2007-03-21

　　要实现“只允许某一IP地址段访问”的功能，无非就是把客户的IP地址和给定IP段两端的IP地址相比较，如果客户端的IP地址在其中，则允许访问，否则拒绝访问。那么怎么比较呢，大概有以下两种方法：

　　1、先来看看第一种，把IP地址4个段的数值循环比较，如果第一段不在其中则返回False并退出循环，反之则进入第二段的比较，直到最后一段。看看代码实现：

程序代码

Function CheckIP(ip,ip1,ip2)
　Dim i
　ip =Split(ip,".")

Tags: IP IP

分类:Asp | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 604

得到真实IP

作者:江蓝日期:2007-03-11

　　得到IP地址的方法是<%=Request.ServerVariables("REMOTE_ADDR")%>，如果客户使用的代理服务器，这样就得到了代理服务器的IP。下面是得到真实IP的代码：

程序代码

Function GetIp()
  Dim realip,proxy
  realip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  proxy = Request.ServerVariables("REMOTE_ADDR")
  If realip = "" Then

Tags: IP IP