ASP接收Post的Byte数组数据并保存

2018-09-06 13:02

阅读:360

   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
%>

   本文来自: 雪域博客


评论


亲,登录后才可以留言!