| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 上传图片问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=133768) |
| -- 作者：gudao123456 -- 发布时间：2019/4/19 21:50:00 -- 上传图片问题 我用帮助文件提供的实例： 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 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编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2019/4/19 21:55:00 -- 上传成功后有没有返回OK？ Case "receive.htm"
For Each key As String In e.Files.Keys For Each fln As String In e.Files(key) e.SaveFile(key,fln,"d:\\web\\uploadfiles\\" & fln) \'保存接收到的文件 Next Next e.WriteString("OK") |
| -- 作者：gudao123456 -- 发布时间：2019/4/19 22:00:00 -- 原来也有 e.WriteString("OK") 但实际并不显示，我见没起作用，就去掉了 补充一下：原来是显示“上传成功”，但照片其实没有上传，也不显示“OK”，我是设计按钮退出的，我反复找都找不出问题，有一天，QQ浏览器不知什么时候偷偷装进了我的手机，我想是否是浏览器有问题（华为自带的浏览器），因为经常上传时经常提示网络不稳定，提示升级浏览器，我就用QQ浏览器，结果提示上传失败，但实际上图片已经传上来了。但显示失败，无法往下走
[此贴子已经被作者于2019/4/19 22:18:05编辑过]
|
| -- 作者：有点蓝 -- 发布时间：2019/4/19 23:11:00 -- 把帮助认真看几遍：http://www.foxtable.com/mobilehelp/scr/0106.htm 看懂这个OK是干嘛用的
|
| -- 作者：gudao123456 -- 发布时间：2019/4/20 0:16:00 -- 谢谢！明白了，是提供回传参数：OK |
| -- 作者：gudao123456 -- 发布时间：2019/4/20 11:59:00 -- 图片上传问题 我把 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 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 Next Next dr.save() e.WriteString("OK") |
| -- 作者：有点蓝 -- 发布时间：2019/4/20 13:21:00 -- 和帮助一样用，上传和接收分开2个页面处理。 |
| -- 作者：gudao123456 -- 发布时间：2019/4/20 16:17:00 -- OK了，谢谢！ |