asp自动判别访问的IP去对照IP库，非中国IP禁止访问或者跳转404

虎皮猫 · 发表于 2019-8-12 01:48:24

IP数据库格式是 ipdb，望大神解决难题

自动判别访问的IP去对照IP库，非中国IP禁止访问或者跳转404

这是当前识别页我自己写的代码而这个识别后去对比IP我不会写

<%
ip=Request.ServerVariables("REMOTE_HOST")
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open "Select * From cip where ip='"&ip&"'",Conn,1,3
if rs.eof or rs.bof then
Rs.AddNew
Rs("time") = Now()
Rs("ip") = Request.ServerVariables("REMOTE_HOST")
Rs("ci")=1
else
rs("ci")=rs("ci")+1
end if
Rs.Update
Rs.Close
Set Rs = Nothing
   %>

<%
ip=Request.ServerVariables("REMOTE_HOST")
Set Rs = Server.CreateObject("Adodb.Recordset")
Rs.Open "Select * From cip where ip='"&ip&"' and ci>1",Conn,1,1
if not rs.eof then
      response.Write"<script>location.href='404.html'</script>"
      else
      response.Write"<script>location.href='pension.html'</script>"
end if
rs.close
set rs=nothing
conn.close
%>

ttasp · 发表于 2019-8-13 11:20:01

根据IP查询 ipdb，会返回地区信息，如果包含了“”“中国”，就可以认定是中国地区了。大概这个思路，具体你看看数据库数据。应该有思路

虎皮猫 · 发表于 2019-10-8 23:22:00

ttasp 发表于 2019-8-13 11:20
根据IP查询 ipdb，会返回地区信息，如果包含了“”“中国”，就可以认定是中国地区了。大概这个思路，具体 ...

包含中国这段是怎么写呢我写了但是是无效字符

ip=Request.ServerVariables("REMOTE_HOST")
IPAdd=Look_Ip("cz.dat",ip)
if Look_Ip("cz.dat",ip) = 日本 then 这段出错（无效字符）错误中日本两个字是乱码想要包含日本这两个字的结果都不能访问
response.Write"不允许访问"
else

xuanxiao · 发表于 2019-10-9 23:17:52

虎皮猫发表于 2019-10-8 23:22
包含中国这段是怎么写呢我写了但是是无效字符

ip=Request.ServerVariables("REMOTE_HOST")

编码注意下

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)

天天ASP家园网友互动群

[问与答] asp自动判别访问的IP去对照IP库，非中国IP禁止访问或者跳转404

在线客服

官方Q群 天天ASP家园网友互动群 群1: 697497501(新手学习互助群) 群2: 47598123(进阶应用群)

天天ASP家园网友互动群

[问与答] asp自动判别访问的IP去对照IP库，非中国IP禁止访问或者跳转404

在线客服

官方Q群

天天ASP家园网友互动群

群1: 697497501(新手学习互助群)

群2: 47598123(进阶应用群)