### 如何在经典 ASP 后端处理 XHR 发送的 FormData 请求 当使用 `XMLHttpRequest` (XHR) 和 `FormData` 对象从前端发送表单数据到服务器时，在经典的 ASP 环境下接收并解析这些数据需要特定的方法。 #### 使用 XHR 发送 FormData 数据 为了确保兼容性和简单性，通常会采用 POST 方法来提交数据。下面是一个简单的 JavaScript 例子展示如何构建和发送带有文件或其他字段的数据： ```javascript var formData = new FormData(); formData.append("file", document.getElementById('fileInput').files[0]); formData.append("username", "example"); var xhr = new XMLHttpRequest(); xhr.open("POST", "/upload.asp", true); xhr.onload = function () { console.log(this.responseText); }; xhr.send(formData); // Send the form data to server ``` 这段代码创建了一个新的 `FormData` 实例，并附加了一些键值对作为要上传的内容[^1]。 #### 经典 ASP 接收 FormData 数据 由于经典 ASP 并不像现代框架那样内置了方便处理 multipart/form-data 编码类型的机制，所以开发者可能需要用第三方组件或手动编写逻辑来读取原始输入流并解析边界字符串以提取各个部分的信息。 以下是简化版的经典 ASP 处理程序 (`/upload.asp`) 来获取通过上述方法传递过来的数据: ```asp <% ' 设置字符集编码为 UTF-8 Response.Charset="UTF-8" Response.CodePage=65001 Dim stream, boundary, contentLength, rawData, parts(), partIndex, keyValuePair() Set stream = Server.CreateObject("ADODB.Stream") With stream .Type = 1 ' Binary type .Open .Write(Request.BinaryRead(Request.TotalBytes)) .Position = 0 .Type = 2 ' Text type .Charset = "utf-8" End With rawData = stream.ReadText() boundary = Mid(rawData, InStr(1, rawData, vbCrLf & "--") + Len(vbCrLf & "--"), _ InStr(InStr(1, rawData, vbCrLf & "--"), rawData, vbCrLf) - InStr(1, rawData, vbCrLf & "--") - Len(crlf)) parts() = Split(Mid$(rawData, InStr(1, rawData, vbCrLf)), boundary) For Each part In parts If Not IsEmpty(part) Then partIndex = partIndex + 1 ReDim Preserve keyValuePair(partIndex) Dim keyValueSplitPos keyValueSplitPos = InStr(part, vbCrLf & vbCrLf) If keyValueSplitPos > 0 Then keyValuePair(partIndex).key = Trim(Split(Split(part, "name=""")(1), """")(0)) If InStr(keyValueSplitPos + Len(vbCrLf & vbCrLf), part, "filename=""") > 0 Then ' Handle file upload here... Dim fileNameStartPos, fileNameEndPos fileNameStartPos = InStr(keyValueSplitPos + Len(vbCrLf & vbCrLf), part, "filename=""") fileNameEndPos = InStr(fileNameStartPos, part, """") keyValuePair(partIndex).value = Mid(part, fileNameEndPos + 1, InStrRev(part, vbCrLf & "--") - fileNameEndPos - 1) Else ' Handle regular field value here... keyValuePair(partIndex).value = Mid(part, keyValueSplitPos + Len(vbCrLf & vbCrLf), InStr(part, vbCrLf & "--") - keyValueSplitPos - Len(vbCrLf & vbCrLf)) End If End If End If Next stream.Close Set stream = Nothing %> ``` 此脚本尝试模拟 PHP 或其他更先进的 Web 开发平台的行为模式，即自动将接收到的 multipart 表单数据分解成易于访问的形式。请注意这只是一个基础示例；实际应用中还需要考虑安全性措施以及错误处理等问题。