실제 IP를 얻기 위해 asp용 코드를 작성했고 에이전트가 없는 상황, 단일 레벨 또는 다중 레벨 에이전트의 상황을 테스트하기 위해 환경을 사용했으며 복사된 코드는 정상적으로 얻을 수 있습니다. 코드는 다음과 같습니다.
function checkip(checkstring)' 정규식을 사용하여 IP가 합법적인지 확인합니다.
희미한 RE1
re1=new RegExp 설정
re1.pattern=^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$
re1.global=false
re1.Ignorecase=false
checkip=re1.test(체크스트링)
re1=아무것도 설정하지 않음
종료 기능
다음과 같이 코드 코드를 복사합니다.
function get_cli_ip()'실제 IP 기능을 가져옵니다. 먼저 HTTP_CLIENT_IP, HTTP_X_FORWARDED_FOR, REMOTE_ADDR을 가져옵니다.
희미한 client_ip
checkip(Request.ServerVariables(HTTP_CLIENT_IP))=true인 경우
get_cli_ip = checkip(Request.ServerVariables(HTTP_CLIENT_IP))
또 다른
MyArray = 분할(Request.ServerVariables(HTTP_X_FORWARDED_FOR),,)
ubound(MyArray)>=0이면
client_ip = 트림(MyArray(0))
checkip(client_ip)=true이면
get_cli_ip = 클라이언트_ip
종료 기능
종료하면
종료하면
get_cli_ip=요청.서버변수(REMOTE_ADDR)
종료하면
종료 기능