VPF::Загрузка сразу несколько файлов

AlexanderI

Дата 6.5.2006, 09:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 9.7.2004

Репутация: 2
Всего: 3

У кого-нибудь есть скрипт загрузки сразу нескольких файлов ?

Т.е. появляется окно, где выделяем сразу много файлов, нажимаем загрузить и они загружаются.

Буду рад всем пердложениям и высказываниям.

--------------------

Магазин детских игрушек | Авто ВАЗ

igorold

Дата 6.5.2006, 12:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 22.12.2005
Где: Россия->Урал-& gt;Миасс

Репутация: 3
Всего: 17

Не понимаю в чем проблема?
Определяешь несколько полей ввода:

Код


<FORM ACTION="/var/www/support.pl" METHOD="POST" enctype="multipart/form-data" NAME="Add">
Файл 1: <INPUT TYPE="file" name="ImportText1"> 
Файл 2: <INPUT TYPE="file" name="ImportText2">
.......................
Файл N: <INPUT TYPE="file" name="ImportTextN">

и в скрипте потом:

Код


my $ImportText1    = CGI::param("ImportText1");
my $ImportText2    = CGI::param("ImportText2");
...............
my $ImportTextN    = CGI::param("ImportTextN");
my $ContI=0;
if ($ImportText1 ne "") {
                $ContI++;
                $Filename = $ContI;
                my $Path = CalcDir($ContI);
                open (FILE, "> /attached$Path/$Filename") or die $!;
                binmode $ImportText1;
                binmode FILE;
                while (<$ImportText1>) {
                    print FILE;
                }
                close FILE;
}
if ($ImportText2 ne "") {
                $ContI++;
                $Filename = $ContI;
                my $Path = CalcDir($ContI);
                open (FILE, "> /attached$Path/$Filename") or die $!;
                binmode $ImportText2;
                binmode FILE;
                while (<$ImportText2>) {
                    print FILE;
                }
                close FILE;
}
................
if ($ImportTextN ne "") {
                $ContI++;
                $Filename = $ContI;
                my $Path = CalcDir($ContI);
                open (FILE, "> /attached$Path/$Filename") or die $!;
                binmode $ImportTextN;
                binmode FILE;
                while (<$ImportTextN>) {
                    print FILE;
                }
                close FILE;
}

я вырезал из своего скрипта в виде образца .... переделай под себя ....

--------------------

... у семи нянек 14 сисек ...
Putin here, Putin there, Putin almost everywhere!

AlexanderI

Дата 6.5.2006, 14:21 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 230
Регистрация: 9.7.2004

Репутация: 2
Всего: 3

Нет ты не понял вопроса.
Нужно не добавлять каждый файл в отдельное поле, а сразу выделать кучу файлов (одним махом) и после нажатия одной кнопки загрузить их.

--------------------

Магазин детских игрушек | Авто ВАЗ

igorold

Дата 6.5.2006, 14:50 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 557
Регистрация: 22.12.2005
Где: Россия->Урал-& gt;Миасс

Репутация: 3
Всего: 17

а-а-а-а понял ... ну надо, чтобы стандартная форма ввода файлов поддерживала такой "мультивыбор"
я про это не знаю ... может кто слышал ...

--------------------

... у семи нянек 14 сисек ...
Putin here, Putin there, Putin almost everywhere!

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »