Function getIpvalue(clientIP)'得到客户端的IP转换成长整型,返回值getIpvalue
On Error Resume Next
Dim strIp, array_Ip
strIp=0
array_Ip = Split(clientIP,".")
If UBound(array_Ip)<>3 Then
getIpvalue=0
Exit Function
End If
For i=0 To 3
strIp=strIp+(CInt(array_Ip(i))*(256^(3-i)))
Next
getIpvalue=strIp
If Err Then getIpvalue=0
End Function
clientIP=request.ServerVariables("REMOTE_HOST")
IpValue=getIpvalue(clientIP)
strSql="select top 1 City from [Ipaddress] where "&IpValue&"
between Ip1 and Ip2"
Set RsIp=conn.execute(strSql)
If RsIp.bof and RsIp.eof then
UrlCity="未知"
Else
UrlCity=RsIp.Fields.Item("City").Value
End If
if instr(UrlCity,"广州")<>0 then
response.Redirect("//www.tuohang.net")
end if
if instr(UrlCity,"深圳")<>0 then
response.Redirect("http://img.tuohang.net")
end if
if instr(UrlCity,"上海")<>0 then
response.Redirect("http://xiazai.tuohang.net")
end if
所用到的IP数据库可以去网上down一个回来
asp 根据IP地址自动判断转向分站的代码
2019-09-17 13:10asp之家 ASP教程
根据IP地址自动判断转向分站的代码 这个是一个不错的解决之道,可以缓解服务器压力过大等一些问题
延伸 · 阅读
- 2022-06-28分享13个非常有用的Python代码片段
- 2022-06-27Python运行时修改业务SQL代码
- 2022-05-09抖音极速版怎么看ip地址 抖音极速版ip属地怎么关
- 2022-05-06抖音IP地址是不是人在哪地址就在哪?抖音IP地址
- 2022-04-2745个 Git 经典操作场景,专治不会合代码
- 2022-04-26七段小代码,玩转Java程序常见的崩溃场景!
精彩推荐
- ASP教程
asp删除mssql数据库中没有记录的图片代码
asp删除没有记录的图片需要文件夹(存放图片的文件夹)中的每个图片和数据库中的所有记录进行比较...
- ASP教程
ASP常用函数:HTMLDecode
ASP常用函数:HTMLDecode ...
- ASP教程
ASP实现文件上传的方法
在基于浏览器/服务器的应用环境中,在浏览器中上传各种类型的文件一直是困扰用户文件管理应用的难题之一。常用的实现方法是利用在RFC1867中引入的一...
- ASP教程
ASP GetRef 函数指针试探
近日在学习C++,看到函数指针,由于之前一直搞ASP,所以想ASP里面是否也有这个函数指针的东西,百度了一下,没有太多关于此方面的介绍,于是翻了翻...
- ASP教程
asp读取远程文件并保存到本地代码
asp读取远程文件并保存到本地代码 ...
- ASP教程
字符批量替换程序asp服务器版
字符批量替换程序asp服务器版,安装方法:直接把replace.asp文件放在任意的支持asp+FSO的环境中 ...
- ASP教程
asp中一段防SQL注入的通用脚本
asp中一段防SQL注入的通用脚本...
- ASP教程
ASP 判断是否有中文的代码
其实我上一篇写的js判断中文才是最好的方法,这个是asp的一种,只要是双字节都是当作中文判断...