<%
id=request.querystring("id")
SET rs=Server.CreateObject("ADODB.Recordset")
SQL="select * from Manager where id=" & id
rs.open SQL,conn,1,1
lock=rs.fields("Lock")
if lock=0 then
lock=1
else
lock=0
end if
rs.close
SET rs=nothing
SET rs_up=Server.CreateObject("ADODB.Recordset")
SQL_up="update Manager set Lock=" & lock & " where id=" & id
rs_up.open SQL_up,conn,1,3
rs_up.close
SET rs_up=nothing
SET rs_up=Server.CreateObject("ADODB.Recordset")
SQL="select * from Manager where id=" & id
rs.open SQL,conn,1,1
if lock=1 then
response.write "<script>alert(""[ 锁定 ]\n该会员将无权对管理系统进行操作!"");window.close();</script>"
response.end
else
response.write "<script>alert(""[ 解锁 ]\n完全恢复该管理员的权限!"");window.close();</script>"
response.end
end if
rs.close
SET rs=nothing
%>