Latest post of the previous page:
Ну и, наконец, нормальность не бывает ни новой, ни старой. Либо она есть, либо ее нет. Это старая как мир синектика.Моргенштерн. Занимательная библиография.
https://ru.wikipedia.org/wiki/%D0%9C%D0 ... 0%B8%D1%87
Latest post of the previous page:
Ну и, наконец, нормальность не бывает ни новой, ни старой. Либо она есть, либо ее нет. Это старая как мир синектика.Моргенштерн. Занимательная библиография.
Code: Select all
@echo off
#!C:\windows\system32\cmd.exe /c
echo Content-Type: text/plain
echo.
SET ARG="%QUERY_STRING%"
SET DELIM==
SET RET=:ret
GOTO :split
:ret
SET fname=%varval%
echo %fname% >> UNDOFS/log.txt
SET ARG="%fname%"
SET DELIM=$
SET RET=:ret1
GOTO :split
:ret1
SET subop=%varval%
echo %subop% >> UNDOFS/log.txt
IF -%subop%==-CLE GOTO :clear
IF -%subop%==-UND GOTO :undo
IF -%subop%==-RED GOTO :redo
IF -%subop%==-BAK GOTO :arch
IF -%subop%==-GET GOTO :get
IF -%subop%==-FIX GOTO :fix
:arch
SET /A C=0
PUSHD UNDOFS
FOR %%j IN (UND*.* ) DO SET /A C=C+1
POPD
IF NOT "%C%" == "0" goto :rename
:cop
COPY BDATA\%fname% UNDOFS\UND1
GOTO :quit
:rename
# здесь извлечь из файла длину очереди и подставить вместо 4 в операцию удаления
# также нужно передавать в скрипт субоперацию
PUSHD UNDOFS
IF EXIST UND4 (
DEL UND4
SET /A C=C-1
)
:loopren
SET /A N = C+1
REN UND%C% UND%N%
SET /A C = C-1
IF NOT "%C%" == "0" GOTO :loopren
POPD
GOTO :cop
:split
FOR /F "TOKENS=1,2 DELIMS=%DELIM%" %%i IN (%ARG%) DO CALL :setvar %%i %%j
GOTO %RET%
:setvar
SET varname=%1
SET varval=%2
EXIT /b
:clear
PUSHD UNDOFS
DEL UND*.*
POPD
GOTO :quit
:undo
PUSHD UNDOFS
SET /P up=<up.txt
SET /A up = up+1
IF EXIST UND%up% ECHO %up% > up.txt
POPD
GOTO :quit
:redo
PUSHD UNDOFS
SET /P up=<up.txt
SET /A up = up-1
IF EXIST UND%up% ECHO %up% > up.txt
POPD
GOTO :quit
:get
PUSHD UNDOFS
SET /P up=<up.txt
TYPE UND%up%
POPD
GOTO :quit
:fix
SET /P up=<up.txt
COPY UNDOFS\UND%up% tree.js
GOTO :quit
:quit
SET C=
SET varname=
SET varval=
SET fname=
SET N=
SET ARG=
SET DELIM=
SET up=
— Щука спряталась в воду, побулькала и снова высунулась. — Ну что просить-то будешь, служивый? Только попроще чего, а то просят телевизоры какие-то, транзисторы… Один совсем обалдел: "Выполни, — говорит, — за меня годовой план на лесопилке". Года мои не те — дрова пилить…
— Ага, — сказал я. — А телевизор вы, значит, все-таки можете?
Code: Select all
function CreateAudio(name,source,top,left,parent) {
return eval(name+"=new AudioPlayer('"+name+"','"+source+"',"+top+","+left+","+parent+");");
}
var AudioPlayer = function (name,source,top,left,parent) {
this.name=name;
this.source=source;
this.left=left;
this.top=top;
this.visible = true; // видимость
this.parent=parent;
this.parent = document.getElementById(parent);
this.container = 0;
this.autoplay = false;
this.controls = true;
this.loop = false;
this.preload = "none";
this.albumName = "";
this.albumData = [];
this.albumImage = [];
this.albumText = [];
this.randomPlay = false; // для альбомов
this.videoAnnounce = ""; // ссылка на видео-анонс
// должны быть процедуры загрузки альбома из папок вирт. ф.с. навигатора
// очистки альбома, добавления и удаления отдельных песен
// рефреша после добавления файлов в папку альбома и запуска проигрывателя из
// папки навигатора с проигрыванием содержащихся в ней аудиофайлов
this.setVisible = function(state)
{
// установка видимости компоненты
// state = true - видим, false - невидим
this.container.hidden = !state;
this.visible = state;
return;
}
this.setAutoplay = function(state)
{
return;
}
this.setConrols = function(state)
{
return;
}
this.setLoop = function(state)
{
return;
}
this.setPreload = function(type)
{
return;
}
this.MonoBox = function()
{
var res="";
res = "<audio id ='"+this.name+"_audio' controls='controls'>";
res+= "<source src='"+this.source+"' type='audio/mpeg' /> </audio>";
if (parent == 0) {
document.write(res);
} else {
this.parent.innerHTML+=res;
}
this.container = document.getElementById(this.name+"_audio");
return 0;
}
this.MonoBox();
return this;
}
Code: Select all
var gridName = this.unquotesName+"_grid1";
grid1 = CreateGrid(gridName,"['aaaa','bbbbb','cccccc']",80,20, "['links','links','links']", this.quotesName);
setFocus(grid1);
setMouseFocus(grid1);
grid1.Activate();