Функция 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("Город").Значение
End If
if instr(UrlCity,"广州")<>0 then response.Redirect(" http://code.knowsky.com ")
если 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 就有下载。上面只是其中一种方法.