如何在IBM i (OS/400)上实现文件上传功能

本示例展示了如何在IBM i (OS/400)上实现文件上传功能。通过使用CGI程序，将前端提交的文件保存至IBM i系统中指定文件夹下。

//CGI程序
#!/QOpenSys/usr/bin/qsh
SYSTEM "chmod 755 /www/cgi-bin/upload.cgi" //赋予执行权限
echo "Content-type:text/html\n\n"; //设置响应头
//根据需要修改以下两个变量
$folder = "/www/uploads/"; //文件保存的目录
$maxSize = 100*1024*1024; //文件最大尺寸，此处为100MB
if ($_SERVER["REQUEST_METHOD"] == "POST" && $_FILES["file"]["error"] == UPLOAD_ERR_OK) {
    $fileName = $_FILES["file"]["name"];
    $fileSize = $_FILES["file"]["size"];
    if ($fileSize > $maxSize) {
        echo "文件尺寸不能超过100MB";
        exit;
    }
    move_uploaded_file($_FILES["file"]["tmp_name"], $folder . $fileName);
    echo "上传成功！";
} else {
    echo "上传失败！";
}

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com