index.asp

来自「由于程序的需要,需要做一个自动更新的小程序,在网上找了找,完整源代码的程序不多,」· ASP 代码 · 共 21 行

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