一聚教程网:一个值得你收藏的教程网站

最新下载

热门教程

获取用户真实IP地址代码

时间:2010-03-13 编辑:简简单单 来源:一聚教程网

Public Function GetIp(getType)
  If getType = 0 then
   GetIp = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
   if GetIp = "" Then getIp = Request.ServerVariables("REMOTE_ADDR")
  ElseIf getType = 1 Then
   GetIp = Request.ServerVariables("LOCAL_ADDR")
  Else
   GetIp = "未知"
  End if
  If GetIp = "::1" Then GetIp = "127.0.0.1"
 End Function

 '使用方法
 dim i
 i=1
 GetIp(1)

热门栏目