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

2024-05-04 10:57:51

字体：大中小

来源：转载

供稿：网友

最简单的用以下语句:

ip=request.ServerVariables("REMOTE_ADDR")
response.Write(ip)
但这种方法对代理服务器上网的就不准了,故比较全面的是用下面的方法:

复制代码代码如下:

<%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
ip=getIP()
response.write(ip)
%>

您可能感兴趣的文章:

Android手机获取IP地址的两种方法Linux下Python获取IP地址的代码JS不能跨域借助jquery获取IP地址的方法PowerShell脚本实现网卡DHCP自动获取IP地址、设置静态IP地址的方法js获取IP地址的方法小结java获取ip地址示例java中通过网卡名称获取IP地址在InstallShield中通过主机名获取IP地址的代码安卓获取手机IP地址的实现代码

上一篇：UpdatePanel触发javascript脚本的方法附代码

下一篇：ASP 关于动态数据显示页面得锚点