我要投稿
  • 您当前的位置:365bet官方 -> 技术教程 -> 网站建设教程 -> 源码精华 -> 教程内容
  • [ 收藏本页教程 ]
  • 封IP的ASP代码的实现源码精华教程

    教程作者:佚名    教程来源:不详   教程栏目:源码精华    收藏本页
    建一个表:IP论坛封IP
    建一个表:IP
    2个双精度的字段 IP_start与IP_end

    存伫代码形式如下:
    存伫的时候,将普通的IP转成双精度数字..
    如果:
    ip_start=request("ip_start")
    ip_ary=split(ip_start,".")
    ip_start=ip_ary(0)*256*256*256+ip_ary(1)*256*256+ip_ary(2)*256+ip_ary(3)
    ip_and=request("ip_end")
    ip_ary=split(ip_end,".")
    ip_end=ip_ary(0)*256*256*256+ip_ary(1)*256*256+ip_ary(2)*256+ip_ary(3)
    sql="select top 1 * from ip"
    rs.open sql,conn,1,3
    rs.addnew
    rs("ip_start")=ip_start
    rs("ip_end")=ip_end
    rs.update
    ----------------------------------- 存伫完毕
    查询:
    ip=Request.ServerVariables("remote_addr")
    ip_ary=split(ip,".")
    tmp_ip=ip_ary(0)*256*256*256+ip_ary(1)*256*256+ip_ary(2)*256+ip_ary(3)
    sql="select * from ip where ip_start<="&tmp_ip&" and ip_and>="&tmp_ip
    rs.open sql,conn,0,1
    if no rs.eof then
    response.write("你的IP被封")
    response.end
    end if

    2个双精度的字段 IP_start与IP_end

    存伫代码形式如下:
    存伫的时候,将普通的IP转成双精度数字..
    如果:
    ip_start=request("ip_start")
    ip_ary=split(ip_start,".")
    ip_start=ip_ary(0)*256*256*256+ip_ary(1)*256*256+ip_ary(2)*256+ip_ary(3)
    ip_and=request("ip_end")
    ip_ary=split(ip_end,".")
    ip_end=ip_ary(0)*256*256*256+ip_ary(1)*256*256+ip_ary(2)*256+ip_ary(3)
    sql="select top 1 * from ip"
    rs.open sql,conn,1,3
    rs.addnew
    rs("ip_start")=ip_start
    rs("ip_end")=ip_end
    rs.update
    ----------------------------------- 存伫完毕
    查询:
    ip=Request.ServerVariables("remote_addr")
    ip_ary=split(ip,".")
    tmp_ip=ip_ary(0)*256*256*256+ip_ary(1)*256*256+ip_ary(2)*256+ip_ary(3)
    sql="select * from ip where ip_start<="&tmp_ip&" and ip_and>="&tmp_ip
    rs.open sql,conn,0,1
    if no rs.eof then
    response.write("你的IP被封")
    response.end
    end if

    (出处:

    我要投稿   -   广告合作   -   关于本站   -   友情连接   -   网站地图   -   联系我们   -   版权声明   -   设为首页   -   加入收藏   -   网站留言
    Copyright © 2009 - 20012 www.www.ct131.com All Rights Reserved.365bet官方 版权所有