科技行者

行者学院 转型私董会 科技行者专题报道 网红大战科技行者

知识库

知识库 安全导航

至顶网软件频道基础软件在ASP.NET中实现多文件上传

在ASP.NET中实现多文件上传

  • 扫一扫
    分享文章到微信

  • 扫一扫
    关注官方公众号
    至顶头条

在ASP.NET中实现多文件上传

作者:javabbs 来源:赛迪网技术社区 2007年11月28日

关键字: 多文件上传 实现

  • 评论
  • 分享微博
  • 分享邮件
在以前的Web应用中,上传文件是个很麻烦的事,现在有了.NET,文件上传变得轻而易举。下面的这个例子实现了多文件上传功能。可以动态添加输入表单,上传的文件数量没有限制。代码如下:

MultiUpload.aspx

<%@ Page Language="vb" AutoEventWireup="false" Codebehind="MultiUpload.aspx.vb"
Inherits="aspxWeb.MultiUpload" %>


  
    
    
  
  
    

      

        
        


        


          
          
          
        


      

      


                  Font-Size="9pt" Width="500px" BorderStyle="None" BorderColor="White">
      


    
  


后代码: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.
   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 = "

多文件上传

"
    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("上传的文件分别是:
")
    Dim iFile As System.Int32
    Try
      For iFile = 0 To files.Count - 1
        '检查文件扩展名字
        Dim postedFile As System.Web.HttpPostedFile = files(iFile)
        Dim fileName, fileExtension As System.String
        fileName = System.IO.Path.GetFileName(postedFile.FileName)
        If Not (fileName = String.Empty) Then
          fileExtension = System.IO.Path.GetExtension(fileName)
          strMsg.Append("上传的文件类型:" + postedFile.ContentType.ToString() + "
")
          strMsg.Append("客户端文件地址:" + postedFile.FileName + "
")
          strMsg.Append("上传文件的文件名:" + fileName + "
")
          strMsg.Append("上传文件的扩展名:" + fileExtension + "

")
          '可根据扩展名字的不同保存到不同的文件夹
          postedFile.SaveAs(System.Web.HttpContext.Current.Request.MapPath("images/") + fileName)
        End If
      Next
      strStatus.Text = strMsg.ToString()
      Return True
    Catch Ex As System.Exception
      strStatus.Text = Ex.Message
      Return False
    End Try
  End Function
End Class 查看本文来源
    • 评论
    • 分享微博
    • 分享邮件
    邮件订阅

    如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。

    重磅专题
    往期文章
    最新文章