📄 iplockuser.asp
字号:
<%
dim GuUserIPArray,GuSQL1,rsIP1
GuUserIPArray=split(GuUserIP,".")
GuSQL1="select * from "&GuTablePrefix&"_IPLock where IP_Type='user' 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 "
set rsIP1=GuConn.execute(GuSQL1)
if not (rsIP1.bof or rsIP1.eof) then
Response.write "<html>" &vbCrLf
Response.write "<head>" &vbCrLf
Response.write "<title>"&WebSiteName&"</title>" &vbCrLf
Response.write "<meta http-equiv=""Content-Type"" content=""text/html;charset=gb2312"">" &vbCrLf
Response.write "<meta http-equiv=""Content-Language"" Content=""zh-CN"">" &vbCrLf
Response.write "<link type=""text/css"" rel=""stylesheet"" href=""Include/Style.css"">" &vbCrLf
Response.write "</head>" &vbCrLf
Response.write "" &vbCrLf
Response.write "<body>" &vbCrLf
Response.write "" &vbCrLf
Response.write "<font class=""BlackG14"">"&GuUserIP&"<br>Browser has been restricted</font>" &vbCrLf
Response.write "" &vbCrLf
Response.write "</body>" &vbCrLf
Response.write "</html>" &vbCrLf
Response.end
end if
set rsIP1=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -