主頁 > 知識庫 > asp 根據(jù)IP地址自動判斷轉(zhuǎn)向分站的代碼

asp 根據(jù)IP地址自動判斷轉(zhuǎn)向分站的代碼

熱門標(biāo)簽:西寧公司外呼系統(tǒng)平臺 地圖標(biāo)注服務(wù)哪家好 外呼系統(tǒng)還用卡么 智能電銷機器人適用于哪些行業(yè) 長沙防封電銷卡品牌 徐州人工智能電銷機器人好用嗎 騰訊地圖標(biāo)注商戶關(guān)閉 地圖標(biāo)注宅基地 武漢營銷電話機器人軟件
Function getIpvalue(clientIP)'得到客戶端的IP轉(zhuǎn)換成長整型,返回值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數(shù)據(jù)庫可以去網(wǎng)上down一個回來

標(biāo)簽:普洱 巴彥淖爾 鷹潭 通化 荊門 通遼 雅安 運城

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《asp 根據(jù)IP地址自動判斷轉(zhuǎn)向分站的代碼》,本文關(guān)鍵詞  asp,根據(jù),地址,自動,判斷,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp 根據(jù)IP地址自動判斷轉(zhuǎn)向分站的代碼》相關(guān)的同類信息!
  • 本頁收集關(guān)于asp 根據(jù)IP地址自動判斷轉(zhuǎn)向分站的代碼的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章