‘***************************************************************** ‘ function ‘ 作用 ：利用流保存文件 ‘ 参数 ：from（远程文件地址），tofile（保存文件位置） ‘***************************************************************** Private Function SaveFiles(byref from,byref tofile) Dim Datas Datas=GetData(from,0) Response.Write “保存成功：”&
