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

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
%>

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

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

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

ip=Request.ServerVariables("REMOTE_HOST")

编码注意下