主题：[求助]网络环境下的ftp问题

'请选用自定义登录，必须的

 

'全局代码中

'以下设置服务器地址
Public IP1 As String = "10.22.1.40" '内网
Public IP2 As String = "123.123.123.123" '外网
Public IPa As String = IP1 '采用值
Public ftpAccount As String = "yourname" '设置ftp登录用户名
Public ftppassword As String = "yourpassword" '设置ftp登录密码

'Public变量的长度至少应该为3个字符

'根据项目而定--以下定义项目参数
Public sfile As String = "项目管理系统" '数据源名称,即Sql数据库文件名
Public pname As String = "项目管理系统" '项目名称,一个项目可以有多个数据源(可以切换)
Public bname As String = "项目管理.bat" '包含foxtable版本升级后必须升级的foxtable系统文件
Public ename As String = "项目管理.exe" '管理系统运行文件名
Public rfile As String = "d:\" & pname & "\数据文件\" & ename '含路径的管理系统运行文件名
Public pfile As String = pname & ".foxdb" '开发时的项目文件名
Public dpath As String = "d:\" & pname & "\设计资料\" '开发时的项目文件位置
Public bpath As String = "d:\" & pname & "\备份文件\" '本地项目文件备份位置,仅开发时用,交付后用upath
Public rpath As String = "d:\" & pname & "\数据文件\project" '运行时项目文件位置
Public upath As String = "\项目管理系统\数据文件\" '服务器上的项目文件路径和升级路径
Public npath As String = "d:\" & pname & "\升级文件\" '客户端的foxtable最新文件保存路径
Public datafile As String = pname & ".zip" '包含最新升级数据的文件名

 

'BeforeConnectOuterDataSource中代码

 
    Dim a As Boolean
    For i = 1 To 5 'ping5次
        a = Network.Ping(IP1,500) 'ping内网,每次500毫秒
        If a Then '如果ping通就退出for循环
            Exit For
        End If
    Next
    If a Then
        IPa = IP1 '如果内网Ping通,则用内网地址
    Else
        IPa = IP2 '否则用外网地址
    End If
    e.C & sfile & ";Data Source=" & IPa

 

'BeforeLoadOuterTable代码

'暂不加载数据的表

Select Case e.DataTableName
    Case "合同管理","开piao管理","担保管理","授信管理","表列管理","项目管理","清理管理","计量管理","证明管理"
    e.SelectString = "Select * From {" & e.DataTableName & "} Where [_Identify] Is Null"
End Select

 

'AfterOpenProject代码

'自动升级代码http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=38980&replyID=&skin=1