ASP中多文件同时上传解决方案

2022-07-15 80酷酷网 80kuku.com

　　解决|上传

上传表单如下：

标题：性别：男女属于：是否选定：内容：分类：选取文件一：选取文件二：选取文件三：选取文件四：选取文件五：

ASP源代码：

<HTML>
<BODY>
<TITLE>文件上传</TITLE>
<CENTER>
</CENTER>
   <% Set Obj = Server.CreateObject("Yousoft.UploadFile")
   Response.Write "总共上传 " & obj.Count & " 个文件
总数据大小 " & obj.TotalBytes & " Bytes
共花费了时间 " & (obj.SpendTime/1000) & " 秒
"
   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>上传文件如下：

</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.FileNameX(userFile) %>
    </td>
    <td>
      <% =Obj.FileSize(userFile) %>
    </td>
    <td>
      <% =Obj.FilePath(userFile) %>
    </td>
    <td>
      <% =Obj.FileExt(userFile) %>
    </td>
    <td>
      <% =Obj.OldFileName(userFile)%>
    </td>
</tr>
<% ' Obj.SaveToFTP "192.168.7.168",21,5000,"xu","xu",0