Это хорошее решение для автоматического определения кода для перенаправления в ветку на основе IP-адреса, что может облегчить некоторые проблемы, такие как чрезмерная нагрузка на сервер. Функция getIpvalue(clientIP)' получает IP-адрес клиента и преобразует его в длинное целое число. и возвращает значение getIpvalue
При ошибке Возобновить Далее
Тусклый strIp, array_Ip
стрIp=0
array_Ip = Split(IP-клиента,.)
Если UBound(array_Ip)<>3 Тогда
getIpvalue=0
Выход из функции
Конец, если
Для я = от 0 до 3
strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))
Следующий
getIpvalue=strIp
Если ошибка, то getIpvalue=0
Конечная функция
clientIP=request.ServerVariables(REMOTE_HOST)
IpValue=getIpvalue(clientIP)
strSql=выберите 1 лучший город из [Ipaddress], где &IpValue&
между IP1 и IP2
Установите RsIp=conn.execute(strSql)
Если RsIp.bof и RsIp.eof, то
UrlCity=Неизвестно
Еще
UrlCity=RsIp.Fields.Item(Город).Значение
Конец, если
если instr(UrlCity,Гуанчжоу)<>0, то
ответ.Перенаправление(http://www.vevb.com)
конец, если
если instr(UrlCity,Shenzhen)<>0 тогда
ответ.Перенаправление(http://js.vevb.com)
конец, если
если instr(UrlCity,Шанхай)<>0, то
ответ.Перенаправление(http://tool.vevb.com)
конец, если
Использованную базу данных IP можно загрузить в Интернете.