- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 在线升级非法字符 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=121055)
-- 发布时间：2018/6/28 11:44:00
-- 在线升级非法字符
这个问题出现第二次了，第一次是另外一个出现有$的乱码，这次都仔细一个个文件看了，没有乱码，不知为何还出现。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:update1.zip |
Dim loc As String=updatepath
Dim uptime As Date
If FileSys.FileExists(loc & "\\update.txt")=False Or FileSys.FileExists(loc & "\\update2.zip")=False Or FileSys.FileExists(loc & "\\update1.zip")=False Then
MessageBox.Show("无法连接到升级文件的文件夹,没有查找到升级文件,你的电脑可能掉线或不能登录公司G盘")
MessageBox.Show(loc & "\\update.txt" & loc & "\\update2.zip" & loc & "\\update1.zip")
System.Diagnostics.Process.GetCurrentProcess().Kill
End If
Dim te As String = FileSys.ReadAllText(loc & "\\update.txt")
te=te.Remove(te.IndexOf("|"))
uptime=CDate(te)
If uptime> PublishDate Then
If filesys.DirectoryExists(ProjectPath & "\\UpdateTemporary") Then
FileSys.DeleteDirectory(ProjectPath & "\\UpdateTemporary",2,2)
End If
Network.DownloadFile(loc & "\\update2.zip",ProjectPath & "UpdateTemporary\\update2.zip","","",True,20000,True)
Network.DownloadFile(loc & "\\update1.zip",ProjectPath & "UpdateTemporary\\update1.zip","","",True,20000,True)
Network.DownloadFile(loc & "\\update.txt",ProjectPath & "UpdateTemporary\\update.txt","","",True,20000,True)
If FileSys.FileExists(ProjectPath & "UpdateTemporary\\update.txt") AndAlso FileSys.FileExists(ProjectPath & "UpdateTemporary\\update2.zip") AndAlso FileSys.FileExists(ProjectPath & "UpdateTemporary\\update1.zip") Then
UpdatePath = ProjectPath & "UpdateTemporary"
RemoteUpdate = False
Syscmd.Project.Update(False,True)
Return
Else
MessageBox.Show("下载升级文件异常,无法下载升级包,请尝试重启系统或者检查网络.")
System.Diagnostics.Process.GetCurrentProcess().Kill
End If
End If
-- 发布时间：2018/6/28 13:05:00
--
搞定了。一个图标没有仔细看到。有乱码