关于在浏览器中文件上载的方法与实现

一、问题引入
在现在的管理信息系统中，比较先进的都已采用浏览器/服务器的模型，在这种模型中都要涉及到客户端与服务器端的信息交互问题，从服务器端到客户端的信息传递技术已经比较成熟，这里主要讨论从客户端到服务器端的文件上载问题，基于Microsoft的IE4.0、IIS4.0、ASP(Active Server Page)和标准HTML语言。

二、解决方法
在ASP页面中，利用HTML中的Form元素来实现。
在Form元素的语法中，EncType表明提交数据的格式，Method表明提交的方法(Get/Post)。在IE4.0 及以后的版本中都支持"multipart/form-data"这种格式，相应的Method方法必须是Post，表明要上载文件到服务器。当然同时在服务器相应的WEB站点上要把属性设为可写。下面是一个示例：<form enctype="multipart/form-data" action="http://dev_d/upload/post/cpshost.dll?PUBLISH?http://dev_d/upload/UserUploadAction.asp"
method=post id=form2 name=form2>

1.&nbsp;Press the Browse button and choose a File to upload from your computer.
<br><input type="file" id=file1 name=file1>
2.&nbsp;Upload the file.
<br><input type=hidden size=80 name="TargetURL" value="http://dev_d/upload/post">
<input type=submit value='Upload' id=submit1 name=submit1>
</form>

三、实现要素
1 Form的enctype="multipart/form-data"。
2 Form的action="(UserURL)/cpshost.dll?PUBLISH?(UserURL)/UserUploadAction.asp"。
说明：cpshost.dll是用于文件上载的动态链接文件，其后的PUBLISH参数也为固定，而(UserURL) 指的是完整的URL地址，如：http://dev_d/upload。如果PUBLISH后没有参数，上载文件完成后，只是简单返回文件已经上载；如果PUBLISH后跟上完整URL的ASP文件，就可以用ASP来处理文件上载后的其他操作，如修改相应的数据库数据。可以在ASP文件中用
Request.Form("Variable")来访问相应参数。对上载文件来说，Variable有四种可能的值：
FileName 文件名称(不包括后缀),FileExtention 文件后缀(包括"."),FilePath 上载文件
保存的服务器端路径,FileSize 上载文件的字节大小。
3 Form的Method的方法必须为Post。
4 Form中必须有一个input元素，而且input的属性type="file"。
说明：如果要上载多个文件，有多个input元素就可以了，但至少有一个有效文件，否则会出错。系统会自动产生一个文本区域和一个"browse..."按钮，可以直接在文本区域内输入文件路径名称，或按"browse..."按钮，从文件对话框中选择一个文件。
5 Form中必须有一个隐含(即type=hidden)input元素，而且input的属性name="TargetURL"，属性
value="(UserURL)"，(UserURL)即为上载文件保存位置的URL地址。
说明：文件保存位置的URL地址属性必须设为可写，否则会返回此URL地址没有写的权限。
6 Form中必须有一个submit按钮，即input的属性type="submit"，此按钮即为上载按钮。或者在其他相关事件中调用此Form的Submit方法。但两种方法实际上本质相同，只不过用方法调用还可以在上载前加上其它处理代码，如数据的有效性检查等。

四、完整实例
1 用户上载文件页面UserUpload.asp
<% response.expires=0 %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>

<BODY>

<form enctype="multipart/form-data"
action="http://dev_d/upload/post/cpshost.dll?PUBLISH?http://dev_d/upload/UserUploadAction.asp"
method=post id=form2 name=form2>

<table BORDER=0 CELLSPACING=3 CELLPADDING=3>
<tr>
<td valign=top><span >1.&nbsp;</span>
<td>Press the Browse button and choose a File to upload from your computer.
<br><input type="file" id=file1 name=file1>
<br><input type="file" id=file2 name=file2>
</td>
<tr>
<TD vAlign=top><SPAN >2.&nbsp;</SPAN>
<TD>Upload the file.
<br><input type=hidden size=80 name="TargetURL" value="http://dev_d/upload/post">
<input type=submit value='Upload' id=submit1 name=submit1>
</td>
</table>
</form>
</BODY>
</HTML>

2 用户上载文件处理页面UserUploadAction.asp
<% Response.Buffer = TRUE %>
<% Response.expires=0 %>

<HTML>
<BODY>
<H3>Upload Status:<BR></H3>

<span style="color:gray"><HR>
<%
For I = 1 To Request.Form("FileName").Count
Response.Write "Uploaded File: <B>" & Request.Form("FileName")(I) & Request.Form("FileExtention")(I) &"</B><BR>"
Response.Write "Server Path: <B>" & Request.Form("FilePath")(I) & "</B><BR>"
Response.Write "Size: <B>" & Request.Form("FileSize")(I) & " bytes</B><br>"
Next
FileName = Request.Form("FilePath")(1) & Request.Form("FileName")(1) & Request.Form("FileExtention")(1)
%>
<hr><br>

<%
if request.form("FilePath").count = 0 then
Response.Write ("No file was received.")
Response.End
else
Response.Write (filename+" File was received.")
end if
%>
</span>

</BODY>
</HTML>

五、参考资料
1 Windows NT 4.0 Option Pack 的产品文档.
2 Microsoft Developer Network 的 MSDN library-January 1999.
3 Fitch & Mather Sample Web Site. Scott Stanfield Vertigo Software, Inc. September 1998.