Yolanda
26 de Agosto del 2003

Hola, queremos hacer una zona de descargas, de tal forma los usuarios puedan descargarse archivos de una carpeta determinada a la que le quitamos los permisos de lectura.
Utilizamos IIS, Perl, Asp.
Por ahora, hemos intentado algo así, pero sólo conseguimos que se descargue el propio asp.
Gracias.
$Response->Redirect("../Descargas/UPLOAD/pvd01.zip");
$filename = $Server->MapPath('../Descargas/UPLOAD/ee.doc');

$buf;
open ( FILE, $filename );
read ( FILE, $buf, 10000 );
close FILE;
# This converts to a variant unicode value
my $variant = Win32::OLE::Variant->new( VT_UI1, $buf );
$Response->BinaryWrite($variant);