以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]我的自动升级代码错在哪儿了?(自己解决了)  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=20534)

--  作者:shenyl0211
--  发布时间:2012/6/11 19:25:00
--  [求助]我的自动升级代码错在哪儿了?(自己解决了)

我点击上传文件按钮、下载文件按钮都成功,但自动升级按钮返回404(文件找不到)错误信息,请大家帮我找错,谢谢了!

 

上传文件按钮事件——成功

Dim IP As String = User.ExtendedValues("服务器地址") \'获得用户登录时输入的IP

Dim ftp1 As new ftpclient

ftp1.TimeOut=20000 \'用于设置尝试操作的毫秒数

ftp1.host=ip \'设置单位ftp服务器地址

ftp1.Account = "shenyaoliang" \'设置ftp登录用户名

ftp1.password = "****" \'设置ftp登录密码

If ip="10.22.1.40" Then  \'内网

    ftp1.upload("d:\\项目管理系统\\数据文件\\update.txt","\\项目管理系统\\update.txt",True)

    ftp1.upload("d:\\项目管理系统\\数据文件\\update.zip","\\项目管理系统\\update.zip",True)

Else ‘外网

    ftp1.upload("d:\\项目管理系统\\数据文件\\update.txt","/项目管理系统/update.txt",True)

    ftp1.upload("d:\\项目管理系统\\数据文件\\update.zip","/项目管理系统/update.zip",True)

End If

 

下载文件按钮事件——成功

Dim IP As String = User.ExtendedValues("服务器地址") \'获得用户登录时输入的IP

‘ Dim ftp1 As new ftpclient

‘ ftp1.TimeOut=20000 \'用于设置尝试操作的毫秒数

‘ ftp1.host=ip \'设置单位的ftp服务器地址

‘ ftp1.Account = "shenyaoliang" \'设置ftp登录用户名

‘ ftp1.password = "****" \'设置ftp登录密码

If ip="10.22.1.40" Then  \'内网

    ftp1.download("\\项目管理系统\\update.zip","d:\\项目管理系统\\数据文件\\update0.zip")

Else \'外网

    ftp1.download("/项目管理系统/update.zip","d:\\项目管理系统\\数据文件\\update0.zip")

End If

 

自动升级按钮事件——成功(用IIS建立新网站,IP地址为内网地址,端口不要用默认的80,并直接指向升级路径)

Dim IP As String = User.ExtendedValues("服务器地址") \'获得用户登录时输入的IP

UpdatePath="http://" & ip & ":801" \'升级路径

If ip="10.22.1.40" Then  \'内网

    RemoteUpdate =False

Else \'外网

    RemoteUpdate=True

End If

Syscmd.Project.Update(True,True)

[此贴子已经被作者于2012-6-13 9:04:07编辑过]

--  作者:狐狸爸爸
--  发布时间:2012/6/12 8:00:00
--  

提示找不到文件,说明你合成的升级路径有问题.