用桌面版本上传文件总是错误。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 用桌面版本上传文件总是错误。

共有3407人关注过本帖树形打印复制链接主题：用桌面版本上传文件总是错误。

lanbor

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：435 积分：4390 威望：0 精华：0 注册：2017/3/20 21:08:00

用桌面版本上传文件总是错误。 发帖心情

Post By：2019/6/22 22:22:00 [显示全部帖子]

说明：我用下面的关键参数，用手机上传文件或图片方法，在手机上可以向远程主机正常上传

但用下面的方法，在桌面应用上传文件一直失败。

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog

dlg.Filter= "文本文件|*.docx;*.xlsx;*.xls;*.doc;*.pptx;*.ppt;*.pdf;*.txt" 'dlg.Filter= "文本文件|*.bmp;*.jpg;*.gif;*.png" '设置筛选器

If dlg.ShowDialog = DialogResult.Ok Then

MessageBox.Show("你选择的是:" & dlg.FileName,"提示")

End If

Dim ftp1 As New FtpClient

ftp1.deleteEnabled=False

ftp1.renameEnabled=False

ftp1.Host="120.78.*.*"

ftp1.Port="1**44"

ftp1.Account = "f*xftp"

ftp1.Password = "****"

Dim name As String =dlg.FileName.SubString(dlg.FileName.LastIndexOf("\")+1)

If ftp1.Upload(dlg.FileName , "\jyapp\" & name)= True Then

Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

Else

Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

Dim r1 As String= "ftp://f*xftp:J***@120.78.*.*\jyapp\" & name

Messagebox.show("当前字符串:" & r1)

请教大师：我用的阿里云主机，用手机上传图片或文件方法，能正常上传文件或图片，但用上面的方法失败。

请指点。

lanbor

小大 2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：435 积分：4390 威望：0 精华：0 注册：2017/3/20 21:08:00

请问专家，执行FTP上传，只能使用21端口吗？ 发帖心情

Post By：2019/6/23 16:11:00 [显示全部帖子]

请问专家：难道执行FTP上传，只能使用21端口吗？

---------------

1.因为弹出的文件路径完成正常，

2.直接写Upload 报告用户密码错误；

3、在ftp管理器那里，通过菜单上传，也提示用户名密码错；

-----------------------------------

我后来改用21端口(用户名和密码不变)就可以执行在桌面程序上传文件了。

请专家证实一下。

lanbor

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：435 积分：4390 威望：0 精华：0 注册：2017/3/20 21:08:00

文件下载到手机上查询方法，请教！ 发帖心情

Post By：2019/6/24 17:55:00 [显示全部帖子]

在专家的提醒下，真的找到问题了。

不用21端口也能用FTP的

If ftp1.Upload("c:\data\Foxtable学习笔记.xlsx","/book/Foxtable学习笔记.xlsx") = True Then 此例上传正常

' If ftp1.Download("\photo\Desert.jpg","c:\data\Desert.jpg") = True Then

上传文件。

现请教：已经知道远程主机上有上传的文件名：/book/Foxtable学习笔记.xlsx

我应该如何在手机上下载、并能直接打开它进行阅读？

---下面是我的网页基本代码---但执行结束仅是在主机上打开了文件。

Dim e As RequestEventArgs = args(0)

Dim pkey As Integer=0 '用户接收文件行的[_Identify]值

If e.GetValues.ContainsKey("pkey") Then

Integer.TryParse(e.GetValues("pkey"), pkey) '提取page参数

Else

Return ""

End If

Dim dr As DataRow = Data Tables("files99").SQL Find("[_Identify] = " & pkey)

Dim pa As String= dr("file03") '里面保存有带路径的文件名称

If dr IsNot Nothing Then

Dim proc As new process

proc.file = pa

proc.Start()

End If

[此贴子已经被作者于2019/6/24 18:03:13编辑过]

lanbor

小大 4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：435 积分：4390 威望：0 精华：0 注册：2017/3/20 21:08:00

变更后出现以下画面，确定后，终端上无反映。 发帖心情

Post By：2019/6/24 20:05:00 [显示全部帖子]

变更后在服务器端出现以下画面，确定后，终端上无反映。

此主题相关图片如下：rep09.png

请专家再指点一下。

[此贴子已经被作者于2019/6/24 20:05:52编辑过]

lanbor

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：435 积分：4390 威望：0 精华：0 注册：2017/3/20 21:08:00

请专家指点，谢谢你！ 发帖心情

Post By：2019/6/24 20:48:00 [显示全部帖子]

请专家指点，谢谢你！

[此贴子已经被作者于2019/6/24 22:11:56编辑过]

lanbor

小大 6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：435 积分：4390 威望：0 精华：0 注册：2017/3/20 21:08:00

再请教，网页后面那串乱码是怎么生成的呢？ 发帖心情

Post By：2019/6/24 22:51:00 [显示全部帖子]

再请教，网页后面那串乱码是怎么生成的呢？

照大师的指点，已经可以从手机上下载并直接打开文件阅读了；

现在我就学会了：

1.从桌面平台上传文件或图片到远程主机；

2.从手机平台上传文件或图片到远程主机；

3.从手机上直接打开远程主机上的文件进行阅读；

感谢专家指点！

下面是手机上打开的样本：

[此贴子已经被作者于2019/6/26 12:35:49编辑过]

lanbor

小大 7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：435 积分：4390 威望：0 精华：0 注册：2017/3/20 21:08:00

请教网页传参并转换页面后的加密字符生成方法。 发帖心情

Post By：2019/6/25 10:26:00 [显示全部帖子]

请教网页在传参、并转换页面后的加密字符生成方法？

如下面的样本。

-------是不是需要在下面的语句中做修改呢？----

'-----以下是建立底部菜单按钮

With wb.AddButtonGroup("form1","btg2", False)

If page > 0 Then

.Add("btnF0", "首页","","file0_table.htm?ok01=1&page=0")

‘我希望在下一个页面产生后、看到ok01=1变成成为：ok01=乱码

‘我希望在下一个页面产生后、看到page=0变成成为：page=乱码

'不影响参数正常使用

.Add("btnP1", "上一页","","file0_table.htm?ok01=1&page=" & page - 1)

Else

If page<>0 Then

.Add("btnF0", "首页","","file0_table.htm?ok01=1").kind=1

.Add("btnP0", "上一页","","file0_table.htm?ok01=1").kind=1

End If

End With

以上请问专家，应该如何实现，对网页参数值进行加密显示？

[此贴子已经被作者于2019/6/25 15:54:37编辑过]

lanbor

小大 8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：435 积分：4390 威望：0 精华：0 注册：2017/3/20 21:08:00

请教这加密语句在网页中的具体句法. 发帖心情

Post By：2019/6/25 17:08:00 [显示全部帖子]

先说明，以下A,B两个网页在没设置加密字符之前是能正常传参数

1. A网页加入加密命令后：

For Each dr As DataRow In dt.DataRows

With .body.addrow(dr("NO."))

.addcell(dr("file01").trim(),"class='alignC'")

.addcell(dr("file03").trim(),"class='alignC'")

.addcell(dr("file05").trim(),"class='alignC'")

.addcell(Format(dr("file04"),"yy/MM/dd"),"class='alignC'")

dim pr1 as string=EncryptText(str(dr("_Identify")),"a23","op#") ‘在A网页中对("_Identify")加密测试

.primarykey=pr1 '每行都需要定义上主键

End With

'-----以下是建立底部菜单按钮

2. 结果在浏览器的地址栏里面确认看到:“Pkey=lvoasidlweZRlw= ” 乱码字样

此主题相关图片如下：加密地址.png

3. B.以下是在B网页中来接收加密后的("_Identify")值

'--------以上是接收整数值样本

Dim e As RequestEventArgs = args(0)

Dim pr1 As String '先接收来自加密后的字符型[_Identify]值

Dim pkey As Integer=0 '用户接收文件行的[_Identify]值

pr1=DecryptText(e.GetValues("pkey"),"a23","op#") ‘这句放到判断之前没效果

If e.GetValues.ContainsKey("pkey") Then

pr1=DecryptText(e.GetValues("pkey"),"a23","op#") ‘这句放到判断之后也没效果

Integer.TryParse(pr1, pkey) '提取page参数

messagebox.show("pkey:" & pkey & "pr1:" & pr1) '未执行

Else

messagebox.show("pkey:" & e.GetValues("pkey")) ’此此显示为空白

Return ""

End If

请教：这被加密后的[_Identify]值没有接收进来

[此贴子已经被作者于2019/6/25 17:27:20编辑过]

lanbor

小大 9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：435 积分：4390 威望：0 精华：0 注册：2017/3/20 21:08:00

终于学会了加密传递网址参数 发帖心情

Post By：2019/6/26 12:35:00 [显示全部帖子]

终于学会了加密传递网址参数

此主题相关图片如下：加密地址参数.png

下一主题 >> << 上一主题

主题：用桌面版本上传文件总是错误。