ASP代码获取IP地址
ASP代码获取IP地址
'取得IP地址
function myGetIP()
dim func_IP
on error resume next
func_IP=Request.ServerVariables("HTTP_X_FORWARDED_FOR") '若是对方使用的是代理服务器上网的话,用Request.ServerVariables("HTTP_X_FORWARDED_FOR")可以得到对方的真实IP,若对方不是通过代理服务器上网的话,则IP的值为空
If func_IP="" Then func_IP=Request.ServerVariables("REMOTE_ADDR") '如果IP的值为空,则得到他的本地客户端地址
If func_IP="" Then func_IP="0.0.0.0"
myGetIP=func_IP
end function
