Asp常用通用函数之读取用户IP地址信息

点击次数：273 创建日期：11-25-2007 录入：cn-web.com 字体:[大中小] 点评：

'函数名：Readusip
  '作用：读取用户IP地址信息
  '参数：
  '返回值：返回用户IP地址
  '**************************************************
  Public Function Readusip()
   Dim strIPAddr
   If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
   strIPAddr = Request.ServerVariables("REMOTE_ADDR")
   ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
   strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
   ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
   strIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)
   Else
   strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
   End If
   Readusip = Trim(Mid(strIPAddr, 1, 30))
  End Function