함수 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
기능 종료
clientIP=request.ServerVariables("REMOTE_HOST")
IpValue=getIpvalue(clientIP)
strSql="[Ipaddress]에서 상위 1개 도시를 선택하세요. 여기서 "&IpValue&"는 Ip1과 Ip2 사이에 있습니다."
RsIp=conn.execute(strSql) 설정
RsIp.bof 및 RsIp.eof인 경우
UrlCity="未알"
또 다른
UrlCity=RsIp.Fields.Item("도시").값
End If
if instr(UrlCity,"广州")<>0 then response.Redirect(" http://code.knowsky.com ")
if instr(UrlCity,"深圳")<>0 then response.Redirect(" http://moban.knowsky.com ")
if instr(UrlCity,"上海")<>0 then response.Redirect(" http://font.knowsky.com ")
由于IP库超过1M，所以上传不了，IP库网上很多，code.knowsky.com 就有下载。상면只是其中一种방법.