ASP网站程序自动升级实现的方法

上面代码就是把 http://www.xxx.org/test.exe保存到WEB服务器当前目录，至于Microsoft.XMLHTTP 的更多用法还是看看MSDN吧。

如果文件比较多，就会多次调用Microsoft.XMLHTTP连接网络，就可能出现某次连接失败部分文件未能更新的情况，为了避免这种情况，最好是把所有文件打包为一个文件一次下载到WEB后再解包。
呵呵，这里说的打包可不是RAR或者ZIP包，而是我们自己定义。比如把所有文件拼接为一个，然后再根据特殊的记号分开。现在没这么麻烦咯，因为有个现成的办法，我们使用拿来主义就是：把所有文件（二进制形式）及其路径信息放入Access数据库。

下面这个vbs文件（来自海洋顶端2006Plus）就是打包当前目录的所有文件的：

       Dim n, ws, fsoX, thePath
         Set ws = CreateObject("WScript.Shell")
         Set fsoX = CreateObject("Scripting.FileSystemObject")
         thePath = ws.Exec("cmd /c cd").StdOut.ReadAll() & "\"
         i = InStr(thePath, Chr(13))
         thePath = Left(thePath, i - 1)
         n = len(thePath)
On Error Resume Next
         addToMdb(thePath)
         Wscript.Echo "当前目录已经打包完毕,根目录为当前目录"
         Sub addToMdb(thePath)
                   Dim rs, conn, stream, connStr
                   Set rs = CreateObject("ADODB.RecordSet")
                   Set stream = CreateObject("ADODB.Stream")
  &

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务，公司网站：http://www.lingzhong.cn 为了给广大客户了解更多的技术信息，本技术文章收集来源于网络,凌众科技尊重文章作者的版权，如果有涉及你的版权有必要删除你的文章，请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!