upload файла с клиента на сервер
Как сделать upload файла с клиента на сервер?
Если можно, то желательно код на VBScripte.
Если можно, то желательно код на VBScripte.
Цитата:
Originally posted by goodstas
Как сделать upload файла с клиента на сервер?
Если можно, то желательно код на VBScripte.
Как сделать upload файла с клиента на сервер?
Если можно, то желательно код на VBScripte.
Не знаю, как на VB, но на перле это выглядело бы вот так:
use CGI;
use File::Basename;
my $query = new CGI;
my $upfile = $query->upload("upfile") or die "Can't upload $upfile2";
my $upfile_name = $query->param("upfile");
my $destPath = basename("$upfile_name",".ext") . '.ext';
if(open(UPLOADFILE, ">$destPath")) {
while (my $bytesread = read($upfile, my $buffer, 1024)) {
print UPLOADFILE $buffer;
}
close (UPLOADFILE);
} else {
print "Can't open $destPath";
exit();
}
Форма выглядит след. образом:
<form method=post action=url enctype="multipart/form-data">
<input type=file name=upfile>
<input type=submit>
</form>