<%Response.Buffer=true response.expires=0 myid=Session("myid") myname=Session("myname") if myid="" or myname="" then response.end application.lock call get_guests if myname<>guests(myid,0) or Session("mytemp")<>guests(myid,1) then response.end my_level=guests(myid,4) if my_level<(-1*guests(myid,9)) then my_level=-1*guests(myid,9) call get_votes if (votes(0)<>0 and votes(1)=myname) then my_level=1 set rsparam=conn.execute("select * from param") if my_level-rsparam("llockip")<0 and my_level-rsparam("llockuser")<0 then call echoerr("你暂时还没有任何超级管理权力！","online_admin.asp") response.end end if%>

<%if my_level-rsparam("llockip")>=0 then%> <%conn.Execute("DELETE FROM ip_lock WHERE (DATEDIFF('s',end_time,now())>0)") set rs=conn.Execute("select * from ip_lock") if not (rs.eof or rs.bof) then%> <%Do While (Not Rs.Eof)%> <%rs.movenext loop else%> <%end if%> <%end if if my_level-rsparam("llockuser")>=0 then%> <%if my_level-rsparam("llockuser")=0 then set rs=conn.Execute("select * from user WHERE out_info=6 and (DATEDIFF('s',out_time,now())<0)") else set rs=conn.Execute("select * from user WHERE (out_info=6 and (DATEDIFF('s',out_time,now())<0)) or out_info=7") end if if not (rs.eof or rs.bof) then%> <%Do While (Not Rs.Eof) if rs("out_info")=7 then t="永久" else t=datediff("n",now(),rs("out_time")) end if%> <%rs.movenext loop%> <%else%> <%end if end if%> 解/封锁IP 被封锁IP 剩余时间(分) 无IP被封锁 　 IP地址: 封锁时间:小时 　 解冻用户 被冻结用户 剩余时间(分) 　 用户名: 无用户被冻结 [后退]