JS 大于5M的文件分片上传 前端JS代码，后台ASPX VB代码

在前端JavaScript中，大文件分片上传通常会采用FileReader API结合Blob对象来处理。以下是一个简单的前端代码示例：

// 假设我们有文件上传按钮和进度条
const uploadButton = document.getElementById('upload-btn');
const progressBar = document.getElementById('progress-bar');

// 文件处理函数
function handleFileChunk(file, start, end) {
  const reader = new FileReader();
  reader.onload = function(e) {
    // 将每个文件块发送到服务器
    sendToServer(file.slice(start, end), e.target.result);
  };
  reader.readAsArrayBuffer(file.slice(start, end));
}

// 分片上传函数
function uploadLargeFile(file) {
  const chunkSize = 5 * 1024 * 1024; // 每次上传5MB
  for (let i = 0; i < file.size; i += chunkSize) {
    handleFileChunk(file, i, Math.min(i + chunkSize, file.size));
  }
}

// 发送到服务器的部分代码
function sendToServer(data, chunkData) {
  var xhr = new XMLHttpRequest();
  xhr.open('POST', '/UploadHandler.ashx', true);
  xhr.setRequestHeader('Content-Type', 'application/octet-stream');
  xhr.send(chunkData);
  
  xhr.upload.onprogress = function(event) {
    if (event.lengthComputable) {
      progressBar.value = Math.round((event.loaded / event.total) * 100);
    }
  };
}

在后端ASPX(VB)代码中，你需要处理HTTP POST请求，并将接收到的数据合并。这里是一个简化的ASP.NET VB版例子：

Imports System.IO

Public Class UploadHandler
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As EventArgs)
        If Request.Files.Count > 0 Then
            Dim file = Request.Files(0)
            Dim totalSize = Convert.ToInt64(file.ContentLength)
            Dim receivedData As Byte() = New Byte(totalSize \ 512000) {}
            Dim readBytes As Integer
            Dim offset = 0

            While offset < totalSize
                Dim stream As Stream = file.InputStream
                readBytes = stream.Read(receivedData, 0, totalSize \ 512000)

                ' 这里可以将接收到的数据保存到数据库或者文件系统
                SaveData(receivedData, 0, readBytes)

                offset += readBytes
                stream.Seek(offset, SeekOrigin.Begin)
            End While
        End If
    End Sub

    Private Sub SaveData(data As Byte(), startIndex As Integer, bytesRead As Integer)
        ' 逻辑上你需要在这里处理数据，比如存储到数据库
        ' data是接收到的分片数据，startIndex和bytesRead表示当前处理的起始位置和长度
        ' ...
    End Sub
End Class

请注意，这只是一个基础示例，实际项目中还需要考虑错误处理、断点续传、用户交互等复杂情况。同时，由于跨域问题，本地文件上传到服务器可能会遇到限制，需要服务器配置允许跨域。