gpt4 book ai didi

Asp下实现限制IP访问的程序代码

转载 作者:qq735679552 更新时间:2022-09-29 22:32:09 24 4
gpt4 key购买 nike

CFSDN坚持开源创造价值,我们致力于搭建一个资源共享平台,让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章Asp下实现限制IP访问的程序代码由作者收集整理,如果你对这篇文章有兴趣,记得点赞哟.

  1. <%  
  2. ''获取访问者的地址  
  3. ip=Request.ServerVariables("REMOTE_ADDR")   
  4.  
  5. ''允许的IP地址段为10.0.0.0~10.68.63.255  
  6. allowip1="10.0.0.0"  
  7. allowip2="10.68.10.71"  
  8. response.write checkip(ip,allowip1,allowip2)  
  9. function checkip(ip,allowip1,allowip2)  
  10. dim check(4)  
  11. checkip=false  
  12. ipstr=split(ip,".")  
  13. allow1=split(allowip1,".")  
  14. allow2=split(allowip2,".")  
  15. if cint(allow1(0))>cint(allow2(0)) then ''判断IP地址段是否合法  
  16. response.write "禁止访问"  
  17. exit function  
  18. end if  
  19. for i=0 to ubound(ipstr)  
  20. if cint(allow1(i))<cint(allow2(i)) then  
  21. if cint(allow1(i))=cint(ipstr(i)) then  
  22. check(i)=true  
  23. checkip=true  
  24. exit for  
  25. else  
  26. if cint(ipstr(i))<cint(allow2(i)) then  
  27. check(i)=true  
  28. checkip=true  
  29. exit for  
  30. else  
  31. if cint(ipstr(i))>cint(allow2(i)) then  
  32. check(i)=false  
  33. checkip=false  
  34. exit for  
  35. else  
  36. check(i)=true  
  37. checkip=true  
  38. end if  
  39. end if  
  40. end if  
  41. else  
  42. if cint(allow1(i))>cint(ipstr(i)) or cint(allow1(i))<cint(ipstr(i)) then  
  43. check(i)=false  
  44. checkip=false  
  45. if i<>ubound(ipstr) then  
  46. exit for  
  47. end if  
  48. else  
  49. check(i)=true  
  50. end if  
  51. end if  
  52. next  
  53. if (check(0)=true and check(1)=true and check(2)=true and check(3)=false) and (cint(allow2(2))>cint(ipstr(2))) then  
  54. checkip=true  
  55. end if  
  56. end function  
  57. %> 

最后此篇关于Asp下实现限制IP访问的程序代码的文章就讲到这里了,如果你想了解更多关于Asp下实现限制IP访问的程序代码的内容请搜索CFSDN的文章或继续浏览相关文章,希望大家以后支持我的博客! 。

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com