熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

獲取用戶真實IP地址代碼

2013-11-13 10:43:56  來源: .NET編程 

  獲取用戶真實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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.