ASP接收Post来的二进制/Byte数组数据,并保存为文件:

<%
Server.ScriptTimeout=3600

i=Request.TotalBytes
r=1024*200

If i<r Then r=i
Set S=Server.CreateObject("Adodb.Stream")
S.Type=1
S.Mode=3
S.Open
While i>0
S.Write Request.BinaryRead(r)
i=i-r
Wend
S.Position=0
S.SaveToFile server.MapPath("a.txt"),2
S.Close
%>