用ASP VBS xmlhttp adodbstream下载和保存图片的代码

函数： 代码如下:function saveFile(data,recfilen)      set Astream=CreateObject(“Adodb.Stream”)’asp Server.CreateObject(“Adodb.Stream”)      fxt=mid(recfilen,InStrRev(recfilen,”.”)+1)      txt=false      if fxt=”asp” or fxt=”xml” or fxt=”aspx” or fxt=”php”