上传图片问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我用帮助文件提供的实例：

Case "upload.htm"

wb.AddForm("","form1","upload.htm")

With wb.AddInputGroup("form1","ipg1","申请材料上传")

With .AddUploader("tpcl","图片材料",True)

.AllowDelete = True '允许删除

.Incremental = True '允许重复选择文件或连续拍照

.ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩

End With

With wb.AddButtonGroup("form1","btg1",True)

.Add("btn1", "提交照片", "button").Attribute= "" '调用js函数上传

.Add("btn3","重新输入","button","dxxsxxlr.htm")

End With

wb.AddToast("","tst1", "正在上传",1)

wb.AddToast("","tst2", "上传成功",0)

wb.AddToast("","tst3", "上传失败",0).Icon= "warn"

wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件

...

拍照上传照片，实际都已经成功上传，但为什么都显示上传失败，致使程序无法望下面操作怎么？谢谢！

[此贴子已经被作者于2019/4/19 21:53:15编辑过]

原来也有

e.WriteString("OK")

但实际并不显示，我见没起作用，就去掉了

补充一下：原来是显示“上传成功”，但照片其实没有上传，也不显示“OK”，我是设计按钮退出的，我反复找都找不出问题，有一天，QQ浏览器不知什么时候偷偷装进了我的手机，我想是否是浏览器有问题（华为自带的浏览器），因为经常上传时经常提示网络不稳定，提示升级浏览器，我就用QQ浏览器，结果提示上传失败，但实际上图片已经传上来了。但显示失败，无法往下走

[此贴子已经被作者于2019/4/19 22:18:05编辑过]

谢谢！明白了，是提供回传参数：OK

我把 e.WriteString("OK") 加上去还是显示“上传失败”，其实是图片已经上传成功的，是什么原因？

代码如下：

Case "upload.htm"

wb.AddForm("","form1","upload.htm")

With wb.AddInputGroup("form1","ipg1","请拍照上传:申请表|录取通知书")

With .AddUploader("tpcl","图片材料",True)

.AllowDelete = True '允许删除

.Incremental = True '允许重复选择文件或连续拍照

.ScaleWidth = 400 '自动压缩图片宽度为400个像素,高度等比例压缩

End With

With wb.AddButtonGroup("form1","btg1",True)

.Add("btn1", "提交照片", "button").Attribute= "" '调用js函数上传

.Add("btn2","重新输入","button","dxxsxxlr.htm")

.Add("btn3","查看输入","button","list.htm")

End With

wb.AddToast("","tst1", "正在上传",1)

wb.AddToast("","tst2", "上传成功",0)

wb.AddToast("","tst3", "上传失败",0).Icon= "warn"

wb.AppendHTML("<script src='./lib/ajaxform.js'></script>") '引入脚本文件

'**********

e.WriteString(wb.Build) '生成网页

Dim exp As String = CExp("[username] = '{0}' And [sfzhm] = '{1}'", username ,sfzhm)

dr=DataTables("dxxsxxb").Find(exp)

Dim i As Integer=1

For Each key As String In e.Files.Keys

For Each fln As String In e.Files(key)

If FileSys.DirectoryExists("d:\web\图片材料\" & gzxx & "\" & username )=False Then

FileSys.CreateDirectory("d:\web\图片材料\" & gzxx & "\" & username )

e.SaveFile(key,fln,"d:\web\图片材料\" & gzxx & "\" & username & "\" & i & ".jpg") '"d:\web\图片材料\" & gzxx & "\" & username & "\" & fln) '保存接收到的文件

Else

e.SaveFile(key,fln,"d:\web\图片材料\" & gzxx & "\" & username & "\" & i & ".jpg")

End If

dr("tpcl")="d:\web\图片材料\" & gzxx & "\" & username & "\" & i & ".jpg"

i=i+1

dr.save()

e.WriteString("OK")

主题：上传图片问题