<!--#include file="adminCommon.asp"-->
<%
htmlHead
Upgarde
htmlFoot

Sub Upgarde
  Const LATEST_VERSION = "2009 /10 /24 16:28 "

  Dim codeVersion : codeVersion = ReadFileContent("/version.txt")
  If codeVersion = LATEST_VERSION Then
    successTip "当前已为最新版本，无须升级！",gReferUrl
    Exit Sub
  Else
    WriteToFile "/version.txt",LATEST_VERSION
  End If
  UpgradeDatabase
  UpgradeFiles

  successTip "升级成功！",gReferUrl
End Sub

Sub UpgradeDatabase
  connOpen
  If gcDBType=0 Then  'access 数据库
  Else
  End If
  connClose
End Sub

Sub UpgradeFiles
  '---------------  无需升级文件检测 -------------------
  Dim filesNotUpgrade
  filesNotUpgrade = "/common/*.*|/config/*.*"
  '//---------------  无需升级文件检测 -------------------
End Sub
%>
