asp获取客户端IP地址函数

'------------------Start获取客户端IP地址函数----------
Function GetIp()
 dim realip,proxy
 realip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
 proxy = Request.ServerVariables("REMOTE_ADDR")
 if realip = "" then
  GetIp = proxy
 else
  GetIp = realip
 end if
End function