Classic ASP使用MSXML2.ServerXMLHTTP远程POST表单无法读取Request.Form值

问题原因分析 #

你遇到的问题是Classic ASP中使用ServerXMLHTTP提交POST表单时，服务端可以识别POST请求但无法解析表单字段，核心原因集中在请求头设置错误、编码不匹配、MSXML版本兼容性三类：

1. 手动设置Content-Length错误：Classic ASP中Len()函数返回的是字符串的字符数，而非字节数，当内容包含双字节字符（哪怕是隐性的编码占位符）时，计算出的长度小于实际传输的字节数，导致IIS接收请求时截断内容，无法正常解析Request.Form集合。MSXML的send方法会自动计算正确的字节长度，无需手动设置该请求头。
2. 编码未显式声明：Content-Type仅指定了application/x-www-form-urlencoded，没有声明字符集，两端编码不一致时服务端会出现解码失败，无法识别表单字段。
3. 低版本MSXML组件Bug：默认创建的无版本号Msxml2.ServerXMLHTTP对象通常对应老旧的3.0版本，存在多个已知的POST提交、HTTPS适配问题。

修复后的客户端代码 #

response.Buffer = true
' 优先使用6.0版本的MSXML组件，兼容性更好
Set objHTTP = CreateObject("Msxml2.ServerXMLHTTP.6.0") 
objHTTP.open "POST","https://myurl.com/test_post_server.asp", false
    
PostData = "field1=test1&field2=test2&field3=test3"

' 显式指定字符集，确保和服务端编码一致，常用utf-8或gb2312
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded; charset=utf-8"
' 删除手动设置Content-Length的代码，由MSXML自动计算
objHTTP.send PostData
strReturn = objHTTP.responseText
response.write strReturn
set objHTTP = nothing 

额外排查方案 #

如果上述修改后仍无法正常读取表单，可按以下步骤排查：

• 先在服务端输出接收到的总字节数确认数据是否完整，在服务端POST判断逻辑内添加代码：

  xResponse = xResponse & "接收总字节数：" & Request.TotalBytes & "<br>"
  

  如果输出的字节数和你提交内容的实际字节数不一致，可将提交内容转成二进制流发送避免编码问题：

  ' 转二进制发送的示例
  Dim stream
  Set stream = CreateObject("ADODB.Stream")
  stream.Charset = "utf-8"
  stream.Open
  stream.WriteText PostData
  stream.Position = 0
  stream.Type = 1 ' adTypeBinary
  PostDataBinary = stream.Read
  stream.Close
  Set stream = Nothing
  objHTTP.send PostDataBinary
  

• 确认远程服务器不存在301/302重定向：如果请求的地址被重定向，默认配置下ServerXMLHTTP会跟随重定向但丢失POST请求体，可添加代码禁止自动重定向自行处理：

  objHTTP.setOption 2, 13056 ' 忽略SSL错误，可选
  objHTTP.setOption 6, False ' 禁止自动跟随重定向
  

• 排查远程服务器是否部署了WAF、反向代理等中间件，拦截了未携带常规请求头的请求，可额外添加User-Agent请求头模拟正常浏览器请求。

内容的提问来源于stack exchange，提问作者Shawn Ives