가장 간단한 문장은 다음을 사용하는 것입니다.
ip = request.servervariables ( "remote_addr")
응답 .Write (IP)
그러나이 방법은 프록시 서버가 인터넷에 액세스하는 데 정확하지 않으므로보다 포괄적 인 방법은 다음 방법을 사용하는 것입니다.
코드 사본은 다음과 같습니다.
<%privateFunctionGetip ()
Dimstripaddr
ifrequest.servariables ( "http_x_forwarded_for") = ""orinst (request.servervariables ( "http_x_forwarded_for"), "알 수없는")> 0then
stripaddr = request.servervariables ( "remote_addr")
elseifinstr (request.servervariables ( "http_x_forwarded_for"), ",", ")> 0then
stripaddr = mid (request.servariables ( "http_x_forwarded_for"), 1, instr (request.servervariables ( "http_x_forwarded_for"), ")-1)
elseifinstr (request.servervariables ( "http_x_forwarded_for"), ";")> 0then
stripaddr = mid (request.servariables ( "http_x_forwarded_for"), 1, instr (request.servervariables ( "http_x_forwarded_for"), ")-1)
또 다른
stripAddr = request.servariables ( "http_x_forwarded_for")
endif
getip = trim (mid (stripaddr, 1,30))
최종 기능 장애
ip = getip ()
응답 .Write (IP)
%>