<%
Rem #####################################################################################
Rem ## 線上升級類聲明
Class Cls_oUpdate
Rem #################################################################
Rem ## 描述: ASP 線上升級類
Rem ## 版本: 1.0.0
Rem ## 作者: 蕭月痕
Rem ## MSN: xiaoyuehen(at)msn.com
Rem ## 請將(at)以 @ 替換
Rem ## 著作權: 既然共用, 就無所謂著作權了. 但必須限於網路傳播, 不得用於傳統媒體!
Rem ## 如果您能保留這些說明資訊, 本人更加感謝!
Rem ## 如果您有更好的代碼最佳化, 相關改進, 請記得告訴我, 非常謝謝!
Rem #################################################################
Public LocalVersion, LastVersion, FileType
Public UrlVersion, UrlUpdate, UpdateLocalPath, Info
Public UrlHistory
Private sstrVersionList, sarrVersionList, sintLocalVersion, sstrLocalVersion
Private sstrLogContent, sstrHistoryContent, sstrUrlUpdate, sstrUrlLocal
Rem #################################################################
Private Sub Class_Initialize()
Rem ## 版本資訊完整URL, 以 http:// 起頭
Rem ## 例: http://localhost/software/Version.htm
UrlVersion = ""
Rem ## 升級URL, 以 http:// 起頭, /結尾
Rem ## 例: http://localhost/software/
UrlUpdate = ""
Rem ## 本地更新目錄, 以 / 起頭, /結尾. 以 / 起頭是為當前網站更新.防止寫到其他目錄.
Rem ## 程式將檢測目錄是否存在, 不存在則自動建立
UpdateLocalPath = "/"
Rem ## 產生的軟體曆史檔案
UrlHistory = "history.htm"
Rem ## 最後的提示資訊
Info = ""
Rem ## 目前的版本
LocalVersion = "1.0.0"
Rem ## 最新版本
LastVersion = "1.0.0"
Rem ## 各版本資訊檔尾碼名
FileType = ".asp"
End Sub
Rem #################################################################