获取用户真!实IP地址代码

获取用户真实IP地址代码
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 =

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