以后地位:首页 > 建站常识 > 列表

asp 判定IP属于国际或外洋跳转到差别页面

点击: 次时候:2016/11/30关头词:ip ip地点 asp
实在从手艺角度来判定国际IP仍是外洋IP是须要经由过程大批的IP库来判定的,像咱们日常平凡瞥见的再一个网站上一下就查问出来究竟是属于哪一个国度的并且能细化到阿谁地域这是须要先做一个IP库而后经由过程查问能力查到的,不能纯真的从IP段来完成跳转页面的功效。咱们在这里能够阐发

实在从手艺角度来判定国际IP仍是外洋IP是须要经由过程大批的IP库来判定的,像咱们日常平凡瞥见的再一个网站上一下就查问出来究竟是属于哪一个国度的并且能细化到阿谁地域这是须要先做一个IP库而后经由过程查问能力查到的,不能纯真的从IP段来完成跳转页面的功效。

咱们在这里能够阐发下若何经由过程IP段来完成跳转页面代码以下

ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")if ip<>220.129.23 then  Response.Redirect("en/index.asp") ‘完成跳转功效end if下面这代码普通环境下能够利用,若是碰到IP段就必须利用字符查问函数ip=Request.ServerVariables("HTTP_X_FORWARDED_FOR")if InStr(content,"220.129") > 0 '字符查问国际IP段Response.Redirect("en/index.asp")end if

下面讲的代码都是在咱们把握了IP或是IP段,IP库的条件利用的。若是咱们不这些判定国际和外洋IP就很是难,小编就保举你利用别的一种判定IP的代码

dim aaaa=Request.ServerVariables("HTTP_ACCEPT_LANGUAGE") '判定字符集,if instr(aa,"zh")=1 then ‘判定字符集是否是包罗zh字段,若是包罗就跳转response.Redirect "http://www.puyi.sh.cn/index.asp"elseresponse.Redirect "http://puyi.sh.cn/index.asp"end if

下面代码便是经由过程阅读器所用的字符集,普通外洋必定不会用中国的字符集的。

ASP获得客户端IP地点并判定是否是国际IP,从而完成差别的跳转:

方式一:

Function leleToStr(str)Dim streamSet stream=Server.CreateObject("ADODB.Stream")With stream  .Type=1  .Mode=3  .Open  .Write str  .Position = 0  .Type = 2  .Charset = "gb2312"  leleToStr = .ReadText  .CloseEnd WithSet stream=NothingEnd Function'获得IP地点地域Function getIPAddress()on error resume nextdim xmlhttp,urlurl = "http://ip.qq.com"set xmlhttp = server.CreateObject("Msxml2.XMLHTTP")xmlhttp.open "get",url,falsexmlhttp.send'起头截取字符      dim StartStr,EndStr,htmlhtml = leleToStr(xmlhttp.responseBody)StartStr = Instr(html,"地点地为:")      EndStr = Instr(html,"若是该IP")      html = mid(html,StartStr,EndStr-StartStr)'再次获得StartStr = Instr(html,"")StartStr = StartStr + 6EndStr = Instr(html,"")html = mid(html,StartStr,EndStr-StartStr)getIPAddress = htmlif err then err.clear:html = ""set xmlhttp = nothingEnd Functionif Instr(getIPAddress(),"中国")>0 then Response.Redirect("index.php")else Response.Redirect("e_index.php")end if


预定建站
收费供给网站优化
支付关头词