|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Sadretdinova Nelly 2:5020/400 08 Jul 2004 15:19:46
To : Dmitry A. Nikitin
Subject : Re: Загрузка файл
--------------------------------------------------------------------------------
DA> Отдай ему так и не мучайся. Самый надёжный и простой способ.
DA> $flenght = -s $fname;
DA> $file = "Запорожцы пишут письмо турецкому султану.doc";
DA> open IN, "<$fname" || die($!);
DA> print $cgi->header(
DA> -type => 'application/octet-stream',
DA> -Content_Disposition => "attachment; filename=\"$file\"",
DA> );
DA> binmode STDOUT;
DA> binmode IN;
DA> while(<IN>){
DA> print ;
DA> }
DA> close IN;
Спасибо, так и сделала.
Только проблем-с: при загрузке файла невесть откуда вылезает пустое
окно. Как бы от него избавиться?
--
С уважением, Hелли.
*** Hа конкурсе по женской логике с большим отрывом победил генератор
случайных чисел.
Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
--- ifmail v.2.15dev5.3
* Origin: Talk.ru (2:5020/400)
Вернуться к списку тем, сортированных по:
|
