用通ASP直接获取用户真实IP地址-ASP教程,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