西安做网站根据IP地址自动判断转向分站的代码

11252013-12-07

西安做网站根据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("1 ")
        if instr(UrlCity,"深圳")<>0 then response.Redirect("2 ")
        if instr(UrlCity,"上海")<>0 then response.Redirect("3")

IP库网上很多,西安网站建设团队点墨网络竭诚为您服务。上面只是其中一种方法.


 

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:029-89640155 18991365125

公司地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

办公电话:029-89640155

服务热线:18991365125

客服信箱:vip@dianmo.cc

846461336327

西安点墨网络科技有限公司

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1