查看: 110|回复: 3

[问与答] 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")

编码注意下
您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号