upgrade.asp

来自「delphi 开发的自动升级源码」· ASP 代码 · 共 21 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<% Option Explicit %>
<%
'作者: 依星([e-mail])
'日期：2005.9
  dim action
  dim VersionAuto,VersionHand
  dim ServerName
  VersionAuto="2.2.0.1"
  VersionHand="2.2.0.1"
  action=LCase(request.QueryString("action"))
'  ServerName="www.xxxx.com" 
  ServerName="server" '(本机调试)
  if action="auto" then '自动升级
      response.Write("#"&VersionAuto&"#http://"&ServerName&"/Upgrade/Front.exe#")
	  response.end
  elseif action="hand" then '手工升级
      response.Write("#"&VersionHand&"#http://"&ServerName&"/Upgrade/Front.exe#")
	  response.end
  end if
%>