asp下比较全面的获取IP地址的代码

获取真实IP地址是一个在Web开发中常见且重要的任务，特别是在需要用户地理位置信息时。最简单的获取IP地址的方式是使用“request.ServerVariables("REMOTE_ADDR”)”，然而这种方法在面对使用代理服务器的用户时会出现误差。为了获取更为准确的用户IP地址，我们可以采用更为复杂的方法。以下是一个采用SEO优化策略的改进方法，代码示例如下：

在ASP环境中，我们可以通过编写一个自定义函数getIP来获取用户的真实IP地址。检查是否设置了HTTP_X_FORWARDED_FOR服务器变量，如果该变量为空或者包含"unknown"，则默认使用REMOTE_ADDR作为IP地址。如果HTTP_X_FORWARDED_FOR中包含逗号或分号分隔的多个IP地址（这通常发生在用户通过多个代理服务器访问时），我们通过Mid函数截取第一个IP地址。我们得到的IP地址进行整理并返回。以下是详细的代码实现：

```asp

<% Private Function getIP()

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

getIP = Trim(Mid(strIPAddr, 1, 30))

End Function %>

```

在上面的代码中，我们首先定义了一个名为getIP的私有函数来获取用户的IP地址。然后，我们根据HTTP请求头中的代理信息来出真实的IP地址。我们调用这个函数并将返回的IP地址输出到页面。这种方式相对更为准确，可以有效地处理通过代理服务器访问的用户。通过这段代码，我们能够获取到大多数用户的真实IP地址，从而进行地理位置定位或其他相关操作。这样改进后的代码既保留了原始功能的实现，又提高了获取用户IP地址的准确性。