<%
Dim objStream
On Error Resume Next
'建立ADODB.Stream对象,必须要ADO 2.5以上版本
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 '以二进制模式打开
objStream.Open
objStream.write request.BinaryRead
objStream.SaveToFile "/images/", 2
objStream.Close()
'关闭对象,释放资源
Set objstream = Nothing
if err.Number<>0 then
response.write("失败")
else
response.write("成功")
end if
%>
客户端上传一文件流stream,请问ASP如何保存成图片
最新推荐文章于 2022-07-10 00:26:03 发布