我的解决方案对我不起作用，我得到了bStream.Write requestBody行的错误（说“在此上下文中不允许操作”）。这似乎对我有效，并返回整个请求字符串。然而，它只对<= 100 KB的请求数据起作用，否则你必须弄清楚如何让BinaryRead方法起作用。

str = Request.Form

（来源：http://msdn.microsoft.com/en-us/library/ms525985%28v=VS.90%29.aspx）

我使用了Adhadogg的代码，但只有在我指定了更多的信息之后：

bytecount = Request.TotalBytes
bytes = Request.BinaryRead(bytecount)

Set stream = Server.CreateObject("ADODB.Stream");
stream.Type = 1;    // adTypeBinary              
stream.Open();                                   
stream.Write(bytes);
stream.Position = 0;                             
stream.Type = 2;    // adTypeText                
stream.Charset = "utf-8";                        
Set s = stream.ReadText();                       
stream.Close();

在此之前，我会得到“在此上下文中不允许操作。”正如jjokin报告的那样。

以下是我在ASP Vbscript中使用的解决方案，其中包含Radium的代码和一些更正：

bytecount = Request.TotalBytes
bytes = Request.BinaryRead(bytecount)

Set stream = Server.CreateObject("ADODB.Stream")
    stream.Type = 1 'adTypeBinary              
    stream.Open()                                   
        stream.Write(bytes)
        stream.Position = 0                             
        stream.Type = 2 'adTypeText                
        stream.Charset = "utf-8"                      
        s = stream.ReadText() 'here is your json as a string                
    stream.Close()
Set stream = nothing

Response.write(s)

您可以考虑从VBScript切换到JScript（JScript是微软称之为JavaScript的东西）。
为什么呢？因为在经典ASP中，你可以执行浏览器可以执行的JSON调用，并使用eval（）语句将结果读入JavaScript对象。
帕迪说：我没有答案，但我对你深表同情。经典的asp和JSON处理-听起来很有趣。
@Paddy：经典的ASP和JSON很有趣，事实上它很棒！（如果从VBScript切换到使用JScript。）
请注意，您不必退出VBScript冷火鸡，您仍然可以在同一个ASP文件中在两者之间进行互操作，但如果您首先声明JScript，则需要将VBScript限制为JavaScript或函数，反之亦然，否则可能会发生不可预知的事情。
这里有一个我正在谈论的快速例子：

<%@ LANGUAGE="JScript" %>
<%

var days = VBDateDiff("d", "4/10/2010", "5/3/2010");
Response.write("JScript Calling VBScript function: days = " + days);

%> <script language="VBScript" runat="server">
function VBDateDiff(units, datebefore, dateafter)
    VBDateDiff = CStr(DateDiff(units, datebefore, dateafter))
end function

function VBDateAdd(units, nUnits, theDate)
    Response.write("<BR>VBDateAdd units=" & units & ", nUnits=" & nUnits & ", theDate=" & theDate)
    VBDateAdd = CStr(DateAdd(units, nUnits, theDate))
    Response.write(", VBDateAdd=" & VBDateAdd)
end function
</script> <%        

%>

我也有同样的问题，但很快我就弄清楚了如何发布一个JSON对象到ASP服务器。
这是一个想法：未测试。努力工作吧><。
将json对象解析为字符串，然后发布回服务器。（这是一个典型的字符串发布）
在ASP端，使用JSON库将字符串解析回对象。
JSON库http://code.google.com/p/aspjson/的链接
我认为尝试将JSON发布回asp的人应该有基本的发布知识。任何进一步的帮助，请让我知道

不知道你是否还在寻找，但这个答案可能会帮助你。但是，这些代码是用于ASP.NET页的。经典的ASP模拟是：

byteCount = Request.TotalBytes
  requestBody = Request.BinaryRead(byteCount)

然后，你可能想把它转换成一个字符串来解析/使用。可以使用ADODB.Stream进行转换。

Set bStream= CreateObject("ADODB.Stream")
  bStream.Open
  bStream.Write requestBody
  bStream.Position = 0
  bStream.Type = adTypeText 
  str = bStream.ReadText

一般来说，（new VBArray（NULL）.toArray（））应该在SafeArray上工作，这是Request.BinaryRead返回的。但事实并非如此我发现了这个解决方案，我修改：

function GetRawRequestData() {
    var byteCount = Request.TotalBytes;
    var binary = Request.BinaryRead(byteCount)
    var reader = Server.CreateObject('ADODB.Recordset');
    reader.Fields.Append('x', 201, byteCount);
    reader.Open();
    reader.AddNew();
    reader.Fields(0).AppendChunk(binary);
    reader.update();
    return reader.Fields(0).Value;
}

感谢Rasberry的评论@Link
请注意，它可能无法正确处理编码。我没有深入研究ADO数据类型的201意味着什么，但它确实有效。

您可以通过此代码找到所有发布的参数。

FUNCTION getQueryString()
    dim queryLink, queryItemName
    queryLink = ""
    On error Resume Next
    For each queryItemName in Request.QueryString
        Execute(queryItemName & " = stripQuery(Request.QueryString(""" & queryItemName & """))")
        queryLink = queryLink & "&" & queryItemName & "=" & Request.QueryString(queryItemName)
    Next
    For each queryItemName in Request.Form
        Execute(queryItemName & " = stripQuery(Request.Form(""" & queryItemName & """))")
        queryLink = queryLink & "&" & queryItemName & "=" & Request.Form(queryItemName)
    Next
    On Error Goto 0
    getQueryString = queryLink
END FUNCTION

response.write getQueryString()