在在ASP.NET中实现多文件上传的方法中实现多文件上传的方法
在以前的Web应用中，上传文件是个很麻烦的事，现在有了.NET，文件上传变得轻而易举。下面的这个例子实现了多文件上
传功能。可以动态添加输入表单，上传的文件数量没有限制。代码如下：
MultiUpload.aspx
<%@ Page Language=”vb” AutoEventWireup=”false” Codebehind=”MultiUpload.aspx.vb”
Inherits=”aspxWeb.MultiUpload” %>
<!DOCTYPE HTML PUBLIC “-//W3C//DTD HTML 4.0 Transitional//EN” >
<HTML>
<HEAD>
<title>多文件上传</title>
<script language=”JavaScript”>
function addFile()
{
var str = ‘<INPUT type=”file” size=”50″ NAME=”File”>’
document.getElementById(‘MyFile’).insertAdjacentHTML(“beforeEnd”,str)
}
</script>
</HEAD>
<body>
<form id=”form1″ method=”post” runat=”server” enctype=”multipart/form-data”>
<center>
<asp:Label Runat=”server” ID=”MyTitle”></asp:Label>
<P id=”MyFile”><INPUT type=”file” size=”50″ NAME=”File”></P>
<P>
<input type=”button” value=”增加(Add)” onclick=”addFile()”>
<asp:Button Runat=”server” Text=”上传” ID=”Upload”></asp:Button>
<input onclick=”this.form.reset()” type=”button” value=”重置(ReSet)”>
</P>
</center>
<P align=”center”>
<asp:Label id=”strStatus” runat=”server” Font-Names=”宋体” Font-Bold=”True”
Font-Size=”9pt” Width=”500px” BorderStyle=”None” BorderColor=”White”></asp:Label>
</P>
</form>
</body>
</HTML>
后代码：MultiUpload.aspx.vb
Public Class MultiUpload
Inherits System.Web.UI.Page
Protected WithEvents Upload As System.Web.UI.WebControls.Button
Protected WithEvents MyTitle As System.Web.UI.WebControls.Label
Protected WithEvents strStatus As System.Web.UI.WebControls.Label
#Region ” Web Form Designer Generated Code ”
‘This call is required by the Web Form Designer.
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
End Sub
Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
‘CODEGEN: This method call is required by the Web Form Designer
‘Do not modify it using the code editor.
InitializeComponent()
End Sub
#End Region
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
MyTitle.Text = “<h3>多文件上传</h3>”
Upload.Text = “开始上传”
If (Me.IsPostBack) Then Me.SaveImages()
End Sub
Private Function SaveImages() As System.Boolean
‘遍历File表单元素
Dim files As System.Web.HttpFileCollection = System.Web.HttpContext.Current.Request.Files
‘状态信息
Dim strMsg As New System.Text.StringBuilder(“上传的文件分别是：<hr color=red>”)
Dim iFile As System.Int32
Try
For iFile = 0 To files.Count – 1
‘检查文件扩展名字
资源评论
weixin_38692202
- 粉丝: 3
- 资源: 951
最新资源
- 2024年手机号段归属地-517152.rar
- 社区物资交易互助平台 基于Spring Boot框架实现的社区物资交易互助平台 （程序+数据库+报告）
- 使用 RRT* 和最小抖动轨迹生成进行四轴飞行器路径规划+C++项目源码+文档说明+代码注释
- 小马哥教程片段之汇编语言核心概念图解与常用指令详解
- 在线无人机规划框架-用于在先前未知的环境中生成安全、动态可行的轨迹（自主四旋翼飞行器的贝塞尔轨迹生成）+项目源码+文档说明+注释
- 基于AT89C51单片机的智能化水塔水位控制系统设计与实现（毕业论文设计）
- 主动磁轴承市场报告2024
- 【Unity 天气系统插件】Enviro 3 - Sky and Weather 高度可定制的云、雾和光照系统
- 智能电机市场报告2024-2030
- B.10-本科毕业生对学校的满意度分析.pdf
资源上传下载、课程学习等过程中有任何疑问或建议，欢迎提出宝贵意见哦~我们会及时处理！
点击此处反馈
