服务器之家:专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|JavaScript|易语言|

服务器之家 - 编程语言 - ASP教程 - asp 根据IP地址自动判断转向分站的代码

asp 根据IP地址自动判断转向分站的代码

2019-09-17 13:10asp之家 ASP教程

根据IP地址自动判断转向分站的代码 这个是一个不错的解决之道,可以缓解服务器压力过大等一些问题

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.zzvips.com") 
end if 
if instr(UrlCity,"深圳")<>0 then 
response.Redirect("http://img.zzvips.com") 
end if 
if instr(UrlCity,"上海")<>0 then 
response.Redirect("http://xiazai.zzvips.com") 
end if 
所用到的IP数据库可以去网上down一个回来

延伸 · 阅读

精彩推荐