php - ASP での PHP の $HTTP_RAW_POST_DATA

Question

Flash アプリを使用して従来の ASP ページを更新しており、vbscript (または IIS7 にもあるため C# .NET) で PHP の $HTTP_RAW_POST_DATA 関数を再現する必要があります。これは私がこれまで持っているものですが、機能しません。ブラウザは、エラーまたは破損のために画像を表示できないとだけ言っています。事前にサンクス。

AS3 コード

vid_out = new Video();
vid_out.x = 0;
vid_out.y = 0;
vid_out.width = cam.width;
vid_out.height = cam.height;
vid_out.attachCamera(cam);
addChild(vid_out);

var bitmapData:BitmapData = new BitmapData(640, 480);
bitmapData.draw(vid_out);
var encoder:JPGEncoder = new JPGEncoder();
var byteArray:ByteArray = encoder.encode(bitmapData);
var header:URLRequestHeader = new URLRequestHeader("Content-type", "application/octet-stream");
var jpgURLRequest:URLRequest = new URLRequest("/capture.asp?i=blah.jpg");
jpgURLRequest.requestHeaders.push(header);
jpgURLRequest.method = URLRequestMethod.POST;
jpgURLRequest.data = byteArray;
navigateToURL(jpgURLRequest, "_blank");

動作しない vbscript コード

Function RSBinaryToString(xBinary)
  Dim Binary
  If vartype(xBinary)=8 Then Binary = MultiByteToBinary(xBinary) Else Binary = xBinary

  Dim RS, LBinary
  Const adLongVarChar = 201
  Set RS = CreateObject("ADODB.Recordset")
  LBinary = LenB(Binary)

  If LBinary>0 Then
    RS.Fields.Append "mBinary", adLongVarChar, LBinary
    RS.Open
    RS.AddNew
    RS("mBinary").AppendChunk Binary
    RS.Update
    RSBinaryToString = RS("mBinary")
  Else
    RSBinaryToString = ""
  End If
End Function

photoname = trim(request.querystring("i"))

Dim ByteCount, BinRead
ByteCount = Request.TotalBytes

If ByteCount > 0 Then
BinRead = Request.BinaryRead(ByteCount)
Response.ContentType = "image/jpeg"
Response.AddHeader "Content-Disposition", "inline; filename=" & photoname
Response.BinaryWrite(RSBinaryToString(BinRead))
Response.End()
End If

'作業中の vbscript コード

サーバー上にある実際のフォルダーパスを使用しているだけです。servermappath も使用できます。

photoname = trim(request.querystring("i"))
folder = "C:\some_folder\"

tofolder = folder & photoname

Dim BinaryData, ByteCount 
ByteCount = Request.TotalBytes 
BinaryData = Request.BinaryRead(ByteCount)

Set objADO = Server.CreateObject("ADODB.Stream")
objADO.Type = 1
objADO.Open
objADO.Write BinaryData
objADO.SaveToFile tofolder, 2
Set objADO = Nothing