獲取用戶真實IP地址代碼

　　獲取用戶真實IP地址代碼
Public Function GetIp(getType)
  If getType = then
   GetIp = RequestServerVariables("HTTP_X_FORWARDED_FOR")
   if GetIp = "" Then getIp = RequestServerVariables("REMOTE_ADDR")
  ElseIf getType = Then
   GetIp = RequestServerVariables("LOCAL_ADDR")
  Else
   GetIp = "<span style=""color:#FF"">未知</span>"
  End if
  If GetIp = "::" Then GetIp = ""
 End Function

　　使用方法
 dim i
 i=
 GetIp()

From:http://tw.wingwit.com/Article/program/net/201311/14395.html