ASP 程序实现自动升级功能

 

现在流行虚拟主机建站，我也有个网站，也算是个站长咯。当了近一年的站长，感到网站程序每次升级的时候颇为麻烦：先去官方看公告，然后下载升级包到本地，解压，FTP上传到虚拟主机。这些都是累人的体力活，加之本人又懒得很，所以异想天开的觉得要是程序能够自动升级就好了。所以就想了想，写了本文，希望对WEB程序开发者有帮助。这里只针对ASP，因为我只会ASP :-(

先看看传统的win32程序的升级过程（比如杀毒软件），它是依靠软件的升级程序通过网络连接到服务器分析并下载升级文件到本地。

WEB程序有点不一样，因为它是运行于WEB服务器。它最终是要把升级服务器上的文件覆盖到WEB服务器，站长的电脑只是中转。如果直接把升级服务器上的文件Copy到WEB服务器（而不通过站长中转）那就实现了自动升级。

好在系统自带了一个 Microsoft.XMLHTTP 组件用于访问WEB，在ASP中可以调用它来实现连接升级服务器下载升级文件。

以下代码是利用 Microsoft.XMLHTTP下载文件的例子：

 

<% Set xPost = CreateObject("Microsoft.XMLHTTP")          xPost.Open "GET","http://www.0x54.org/test.exe",False          xPost.Send()          Set sGet = CreateObject("ADODB.Stream")          sGet.Mode = 3          sGet.Type = 1          sGet.Open()          sGet.Write(xPost.responseBody)          sGet.SaveToFile Server.MapPath("update.exe"),2          set sGet = nothing          set sPOST = nothing          response.Write("下载文件成功！<br>") %>

 

上面代码就是把 http://www.0x54.org/test.exe保存到W