ASP 程序实现自动升级功能(3)

stream.SaveToFile str & rs("P"), 2
rs.MoveNext
Loop
rs.Close
conn.Close
stream.Close
Set ws = Nothing
Set rs = Nothing
Set stream = Nothing
Set conn = Nothing
Set oFso = Nothing
End Sub
%> 


嗯，有了以上代码就不难开发出自己的ASP升级程序了，流程无外乎这样：判断是否需要升级（Y） -> 下载升级包 -> 解开升级包覆盖旧文件 -> 删除升级包 -> 更新版本信息 -> OK
写到这里差不多该结束了，还有些诸如版本判断之类的细节就略过略过咯。
希望早日用到自动升级的各类WEB程序，也好让我等懒人乐得悠闲，哈哈。