胶州网站建设找易讯网络,胶州人信赖的品牌

联系电话:18866237711
  • 【胶州网站建设】
  • 【胶州做网站】
  • 【胶州网页制作】
  • 【胶州网站优化】
  • 【胶州做优化】
  • 【胶州企业建站】
您的位置:首页 > 网页设计 > 网络编程网络编程 > 详细内容

易迅胶州网站建设用ASP程序自动升级网站的方法

来源:网站建设  作者:易迅网络科技  发布日期:2011-01-23  点击次数:2682

     易迅最近感觉网站程序每次升级的时候颇为麻烦:因为网站过多,每次都要用FTP上传到虚拟主机。这些都是累人的体力活,加之本人又懒得很,所以异想天开的觉得要是程序能够自动升级就好了。所以就想了想,写了本文,希望对WEB程序开发者有帮助。这里只针对ASP,因为我只会ASP的程序。

     宇蓝先来看看传统程序的升级过程(比如免费杀毒软件360杀毒软件),它是依靠软件的升级程序通过网络连接到服务器分析并下载升级文件到本地。

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

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

     以下代码就是宇蓝利用 Microsoft.XMLHTTP下载文件的例子:

<%
Set YlPost = CreateObject("Microsoft.XMLHTTP")
         YlPost.Open "GET","http://www.12536.net/www.rar",False
         YlPost.Send()
         Set YlGet = CreateObject("ADODB.Stream")
         YlGet.Mode = 3
         YlGet.Type = 1
         YlGet.Open()
         YlGet.Write(YlPost.responseBody)
         YlGet.SaveToFile Server.MapPath("update.rar"),2
         set YlGet = nothing
         set YlPost = nothing
         Response.Write("宇蓝升级程序下载文件成功!<br>")
%>

     上面代码就是把http://www.12536.net/www.rar保存到WEB服务器当前目录,Microsoft.XMLHTTP的更多用法还是看看MSDN吧。