得到用户的ip地址

  '******************************
 '名称: GetIP
 '参数:NULL
 '返回值：NULL
 '作用:得到用户的ip地址
 '******************************
 Public Function GetIP()
  p_IpAdd=Request.ServerVariables("HTTP_X_FORWARDED_FOR")
  If IsNull(p_IpAdd) OR p_IpAdd="" Then
   p_IpAdd=Request.ServerVariables("REMOTE_ADDR")
  End If
  GetIp=p_IpAdd
 End Function