to wanghui0380(放歌) ( )
不行啊~~我试了stream,fso两种生成zip文件的方法
set objAdostream=server.createobject("ADODB.Stream")
objAdostream.Open()
objAdostream.type=1
objAdostream.Write(xmlhttp.responseBody)
objAdostream.SaveToFile(server.mappath("test.zip"))
set objAdostream=nothing
dim fso
set fso=server.CreateObject("scripting.filesystemobject")
set rarfile=fso.createtextfile(server.MapPath("test.zip"),true, false)
rarfile.write (xmlhttp.responseBody)
rarfile.close
set fso=nothing