IPLockAdmin.asp
上传用户:yunfeng252
上传日期:2022-07-23
资源大小:12403k
文件大小:2k
源码类别:

Jsp/Servlet

开发平台:

Java

  1. <%
  2. dim GuUserIPArray,GuSQL1,rsIP1,GuSQL2,rsIP2
  3. GuUserIPArray=split(GuUserIP,".")
  4. GuSQL1="select * from "&GuTablePrefix&"_IPLock where IP_Type='admin' "
  5. set rsIP1=GuConn.execute(GuSQL1)
  6. if not (rsIP1.bof or rsIP1.eof) then
  7. GuSQL2="select * from "&GuTablePrefix&"_IPLock Where IP_Type='admin' and ((IP_Same=4 and IP_A="&Cint(GuUserIPArray(0))&" and IP_B="&Cint(GuUserIPArray(1))&" and IP_C="&Cint(GuUserIPArray(2))&" and IP_D="&Cint(GuUserIPArray(3))&") or (IP_Same=3 and IP_A="&Cint(GuUserIPArray(0))&" and IP_B="&Cint(GuUserIPArray(1))&" and IP_C="&Cint(GuUserIPArray(2))&") or (IP_Same=2 and IP_A="&Cint(GuUserIPArray(0))&" and IP_B="&Cint(GuUserIPArray(1))&") or (IP_Same=1 and IP_A="&Cint(GuUserIPArray(0))&")) order by IP_ID "
  8. set rsIP2=GuConn.execute(GuSQL2)
  9. if rsIP2.bof and rsIP2.eof then
  10. Response.write "<html>" &vbCrLf
  11. Response.write "<head>" &vbCrLf
  12. Response.write "<title>"&WebSiteName&"</title>" &vbCrLf
  13. Response.write "<meta http-equiv=""Content-Type"" content=""text/html;charset=gb2312"">" &vbCrLf
  14. Response.write "<meta http-equiv=""Content-Language"" Content=""zh-CN"">" &vbCrLf
  15. Response.write "<link type=""text/css"" rel=""stylesheet"" href=""Include/Style.css"">" &vbCrLf
  16. Response.write "</head>" &vbCrLf
  17. Response.write "" &vbCrLf
  18. Response.write "<body>" &vbCrLf
  19. Response.write "" &vbCrLf
  20. Response.write "<font class=""BlackG14"">"&GuUserIP&"<br>Browser has been restricted</font>" &vbCrLf
  21. Response.write "" &vbCrLf
  22. Response.write "</body>" &vbCrLf
  23. Response.write "</html>" &vbCrLf
  24. Response.end
  25. end if
  26. set rsIP2=Nothing
  27. end if
  28. set rsIP1=Nothing
  29. %>