根據訪問者IP顯示或跳轉到地區分站

來源:互聯網
上載者:User

根據IP來判斷, 就會根據訪問者的IP自動跳轉到訪問者所在城市的地區分站
參考代碼如下:

Function lookaddress(sip)
    Dim str1, str2, str3, str4
    Dim num
    Dim irs
    If IsNumeric(Left(sip, 2)) Then
        If sip = "127.0.0.1" Then sip = "192.168.0.1"
        str1 = Left(sip, InStr(sip, ".") - 1)
        sip = Mid(sip, InStr(sip, ".") + 1)
        str2 = Left(sip, InStr(sip, ".") - 1)
        sip = Mid(sip, InStr(sip, ".") + 1)
        str3 = Left(sip, InStr(sip, ".") - 1)
        str4 = Mid(sip, InStr(sip, ".") + 1)
        If IsNumeric(str1) = 0 Or IsNumeric(str2) = 0 Or IsNumeric(str3) = 0 Or IsNumeric(str4) = 0 Then
        Else
            num = cdbl(str1) * 16777216 + cdbl(str2) * 65536 + cdbl(str3) * 256 + cdbl(str4) - 1
            sql = "select timezone from IPaddress where startip <=" & num & " and endip >=" & num
            Set irs = conn.Execute(sql)
            If irs.EOF And irs.BOF Then
                lookaddress = "0"
            Else
                Do While Not irs.EOF
                    lookaddress = irs(0)
                    irs.MoveNext
                Loop
            End If
            irs.Close
            Set irs = Nothing
        End If
    Else
        lookaddress = "0"
    End If
End Function
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
visitflag = lookaddress(userip)
if visitflag = "" then
    Response.Write("window.location.href='http:/www.goimage.cn';")
elseif visitflag="010"
    Response.Write("window.location.href='http:/bj.goimage.cn';")
end if

資料庫結構:
表名:IPaddress
startip: 起始IP
endip: 結束IP
country: 所在位置
timezone: 電話區號(這雷根據電話區號做判斷,分站可以做到縣級)



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。