• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    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("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 多关键词搜索的简单实现方法
    下一篇:asp dictionary对象的用法
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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