以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]平台升级后发布升级问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=82071)
--  作者：zcgmxf
--  发布时间：2016/3/11 7:53:00
--  [求助]平台升级后发布升级问题
老师，昨天平台升级到最新版后，发布程序怎么不能升级了？win7和xp都不行，提示程序发生重大错误，如果继续看到“升级文件解压中。。。。”
--  作者：Hyphen
--  发布时间：2016/3/11 8:45:00
--  
贴出升级代码所在事件的完整代码
--  作者：zcgmxf
--  发布时间：2016/3/11 8:51:00
--  
没有代码啊。就是在发布项目界面设置的，通过共享文件夹升级。  以前是360解压的，刚才换了rar,还是不行。提示：程序发生重大错误。如果点击“继续”就出现“文件升级解压中。。。。。。
 publish文件夹中有一个升级文件解压的文件夹。如果把里面的文件复制后覆盖以前的文件，还是可以启动，并且是新发布的内容。

AfterOpenProject


Dim str As String = FileSys.ReadAllText(ProjectPath & "config.txt")
Dim n As Integer = GetConfigValue("Count",1)
Dim Code As String = str
Dim sss As String
Try   
    sss = DecryptText(Code,"abc","abc")    
Catch ex As Exception    
End Try
Dim Ok As Boolean
If Code > "" AndAlso sss = ComputerId Then \'如果注册码正确   
    OK = True   
Else    
    If n > 0 Then        
        Forms("注册").Open() \'
        \'FileSys.WriteAllText(ProjectPath & "config.txt", "123456789注册码", False)       
        Code = FileSys.ReadAllText(ProjectPath & "config.txt")      
        Try           
            sss = DecryptText(Code,"abc","abc")          
        Catch ex As Exception           
        End Try      
        If Code > "" AndAlso sss = ComputerId Then \'如果注册码正确           
            OK = True           
        End If       
    End If    
    If n > 0 AndAlso Ok = False Then        
        Messagebox.Show("您正在使用的产品已经超出试用次数!")        
        Syscmd.Project.Exit()       
    End If   
End If
n = n + 1
SaveConfigValue("Count",n)
[此贴子已经被作者于2016/3/11 8:56:32编辑过]
--  作者：黄训良
--  发布时间：2016/3/11 9:40:00
--  
本人用FTP方式测试简化升级，正常，完整升级如楼主所述！
[此贴子已经被作者于2016/3/11 9:48:33编辑过]
--  作者：大红袍
--  发布时间：2016/3/11 10:36:00
--  
以下是引用黄训良在2016/3/11 9:40:00的发言：
本人用FTP方式测试简化升级，正常，完整升级如楼主所述！
[此贴子已经被作者于2016/3/11 9:48:33编辑过]

 

我的是win8，我测试没有问题。小版本升级正常；大版本升级也能正常，没有解压提示。
--  作者：大红袍
--  发布时间：2016/3/11 10:37:00
--  

1、安装包你自己打包的？

 

2、压缩文件是zip，不是rar，而且压缩也不应该用360压缩或解压。
--  作者：大红袍
--  发布时间：2016/3/11 10:38:00
--  
如果【publish文件夹中有一个升级文件解压的文件夹。】，那说明已经解压成功了啊。
--  作者：zcgmxf
--  发布时间：2016/3/11 16:31:00
--  
不知道咋回事，以前没问题。升级包都是自动生成的。我用的是win7.  

三月八号的升级没问题，就是三月十一号的版本，升级后出现问题了。
[此贴子已经被作者于2016/3/11 16:32:10编辑过]
--  作者：大红袍
--  发布时间：2016/3/11 17:29:00
--  

 用win8测试了一次，20151222版升级到20160311版，没有什么问题，不报错。

 

 xp和win7 暂时没有环境测试。