ASP在线升级类文件

　　<%
Rem #####################################################################################
Rem ## 在线升级类声明
Class Cls_oUpdate
Rem #################################################################
Rem ## 描述: ASP 在线升级类
Rem ## 版本: 1.0.0
Rem ## 作者:萧月痕

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, 以 起头
Rem ## 例:
UrlVersion =

Rem ## 升级URL, 以 起头, /结尾
Rem ## 例:
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 #################################################################

Rem #################################################################
Private Sub Class_Terminate()

End Sub
Rem #################################################################
Rem ## 执行升级动作
Rem #################################################################
Public function doUpdate()
doUpdate = False

UrlVersion = Trim(UrlVersion)
UrlUpdate = Trim(UrlUpdate)

Rem ## 升级网址检测
If (Left(UrlVersion, 7) <> ) Or (Left(UrlUpdate, 7) <> ) Then
Info = 版本检测网址为空, 升级网址为空或格式错误(#1)
Exit function
End If

If Right(UrlUpdate, 1) <> / Then
sstrUrlUpdate = UrlUpdate /
Else
sstrUrlUpdate = UrlUpdate
End If

If Right(UpdateLocalPath, 1) <> / Then