사용자의 실제 IP를 얻고 프록시 주소에 여전히 유효한 ASP 기능

<%

'*******************************

'기능 : getUserTrueip ()

'매개 변수 : 없음

'저자 : Alixi

'날짜 : 2007/7/13

'설명 : 사용자의 실제 IP를 얻으 며 여전히 프록시 주소에 유효합니다. 반환 값 : 텍스트 유형 IP 주소

'예 : <%= getUserTrueip ()%>

'*******************************

functiongetUserTrueip ()

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

getusertrueip = trim (Mid (stripaddr, 1,30))

최종 기능 장애

%>