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

在前端使用JavaScript处理大文件分片上传时，通常会采用FileReader API和Blob对象。下面是一个简单的前端示例：

// HTML部分
<input type="file" id="fileInput" multiple>
<button onclick="startUpload()">开始上传</button>

// JavaScript部分
function startUpload() {
  const fileInput = document.getElementById('fileInput');
  const files = fileInput.files;
  if (files.length > 0) {
    const reader = new FileReader();
    reader.onload = function(e) {
      uploadChunk(reader.result, Math.floor(files[0].size / 5 * 1048576)); // 分成每5MB一块
    };
    reader.readAsArrayBuffer(files[0]);
  }
}

function uploadChunk(chunk, index) {
  fetch('/uploadashx', {
    method: 'POST',
    headers: {'Content-Type': 'application/octet-stream'},
    body: chunk,
    // 可能需要设置一个进度条相关的参数如 `body: chunk, bodySize: files[0].size`
    // 和额外的数据如 'chunkIndex': index
  })
  .then(response => response.text())
  .catch(error => console.error('Error:', error));
}

对于后台的ASHX（ASP.NET服务器控件），VB代码可能如下（假设使用ASP.NET WebAPI或Web服务）：

Imports System.IO
Imports Microsoft.AspNetCore.Mvc

' ASP.NET WebAPI 示例
Public Class UploadController : ControllerBase
    <HttpPost()>
    Public Function UploadFileStream(ByVal formData As MultipartFormDataContext) As IHttpActionResult
        Dim stream = formData.Files(0).ReadStream()
        Dim filePath = "uploads/" & Guid.NewGuid().ToString() & ".part" ' 存储每个块到单独文件
        File.WriteAllBytes(filePath, stream.ToArray())

        ' 这里可以将文件名或索引发送回客户端，以便客户端继续拼接
        Return Ok(filePath)
    End Function
End Class

注意，这只是一个基础示例，实际应用可能需要更复杂的错误处理、断点续传机制以及状态管理。同时，你需要确保服务器端支持大文件上传，并有适当的存储策略。