| 预备知识：Javascript, PHP(少量)/Perl(少量)!
测试环境：Windows2000 + IIS5 + PHP (Win98 + PWS + PHP3 失败，估计是配置出了问题)
目录结构：
/wwwroot/cgi-bin/fileup.php （文件接收）
/wwwroot/www/test/phpfileup.htm （文件提交）
/wwwroot/www/test/tmp/ （默认保存目录）

前言：文件上传，简单又麻烦。下面是上传文件的提交页面，利用该页面你不仅可以生成 1000 个上传文件框（实际是任意多个 0~n ），而且可分别指出它们的保存路径。
提交页面的文件输入框为命名为： file0,file1,...file100,...fileN
提交页面的文件路径框为命名为： path0,path1,...path100,...pathN
由于页面的生成非常简单，所以就不在此多解释了，用 javascript 定义了两个函数，check() 用于提交页面，create()用于生成文件上传框。如果你有什么更好的建议或有什么疑问请 Email: [email protected]

phpfileup.htm
--------------------------------------------------------

 1<html>
 2<head>
 3<title></title>
 4<style>   
 5.lbtn {font-family:verdana;font-size:10.5pt;}   
 6.ist {font-family:verdana;font-size:14.8px;size:400}   
 7</style>
 8<script language="javascript">   
 9function check(){   
10document.frm1.submit();   
11document.body.innerHTML="Uploading Please wait!";   
12}   
13  
14var i=0;   
15function create(){   
16var sfrm = document.frm1.innerHTML;   
17var icnt = cnt.value;   
18for(j=0;j<icnt;j++)   
19{   
20sfrm = sfrm + "请选择文件 "+i+" <input type=file name='file"+i+"' class=ist>";   
21sfrm = sfrm + " 路径：<input type=text name='path"+i+"' value='../www/test/tmp/' class=ist>";   
22sfrm = sfrm + "<br>";   
23i++;   
24}   
25document.frm1.innerHTML = sfrm;   
26document.frm1.cnt.value=i;   
27}   
28  
29</script>
30</head>
31<body class="lbtn" onload="document.frm1.cnt.value=cnt.value;">   
32请输入要上传文件的数量: <input class="ist" name="cnt" onchange="document.frm1.cnt.value=this.value;" type="text" value="10"/>
33<input class="lbtn" name="bt1" onclick="create();" type="button" value="生成上传文件框"/>
34<input class="lbtn" name="bt1" onclick="check();" type="button" value="上传"/>
35<input class="lbtn" name="bt1" onclick="document.location.reload();" type="button" value="清除"/>
36<form action="../../cgi-bin/fileup.php" enctype="multipart/form-data" method="post" name="frm1">
37<input class="ist" name="cnt" type="hidden" value="20"/>
38</form>
39<input class="lbtn" name="bt1" onclick="check();" type="button" value="上传"/>
40<input class="lbtn" name="bt1" onclick="document.location.reload();" type="button" value="清除"/>
41</body>
42</html>

文件提交页面既已生成，下面任务就很明确了：将提交的文件内容保存到服务器上。

下面我们用两种方法来实现这个功能：

1. 用 PHP 来保存：
我们先定义一个文件保存函数 fup() 它有两个参数：
$filename: 文件内容
$fname: 文件名（包含路径）
剩下的就是写一个循环将文件依次写入服务器。这里要简单说明一下：
PHP 对于上传文件的处理是这样的：如果提交的文件框我为 file0, 那么提交给 PHP 的文件内容保存在变量 $file0 中，而文件名则保存在 $file0_name 中。这样在这个循环中我要做的就是将提交页面提交的内容分解出来，实现过程请看下面的代码。

fileup.php
----------------------------------------------------------------------

"; fup( $ $ffnn, $ $ffpath. $ $ffnnname); //"../www/test/tmp/" } ?> \---------------------------------------------------------------------- 2\. 用 PERL 来保存：它们实现的原理完全一样，在此不多说，请看代码： fileup.cgi(fileup.pl) \---------------------------------------------------------------------- #!/usr/bin/perl use CGI qw/:standard/; if ( $ENV{'CONTENT_TYPE'} !~ /multipart/form-data/) { print "Cache-Control: no-cachenPragma: no-cachen" . "Content-Type: text/htmlnn" . " ```Your web browser cannot upload files. Sorry.``` "; exit 0; } $cntfile=param('cnt'); print header; print start_html; #print "Receiving Please wait...."; &g_head; # $writed = '../www/test/tmp/'; for ( $i=0; $i< $cntfile; $i++){ $paramfile = 'file'. $i; $parampath='path'. $i; $writed=param( $parampath); &upfile &g_body; } &g_bott; #<<<<<<<<<<<<<<<<<<<<<以下为自定义过程<<<<<<<<<<<<<<<<<<<<<<<<< sub upfile { $maxdata = 512000; # $writed = '../www/test/tmp/'; $strRFname=reverse $xfile; $intIndex=index( $strRFname,'\'); $strNetFname=substr( $strRFname,0, $intIndex); $strNetFname=scalar reverse $strNetFname; if((stat $xfile)[7]> $maxdata){ print "Status: 411 Size Not Allowedn" . "Content-Type: text/htmlnAllow: POSTnn" . " ```411 411 Size Not Allowed

You got big problem. Try again.

``` n"; exit 0; } binmode $xfile; use File::Copy; copy( $xfile, $writed. $strNetFname); } sub g_head{ print ' ```'; print ''; print ''; print ''; print ''; print ''; print ''; } sub g_body{ print ''; print ''; print ''; print ''; print ''; } sub g_bott{ print '

文件上传结果(Upload Result)
SourceFile:	DestFile:	Upload
'. $xfile .'	'. $writed. $strNetFname.'	OK!

``` '; } \---------------------------------------------------------------------- 如有好的建议请 Email: [email protected] | ---|---|---

让你同时上传 1000 个文件

You got big problem. Try again.