PHP3是一种非常强大的CGI脚本语言，就其语言特点基本上源于C，就其实现方式而言更象PERL，而其对数据库的内在支持更使之成为ASP的强大对手。
首先在前台必须有一个界面
文件上载界面
SubmitForm"
ACTION = "upload.php3" METHOD = "POST" >
"MAX_FILE_SIZE" VALUE ="1000000" >
UploadFile"
TYPE = "file" SIZE = "30" >
"提交" TYPE = "submit" >
"重置" TYPE = "reset" >
值得注意的是一个 MAX_FILE_SIZE 的隐藏值域，通过设置其VALUE 可以限制上载文件的大小。
然后在后台实现文件上载操作。如果只是最基本的上载，寥寥几行就可以搞定
If($UploadFile != "none")
{
copy($UploadFile,"$UploadFile_name");
unlink($UploadFile);
}
else
{
echo "你没有选择任何文件上载！";
}
? >
因为form传递过来的值自动赋值给同名变量，所以直接通过$UploadFile可以访问上载的文件，但由于这是一个保存文件的变量，因此文件名字必须通过另外一个$UploadFile_name变量取得。在拷贝文件后删去临时文件（unlink）。
上面的代码完全可以工作，但实际应用中漏洞百出，让我们逐步来完善之
首先，上载的文件必须有一个固定的目录保存，我们在这里用一个$UploadPath 变量保存之，如
$UploadPath = "/home/flier/upload/";
或复杂一点的自动定位，如
$UploadPath = AddSlashes(dirname
($PATH_TRANSLATED))."\\upload\\";
$PATH_TRANSLATED顾名思义是当前传送目录，
我们假定以其一个名为upload的子目录来保存上载的文件。dirname函数返回其目录名，然后加上子目录名
然后用一个变量$FileName保存完整的上载后文件名和路径$FileName = $UploadPath.$UploadFile_name;
其次，我们还想让用户得知上载文件的简要信息，如上载文件的大小
if($UploadFile_size // 上载文件大小
{
$FileSize = (string)$UploadFile_size . " 字节";
}
elseif($UploadFile_size {
$FileSize = number_format((double)
($UploadFile_size / 1024), 1) . " KB";
}
else
{
$FileSize = number_format((double)
($UploadFile_size / (1024 * 1024)), 1) . " MB";
}
number_format函数起到格式化输出的作用，具体用法请参照手册
下一步我们必须考虑到文件已经存在和拷贝操作失败的情况，并提供相应的提示信息
if(!file_exists($FileName))
{
if(copy($UploadFile,$FileName))
{
echo "文件 $UploadFile_name
($FileSize)上载成功！";
}
else
{
echo "文件 $UploadFile_name 上载失败！";
}
unlink($UploadFile);
}
else
{
echo "文件 $UploadFile_name 已经存在！";
}
然后我们应该考虑到大文件上载时容易出现超时的情况，可以用set_time_limit($TimeLimit); 加大超时限制时间。
最后，把截面和实现代码综合到一个单独的文件中，为了实现这个想法，我们通过在 form中添加一个隐含值UploadAction" VALUE = "1" > 指出当前的状态（界面或实现），以便区分对待 完成代码如下（文件名upload.php3）
if(!$UploadAction):
? >
文件上载界面
"SubmitForm" ACTION = "upload.php3" METHOD = "POST" >
"MAX_FILE_SIZE" VALUE ="1000000" >
UploadAction" VALUE = "1" >
UploadFile" TYPE =
"file" SIZE = "30" >
"提交" TYPE = "submit" >
"重置" TYPE = "reset" >
else:
? >
文件上载代码
$UploadAction=0;
$TimeLimit=60; /* 设置超时限制时间
缺省时间为 30 秒
设置为0时为不限时 */
set_time_limit($TimeLimit);
If(($UploadFile != "none")&&
($UploadFile != ""))
{
$UploadPath = AddSlashes(dirname
($PATH_TRANSLATED))."\\upload\\"; // 上载文件存放路径
$FileName = $UploadPath.$UploadFile_name;
// 上载文件名
if($UploadFile_size // 上载文件大小
{
$FileSize = (string)$UploadFile_size . " 字节";
}
elseif($UploadFile_size {
$FileSize = number_format((double)
($UploadFile_size / 1024), 1) . " KB";
}
else
{
$FileSize = number_format((double)
($UploadFile_size / (1024 * 1024)), 1) . " MB";
}
if(!file_exists($FileName))
{
if(copy($UploadFile,$FileName))
{
echo "文件 $UploadFile_name ($FileSize)上载成功！";
}
else
{
echo "文件 $UploadFile_name 上载失败！";
}
unlink($UploadFile);
}
else
{
echo "文件 $UploadFile_name 已经存在！";
}
}
else
{
echo "你没有选择任何文件上载！";
}
set_time_limit(30); // 恢复缺省超时设置
? >
返回
endif;
