通用ASP直接获取用户真实IP地址_网络编程_ASP教程

学习网考试学习资料

Gzu521.com

通用ASP直接获取用户真实IP地址

ASP教程点击：次发布时间：2003-12-19 【字体：大中小】来源：

Gzu521.com我的学习网

通用function，如果不能取真实ip，就会取代理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

责任编辑：gzu521

更多相关信息->