ASP中多文件同时上传解决方案
日期：2013-05-08 浏览次数：20750 次
上传表单如下：
标题： 性别： 男 女 属于： 是否选定： 内容： 分类： 选取文件一： 选取文件二： 选取文件三： 选取文件四： 选取文件五：
ASP源代码：
<HTML>
<BODY>
<TITLE>文件上传</TITLE>
<CENTER>
</CENTER>
<% Set Obj = Server.CreateObject("Yousoft.UploadFile")
Response.Write "总共上传 " & obj.Count & " 个文件<br>总数据大小 " & obj.TotalBytes & " Bytes<br>共花费了时间 " & (obj.SpendTime/1000) & " 秒<br>"
response.write obj.version %>
<HR>
<table width="75%" border="1">
<tr>
<td width="20%">标题：</td>
<td width="80%"><%=obj.form("title1")%></td>
</tr>
<tr>
<td width="20%">属于：</td>
<td width="80%"><%=obj.form("sel1")%></td>
</tr>
<tr>
<td width="20%">性别：</td>
<td width="80%"><%=obj.form("sex1")%></td>
</tr>
<tr>
<td width="20%">分类：</td>
<td width="80%"><%=obj.form("list1")%></td>
</tr>
<tr>
<td width="20%">内容： </td>
<td width="80%"><%=obj.form("Content1")%></td>
</tr>
<tr>
<td width="20%">是否选定：</td>
<td width="80%"><%=obj.form("select1")%></td>
</tr>
<tr>
<td width="20%">提交按钮：</td>
<td width="80%"><%=obj.form("save")%></td>
</tr>
</table>
<p> </p>
<p>上传文件如下：<br>
</p>
<table border="1">
<tr>
<td nowrap>名称</td>
<td nowrap>文件名(包括扩展名)</td>
<td nowrap>文件名(不含扩展名)</td>
<td nowrap>文件大小(B)</td>
<td nowrap>原文件路径</td>
<td nowrap>文件扩展名</td>
<td nowrap>原文件名（含路径)</td>
</tr>
<%for i=0 to Obj.Count-1 %>
<% userFile = Obj.userFile(i) %>
<tr>
<td>
<% =userFile %>
</td>
<td>
<% =Obj.FileName(userFile) %>
</td>
<td>
<% =Obj.Fi
