以文本方式查看主题 - 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 -- 提示找不到文件,说明你合成的升级路径有问题. |