### 经典 ASP 处理 XHR 发送的 Base64 编码图像 当客户端通过 `XMLHttpRequest` (XHR) 将 Base64 编码的图像数据发送到服务器时，在经典 ASP 中处理这些请求涉及几个关键步骤。为了确保跨域资源共享(CORS)，必须正确配置 HTTP 响应头以允许凭证传递[^1]。 #### 设置 CORS 支持 在经典 ASP 文件顶部添加必要的响应头部来支持带有凭据的跨源请求： ```asp <% Response.AddHeader "Access-Control-Allow-Origin", "http://example.com" Response.AddHeader "Access-Control-Allow-Credentials", "true" %> ``` 这里假设 `http://example.com` 是发起请求的域名；实际应用中应当替换为具体的 URL 或者使用通配符（注意安全性）。这一步骤对于确保浏览器能够接受来自不同源的数据至关重要。 #### 解析并保存 Base64 数据 接收到 POST 请求后，可以从 Request 对象读取原始输入流中的 Base64 字符串，并将其转换回二进制格式以便存储或进一步处理: ```asp Dim base64Data, binaryData, objStream, filePath base64Data = Mid(Request.BinaryRead(Request.TotalBytes), InStrB(1, Request.BinaryRead(Request.TotalBytes), Chr(0)) + 1) Set objStream = Server.CreateObject("ADODB.Stream") objStream.Type = 1 ' adTypeBinary objStream.Open objStream.Write ConvertBase64ToBinary(base64Data) filePath = Server.MapPath("/uploads/image.jpg") ' 修改为你想要保存的位置 objStream.SaveToFile filePath, 2 ' adSaveCreateOverWrite objStream.Close Set objStream = Nothing ``` 上述代码片段展示了如何解析传入的 Base64 编码字符串并将解码后的图片文件写入磁盘。需要注意的是，这段脚本假定上传的数据是以特定方式编码的基础64字符串的一部分——具体取决于前端是如何准备这个请求体的。 辅助函数用于将 Base64 转换成 ADODB Stream 可识别的形式： ```asp Function ConvertBase64ToBinary(base64String) Dim xml, node Set xml = CreateObject("MSXML2.DOMDocument.3.0") Set node = xml.createElement("tmp") node.dataType = "bin.base64" node.text = base64String ConvertBase64ToBinary = node.nodeTypedValue End Function ``` 此方法利用 MSXML 库来进行 Base64 到二进制数据之间的转换操作。