简化版 分站 地图 日历 影视
计算器 行情 加解密 长度 面积
首页 软件 编程 笑话 知识 公告 注册 登录 用QQ登录本站
  •  
    您现在的位置:首页 >> ASP >> 内容

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

    内容摘要:Function getIpvalue(clientIP)'得到客户端的IP转换成长整型,返回值getIpvalueOn Error Resume NextDim strIp, array_IpstrIp=0array_Ip = Split(clientIP,'.')If UBound(array_Ip)3 ThengetIpvalue=0Exit Func......

      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.yc58.com")

    end if

    if instr(UrlCity,"深圳")<>0 then

    response.Redirect("http://sz.yc58.com")

    end if

    if instr(UrlCity,"上海")<>0 then

    response.Redirect("http://sh.yc58.com")

    end if

    所用到的IP数据库可以去网上down一个回来

      版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


    发布日期:2019/9/18 发布时间:15:47:51 点击:2718 
  • 上一篇:asp目录读写权限检测脚本
  • 下一篇:多关键词搜索的简单实现方法
  • 本类新增
    本类热门文章
    Baidu
    壹 家 软 件 工 作 室(YiJia SoftWare Workroom) 齐天大圣® 制 作 ©2000-2020

    本空间由景安网络提供,百度云加速提供加速防护
    YiJiaCMS V3.31 Build 20.6.5(MSSQL) 闽ICP备05000814号-1