18th

09.08

asp编程:判断IP,IP段是否合法示例

No CommentAsp编程cngothic

asp编程:判断IP,IP段是否合法示例
在做一个项目时为了更好的禁恶意者的行为.通常会禁IP,或IP段来防止恶意行为.如果只判断IP则好说.但判断IP段.
就难了.没有办法比较.下面说个示例.把IP转移为数值.意思就是把起始IP与终止IP转换为数值.这两数值间的数也就是
这两个IP间的IP.
代码:

  1. '//IP转换成数字，限制IP时用
  2. '// userIPnum = IP2Num(Request.ServerVariables("REMOTE_ADDR"))
  3. '// if userIPnum > IP2Num("192.168.0.0") and userIPnum < IP2Num("192.168.0.255") then
  4. '// response.write ("<center>您的IP被禁止</center>")
  5. '// response.end'
  6. // end if
  7.  
  8. function IP2Num(sip)
  9. dim str1,str2,str3,str4
  10. dim num IP2Num=0
  11. if isnumeric(left(sip,2)) then
  12. str1=left(sip,instr(sip,".")-1)
  13. sip=mid(sip,instr(sip,".")+1)
  14. str2=left(sip,instr(sip,".")-1)
  15. sip=mid(sip,instr(sip,".")+1)
  16. str3=left(sip,instr(sip,".")-1)
  17. str4=mid(sip,instr(sip,".")+1)
  18. num=cint(str1)*256*256*256+cint(str2)*256*256+cint(str3)*256+cint(str4)-1
  19. IP2Num = num
  20. end if
  21. end function

,