实现文件上传的程序源码的PHP源码(页 1) - ASP,PHP,CGI,JSP技术 - 捌玖网络工作室 |网页制作|平面设计|建站交流|代码资料|建站教程|主机域名|asp、php、jsp代码|网站素材

admin 发表于 2007-11-17 08:53

实现文件上传的程序源码的PHP源码

如何实现文件上传 ?[code] X\wI5R
<HTML>
<HEAD> B#z i^[va)Gv,b
<TITLE>文件上传界面</TITLE>
</HEAD> a"}(NU w-?S;V
<BODY><TABLE><CENTER>
<?
if($UploadAction){^+Lue9M9ck!v
$UploadAction=0; )xc_jCA'oQ%h
$TimeLimit=60; $ty0b|(H)Xz0O
/*设置超时限制时间默认时间为 30s，设置为0时为不限时 */
set_time_limit($TimeLimit); 4i fg1vg)t7K,@
If(($Upfile != "none")&&
($Upfile != "")) r9La9D6Jb/A&a
{
$Filepath="d:\web\web\php\test"; //上载文件存放路径
$FileName=$Filepath.$Upfile_name; b%B0R j!u
if($Upfile_size <1024) //上载文件大小
{$FileSize = (string)$Upfile_size . "字节";}
elseif($Upfile_size <(1024 * 1024))
{{&\'IXn:a,w&\I
$FileSize = number_format((double)($Upfile_size / 1024), 1) . " KB";hIzz0D6YZ_
}
else w@dj{m
{
$FileSize = number_format((double)($Upfile_size/(1024*1024)),1)."MB"; 7j1`~5]EY
} 9]3o#L9FH7skj3Zx
if(!file_exists($FileName)) 7Yul7XEy
{ "[R1RK f3F(wvVf
if(copy($Upfile,$FileName))
{unlink($Upfile); 6TH,U qPN:N
echo "<br><br>\n";
echo "文件 $Upfile_name 已上载成功！";-OC'cBC
echo "<br><br>\n";A V{y&i1sj
echo "文件位置：$FileName";
echo "<br><br>\n";?7JI;M)u2]m%L|ON
echo "文件大小：$FileSize";P yKC(S.F
echo "<br><br>\n";
} ]BcwcQO
else
{echo "文件 $Upfile_name上载失败！"; }
} (mlb1h.b| x-D9Bn
else
{echo "文件 $Upfile_name已经存在！"; }
} CC:e?*uRD$L2^
else
{echo "你没有选择任何文件上载！"; }
set_time_limit(30); //恢复默认超时设置 -i*x-YVj/XD
}B6H^fi$e
?>
<FORM ENCTYPE = "multipart/form-data" NAME = "SubmitForm"
ACTION = "default.php" METHOD = "POST"> Q1X(h1O.y
<INPUT TYPE = "hidden" NAME = "MAX_FILE_SIZE" VALUE ="1000000">
<INPUT TYPE = "hidden" NAME = "UploadAction" VALUE = "1">
<TR><TD><INPUT NAME = "Upfile" TYPE = "file" SIZE = "30"></TD> $[ Q_`3B(E,i|
</TR><TR><TD><INPUT NAME = "submit" VALUE = "提交" TYPE = "submit">
<INPUT NAME = "reset" VALUE = "重置" TYPE = "reset"></TD> &FmBtQ&u9`4|p
</TR></FORM></CENTER></TABLE>
</BODY> 2|+^Fit:I `
</HTML>[/code]

页: [1]

捌玖网络工作室's Archiver

实现文件上传的程序源码的PHP源码