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一个回来
asp 根据IP地址自动判断转向分站的代码
2019-09-17 13:10asp之家 ASP教程
根据IP地址自动判断转向分站的代码 这个是一个不错的解决之道,可以缓解服务器压力过大等一些问题
延伸 · 阅读
- 2024-12-13小米 Vela 系统代码正式开源,OpenVela 上线 GitHub
- 2024-12-13篡改代码并攻击大模型,前实习生被字节跳动起
- 2024-12-13《暗黑破坏神2:重制版》添加wasd移动功能 结果
- 2024-12-13Windows 版网络备份工具 NetBackup 曝提权漏洞,黑客
- 2024-12-13苹果 tvOS 18.2 隐藏代码显示 Apple TV 将获得史努比
- 2024-11-06AMD用户有福了!几行代码让FSR2性能暴涨228%
精彩推荐
- ASP教程
asp+javascript实现404页的处理转换
asp+javascript实现404页的处理转换...
- ASP教程
asp之基于adodb.stream的文件操作类
asp之基于adodb.stream的文件操作类...
- ASP教程
ASP.NET 数据源
数据源 一个 data sourse 控件与数据绑定的控件相互作用,并隐藏了复杂的数据的联编过程。这些是提供数据给 data bound 控件的工具,并且支持如插入,删除...
- ASP教程
JScript中遍历Request表单参数集合的方法
这篇文章主要介绍了JScript中遍历Request表单参数集合的方法,本文以遍历Request.QueryString集合为例给出了实现代码,需要的朋友可以参考下...
- ASP教程
ASP常用函数:getpy()
ASP常用函数:getpy()...
- ASP教程
asp 采集实战代码
最近实在是太流行采集了,本人是不喜欢采集的,但对采集的原理我却很有兴趣进行研究,拿到了网上采集常用函数,对其进行了一番研究,并实战,结果...
- ASP教程
asp 标记字符串中指定字符变色不区分大小写
今天遇到这种问题,单纯的使用replace函数不行,他会改变原有的字符串的大小写,在网上找到相关的代码,自己备份下...
- ASP教程
asp Access数据备份,还原,压缩类代码
asp Access数据备份,还原,压缩类实现代码,大家可以参考下。...