IP 주소를 기반으로 지점으로 리디렉션할 코드를 자동으로 결정하는 것이 좋은 솔루션으로, 과도한 서버 압력과 같은 일부 문제를 완화할 수 있습니다. 함수 getIpvalue(clientIP)'는 클라이언트의 IP를 가져와 긴 정수로 변환합니다. getIpvalue 값을 반환합니다.
오류 발생 시 다음 재개
희미한 strIp, array_Ip
strIp=0
array_Ip = 분할(클라이언트IP,.)
UBound(array_Ip)<>3이면
getIp값=0
종료 기능
종료 조건
i=0 ~ 3의 경우
strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))
다음
getIpvalue=strIp
오류가 있는 경우 getIpvalue=0
기능 종료
클라이언트IP=요청.ServerVariables(REMOTE_HOST)
IpValue=getIpvalue(클라이언트IP)
strSql=[Ipaddress]에서 상위 1개 도시를 선택하세요. 여기서 &IpValue&
IP1과 IP2 사이
RsIp=conn.execute(strSql) 설정
RsIp.bof 및 RsIp.eof인 경우
UrlCity=알 수 없음
또 다른
UrlCity=RsIp.Fields.Item(도시).값
종료 조건
if instr(UrlCity,Guangzhou)<>0 그러면
응답.리디렉션(http://www.vevb.com)
종료하면
if instr(UrlCity,Shenzhen)<>0 그러면
response.Redirect(http://js.vevb.com)
종료하면
if instr(UrlCity,Shanghai)<>0 그러면
response.Redirect(http://tool.vevb.com)
종료하면
사용된 IP 데이터베이스는 온라인으로 다운로드할 수 있습니다.