Самое простое предложение - использовать следующее:
ip = request.servervariables ("remote_addr")
response.write (ip)
Однако этот метод не является точным для прокси -серверов для доступа к Интернету, поэтому более полным методом является использование следующего метода:
Кода -копия выглядит следующим образом:
<%PrivateFunctionGetip ()
Dimstripaddr
Ifrequest.servervariables ("http_x_forwarded_for") = "" orinstr (request.servervariables ("http_x_forwarded_for"), "неизвестно")> 0then
stripaddr = request.servervariables ("remote_addr")
Elseifinstr (request.servervariables ("http_x_forwarded_for"), ",", ")> 0then
stripaddr = mid (request.servervariables ("http_x_forwarded_for"), 1, instr (request.servervariables ("http_x_forwarded_for"), ",")-1)
Elseifinstr (request.servervariables ("http_x_forwarded_for"), ";")> 0then
stripaddr = mid (request.servervariables ("http_x_forwarded_for"), 1, instr (request.servervariables ("http_x_forwarded_for"), ";")-1)
Еще
stripaddr = request.servervariables ("http_x_forwarded_for")
Эндиф
Getip = Trim (Mid (Stripaddr, 1,30))
Конечная функция
ip = getip ()
response.write (ip)
%>