婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

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

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

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

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

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

    智能AI客服机器人
    15000

    在线订购

    合计11份范本:公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议

    推薦文章
    主站蜘蛛池模板: 乐业县| 大新县| 达孜县| 海伦市| 龙岩市| 津南区| 望谟县| 凤城市| 石渠县| 泾川县| 龙江县| 会同县| 沙洋县| 河津市| 内黄县| 三都| 娄烦县| 丰原市| 翁牛特旗| 鸡泽县| 太谷县| 景德镇市| 海口市| 中西区| 长兴县| 中阳县| 宿州市| 鲜城| 枝江市| 巴林右旗| 英山县| 陈巴尔虎旗| 汉川市| 兴国县| 奎屯市| 宜君县| 安远县| 双流县| 信丰县| 浮梁县| 岳阳县|