在前端JavaScript中，需要上传大于500KB的文件 将其分割成较小的部分，在后端ByVal context As HttpContext接收并保存文件

在前端JavaScript中，当遇到大文件上传（比如超过500KB），一次性发送可能会导致网络请求过大、超时或服务器无法处理。为了处理这种情况，通常的做法是采用分片（Chunking）技术。你可以使用HTML5的File API，将其分割成较小的块（通常是256KB或更小），然后通过多次AJAX请求逐个上传。每次请求包含一部分数据，并在后端接收后合并。

前端示例代码（使用jQuery）：

var fileInput = document.getElementById('file-input');
var xhr = new XMLHttpRequest();
xhr.open('POST', '/upload');

// 每次上传的大小
var chunkSize = 524288; // 500KB

fileInput.addEventListener('change', function(e) {
    var file = this.files[0];
    var chunks = Math.ceil(file.size / chunkSize);

    for (var i = 0; i < chunks; i++) {
        var start = i * chunkSize;
        var end = (i + 1 === chunks) ? file.size : start + chunkSize - 1;

        var reader = new FileReader();
        reader.onload = function(e) {
            var data = e.target.result;
            xhr.setRequestHeader('Content-Type', 'application/octet-stream'); // 设置正确的MIME类型
            xhr.send(data.slice(start, end));
        };
        reader.readAsArrayBuffer(file.slice(start, end)); // 读取并转换为ArrayBuffer
    }
});

xhr.onreadystatechange = function() {
    if (xhr.readyState === 4 && xhr.status === 200) {
        console.log('Upload complete!');
    } else if (xhr.status !== 200) {
        console.error('Error uploading:', xhr.statusText);
    }
};

后端（ASP.NET 示例，VB.NET语法）：

<WebMethod()> _
Public Sub SaveUploadedFiles(ByVal files As List(Of Byte()))
    Dim combinedData As Byte()
    If Not files.IsNullOrEmpty Then
        combinedData = New Byte(files.Sum(Function(f) f.LongLength)) {}
        files.CopyTo(combinedData, 0)

        ' 假设context在这里表示HttpContext
        Dim context As HttpContext = Request.InputStream.InputStreamContext.HttpContext
        ' 将接收到的整个数据保存到磁盘
        Dim savePath As String = "/path/to/save/" & Guid.NewGuid.ToString() & ".bin"
        Using writer As New BinaryWriter(New FileStream(savePath, FileMode.Create))
            writer.Write(combinedData)
        End Using

        ' 返回确认信息或其他操作结果给客户端
        Return True
    Else
        Throw New Exception("No files received.")
    End If
End Sub