FileUpload1文件上传

 1.上传文件为空时:

2.上传成功时:

 

Partial Class _Default
    Inherits System.Web.UI.Page
    Protected path As String = Server.MapPath("upload")
    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        If FileUpload1.HasFile Then
            Try
                FileUpload1.SaveAs(path & "\" & FileUpload1.FileName)
            Catch ex As Exception
                Label1.Text = "失败原因<br/>" & ex.Message
            End Try
            Label1.Text = FileUpload1.PostedFile.FileName & "上传成功"
        Else
            Label1.Text = "未选择上传文件"
        End If
    End Sub
End Class