asp 根据IP地址自动判断转向分站的代码
更新时间：2008年11月27日 00:48:16 作者：
根据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("https://www.jb51.net")
end if
if instr(UrlCity,"深圳")<>0 then
response.Redirect("http://img.jb51.net")
end if
if instr(UrlCity,"上海")<>0 then
response.Redirect("http://xiazai.jb51.net")
end if
所用到的IP数据库可以去网上down一个回来
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("https://www.jb51.net")
end if
if instr(UrlCity,"深圳")<>0 then
response.Redirect("http://img.jb51.net")
end if
if instr(UrlCity,"上海")<>0 then
response.Redirect("http://xiazai.jb51.net")
end if
所用到的IP数据库可以去网上down一个回来
相关文章
ASP中只有UrlEncode，没有Urldecode问题的解决方法？
这篇文章主要介绍了ASP中只有UrlEncode，没有Urldecode问题的解决方法？ ,需要的朋友可以参考下2015-05-05
写了下asp取真实IP的代码，搭环境测试无代理、一级或多级代理的情况，可以正常获取2010-11-11
利用Split函数进行多关键字检索...2006-07-07
高手推荐的比较有用的ASP函数集合...2007-03-03
关于Script的Defer属性...2006-08-08
随机提取N条记录 推荐...2007-02-02
Session.TimeOut的最大取值是1440，超出会报错
Session.TimeOut的取值以分钟为单位，最大取值是1440分钟，也就是24个小时，如果给它赋一个更大的值2009-06-06
多域名绑定到一个空间访问不同首页的技巧...2006-09-09
在运行有一些asp文件的时候，杀毒软件会阻止程序的运行，或者直接将你的asp文件删除，因为它将你的asp文件当作是asp木马文件了2008-11-11
asp中的rs.open与conn.execute的区别说明
不管是rs.open sql,conn还是conn.execute(sql) [这里的SQL是delete,update,insert]执行以后都会返回一个关闭的记录集2011-01-01
最新评论