主题：[求助]升级的问题

1、修改成什么日期都可以，只要比之前版本的日期大，就可以升级；

 

2、有作用的。（测试升级功能，如果你使用的是开发版，你要发布之后才能测试升级功能的）

升级出现什么问题？不能升级？还是报错？

update.txt 设置的日期，要不断加大，才会升级的。

发布之后的程序，才能测试升级功能，没发布的话，请先发布后再打开点击【升级按钮】

 

你电脑的缓存问题；或者你网站的缓存问题。

 

试试打开你的ie浏览器，清空一下缓存试试。

或者试试用这种代码升级

 

try
    'UpdatePath = "ftp://bigpeng:Aa123456@47.96.7.165/Update/"
    Network.DownloadFile(updatePath & "update.txt?key=" & rand.next(10000), projectPath & "temp/update.txt" ,"" ,"" ,True, 100000, True) '下载update.txt文件
    Dim ud() As String = FileSys.ReadAllText(projectPath & "temp/update.txt").Split("|") '获取文件内容
    Dim Sdate1 As Date = Cdate(ud(0)) '服务器update.txt发布日期
    Dim Sdate2 As Date = Cdate(ud(1)) '服务器Version.txt发布日期
    Dim Cdate1 As Date = PublishDate '客户端发布日期
    Dim Cdate2 As Date = FileSys.ReadAllText(ProjectPath & "\Bin\Version.txt") '客户端Version.txt发布日期
    If Sdate2 > Cdate2 Then
        msgbox("大版本")
        Network.DownloadFile(updatePath & "update2.zip?key=" & rand.next(10000), projectPath & "temp/update2.zip" ,"" ,"" ,True, 100000, True)
        UpdatePath = projectPath & "temp/"
        Syscmd.Project.Update(False,False)
    ElseIf Sdate1 > Cdate1 Then
        msgbox("小版本")
        Network.DownloadFile(updatePath & "update1.zip?key=" & rand.next(10000), projectPath & "temp/update1.zip" ,"" ,"" ,True, 100000, True)
        UpdatePath = projectPath & "temp/"
        Syscmd.Project.Update(False,False)
    End If
   
catch ex As exception
    msgbox(ex.message)
    msgbox("下载失败")
End try